splice関数 連続したものを取り出す(削除)

splice @配列変数名,挿入対象の位置,削除する要素の数,追加する値 splice.cgi splice1.cgi splice2.cgi splice3.cgi

例. abcdを取り出し、abを挿入します。


#!/usr/bin/perl
#splice.cgi
@list = ('a','b','c','d');

print "Content-type: text/plain\n\n";
splice @list,0,4,(a,b);
print @list,"\n";
exit;

例. dの後ろにe,fを挿入します。


#!/usr/bin/perl
#splice1.cgi
@list = ('a','b','c','d');

print "Content-type: text/plain\n\n";
splice @list,4,0,(e,f);
print @list,"\n";
exit;

例. dを取り出す。


#!/usr/bin/perl
#splice2.cgi
@list = ('a','b','c','d');

print "Content-type: text/plain\n\n";
splice @list,3,1;
print @list,"\n";
exit;

例. c,dを取り出す。取り出した値を表示。


#!/usr/bin/perl
#splice3.cgi
@list = ('a','b','c','d');

print "Content-type: text/plain\n\n";
@tlist = splice @list,2,2;
print @tlist,"\n";
exit;


okd@isa-kuroshio.com<K.Okada>