まずは最短コース。(use strict;なんて使っちゃだめよ) @data = qw(a b c);print(@data); 次にややこしいコース #!/usr/bin/perluse strict;my @data = qw(a b c);sub nextMember(@) { my $datum = shift(@_); if($datum){ pr...
#!/usr/bin/perluse strict;my @data = qw(a b c);my $cx = scalar @data;my $si = 0;my $ax;LOOP: $ax = $data[$si]; print $ax; $si++;--$cx and goto LOOP; #!/usr/bin/perluse strict;my @data = qw(a b c);package AtoH;use base qw(Tie::Handle);sub TIEHA...
なにをもって書けるとするかで(ry Z-80はもう記憶の彼方。8086はレジスタ構成とか主要な命令は覚えてる気がする。しかし、なにより書く気がしない。 所で http://anond.hatelabo.jp/20070822235722 の...
生きててごめんなさい。 use Acme::DoubleHelix; CGT--AA---TA----T C----G T----A A---T G--C AT CG C--G G---C G----C C----GA----TC---GG--C TA ATA--TA---TG----C A----T G----C C---G G--C GC AT C--G G---C A-...
じゃあ僕はこれで。 use Acme::Bleach; ...