- 35 名前：デフォルトの名無しさん mailto:sage [2013/03/09(土) 12:59:45.16 ]
- perl
>>18
use 5.016;
use warnings;
use Tie::File;
tie my @list, 'Tie::File', 'todo.dat' or die $!;
given($ARGV[0]){
when('add'){ push(@list, $ARGV[1]) }
when('list'){ print map{ "$_: $list[$_ - 1]\n" } (1 .. @list) }
when('done'){ splice(@list, $ARGV[1] - 1, 1) }
default{ say "$0 usage: (add todo/list/done number)" }
}
>>22
my @l = (1, 3);
my @r = ((0) x 5, @l)[@l .. $#l + 5];
