[takeyuki@sunya ~]$ perl -MData::Dumper -e 'my $x = bless bless bless bless bless bless bless bless bless bless bless {}; print Dumper($x)' $VAR1 = bless( {}, 'main' );

(a,b,c,d,e,f,g,h,i,j) という配列から、たとえば (e,f,g,h,i,j,a,b,c,d) という配列を作る。 use strict; use warnings; sub flip { my ($array_ref, $cut_index) = @_; return @{$array_ref} if $cut_index <= 0; my $max_index = $#{$array_ref}; return …

次のスクリプトは z をいくつ出力するか。 use strict; use warnings; #define sleep(times) print q/z/ x times sleep(100); print "z\n"; [takeyuki@sunya ~]$ perl -P a.pl zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz…

下ゆでが済んだ金時豆のしあげをまかされた。下ゆでの時間が長かったからか、しあげの手際が悪かったからか、ぐちゃぐちゃしたあんこのような仕上りになってしまった。ま、そこがおいしいといえばおいしい。最後に一つまみ入れた塩も効いてる。