@data=(a,b,c);print@data
#!/usr/bin/perl use strict; my @data = qw(a b c); my $cx = scalar @data; my $si = 0; my $ax; LOOP: $ax = $data[$si]; print $ax; $si++; not --$cx or goto LOOP;
#!/usr/bin/perl use strict; my @data = qw(a b c); package AtoH; use base qw(Tie::Handle); sub TIEHANDLE { my $class = shift; return bless {data => [@_]}, $class; } sub READLINE { return shift @{shift->{data}}; } package main; tie *ARGV, 'AtoH', @data; while (<>) { print; }
内定とかちょーうざったいからここらで話をブッタ切るよ! 配列をループして全て出力するプログラムを書く場合。(言語は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 の...