2013-05-09から1日間の記事一覧
#!/usr/local/bin/perl use strict; use utf8; main(); sub main { my @list = ('a','b','c'); for my $i (-4..4){ print "I=$i , VAL=", $list[$i],"\n"; } } ↑こう書くと、↓こうなります $ ./foo.pl I=-4 , VAL= I=-3 , VAL=a I=-2 , VAL=b I=-1 , VAL=c I…