#=プログラムの実行結果=(push(pop), shift(unshift)) back

( ai ue oka kiku keko sasi suse )の配列が…

(1)shift関数の例
(ue oka kiku keko sasi suse)
先頭のaiが除かれた
(2)unshiftの例
(owa ue oka kiku keko sasi suse)
先頭にowaが追加された
(3)push関数の例
(owa ue oka kiku keko sasi suse doya)
後部にdoyaが追加された
(4)pop関数の例
(owa ue oka kiku keko sasi suse)
後部のdoyaが除かれた

#=プログラム=

@data = qw(ai ue oka kiku keko sasi suse);
print " ";
print "( "."@data"." )の配列が… ";
print " ";
#まずshift関数の例
print "(1)shift関数の例 ";
$sif = shift(@data); #先頭のリストが取除かれる
print "(@data) ";
print "先頭の$sifが除かれた ";
#次にunshift関数の例
print "(2)unshiftの例 ";
$list = owa;
unshift(@data,owa); #先頭にリストを追加する
print "(@data) ";
print "先頭に$listが追加された ";
#次にpush関数の例
print "(3)push関数の例 ";
$pus = doya;
push(@data,$pus);
print "(@data) ";
print "後部に$pusが追加された ";
#次にpop関数の例
print "(4)pop関数の例 ";
$dasu = pop(@data);
print "(@data) ";
print "後部の$dasuが除かれた ";

Copyright © 1999 by
fujiko. All Rights reserved. back