- 314 名前：nobodyさん mailto:sage [2011/11/17(木) 00:05:31.82 ID:???]
- >>313
#!/usr/bin/perl -w
use strict;
my @line = (scalar <DATA>, scalar <DATA>, scalar <DATA>); # 幾つ?
print @line, "---\n"; seek DATA, -12, 1; @line = ();
@line = map scalar <DATA>, 0..2; # 0から2とは?
print @line, "---\n"; seek DATA, -12, 1; @line = ();
push @line, scalar <DATA> while @line < 3; # 意図が分かりやすい
print @line;
__DATA__
foo
bar
baz
quux
