まずは最短コース。(use strict;なんて使っちゃだめよ)
@data = qw(a b c);print(@data);
次にややこしいコース
#!/usr/bin/perl use strict; my @data = qw(a b c); sub nextMember(@) { my $datum = shift(@_); if($datum){ print($datum); nextMember(@_); } return; } nextMember(@data);
dataは複数形だから、datasなんて認めないぞ僕は。
内定とかちょーうざったいからここらで話をブッタ切るよ! 配列をループして全て出力するプログラムを書く場合。(言語はPerl) my @datas = qw(a b c);for my $data ( @datas ) { print $data;} こん...
まずは最短コース。(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...
生きててごめんなさい。 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; ...
なにをもって書けるとするかで(ry Z-80はもう記憶の彼方。8086はレジスタ構成とか主要な命令は覚えてる気がする。しかし、なにより書く気がしない。 所で http://anond.hatelabo.jp/20070822235722 の...