ソートすると最初の1行が消えてしまいます！

質問

いつも大変お世話になります。初心者の質問で申し訳ありません。

#!/usr/bin/perl
# re-shuffle
open OUT, ">file2";
open IN, "file1";
while (<IN>){
print OUT sort{&span($a) <=> &span($b)}(<IN>);
}
close OUT;
close IN;
###
sub span{

というふうに、file1から1行ずつ読み込んで、spanで規定する値で行を並べ替えてfile2を作るようにしたつもりですが、file2の最初の1行？が消えてしまいます。どこに問題があるのでしょうか、教えてください。あるいはまだ情報不足でしょうか？

回答No.1

zxcv0000 · ベストアンサー

while (<IN>){
print OUT sort{&span($a) <=> &span($b)}(<IN>);
}

これが不適切で、 file1 の最初の 1行を読み捨てています。

print OUT sort{&span($a) <=> &span($b)}(<IN>);

上の 3行を、この 1行に替えましょう。(whileの行と「}」の行を削除)
<IN> が、while() の条件式とブロック内の両方にあるのがまずいです。

参考までに、他にうまくいく例をいくつか。

例1=========================
my @IN = <IN>;
print OUT sort{&span($a) <=> &span($b)}(@IN);

例2=========================
my @IN = ();
while (<IN>){
push(@IN, $_);
}
print OUT sort{&span($a) <=> &span($b)}(@IN);

ポイント1
<IN> は、スカラーとして扱うか配列として扱うかで振舞が変ります。 そこんとこをマスターしたら、一人前？？？

ポイント2
sort() は、入力データを全て配列に入れてから呼ぶものです。
# C の sort は、1レコードづつ呼ぶんでしたっけね？ Perlの sort は違うと言うことです。

お礼

納得しました！
早くて適切な回答、本当にありがとうございます。
コミュニティっていいですね。
今後とも何卒よろしくお願いします。