perl 計算結果をファイルへ出力したい

質問

perl やり始めたばかりです。宜しくお願いします。

入力ファイル data.txt があるとします。 data.txt は、

123 456
789 333
555 777

以上のようなテキストファイルといたします。このファイルを
以下の様に100分の1にして出力したい。

1.23 4.56
7.89 3.33
5.55 7.77

と言うことで、この場で教えていただきました。それが、以下です。

#!/usr/bin/perl

open(IN, "data.txt") or die ;
@x = <IN>;
close (IN);

foreach $line (@x){
chomp($line);
@elms = split(' ',$line);
foreach $data (@elms){
print $data/100," ";
}
print "\n";
}

おかげ様でこれはこれで上手く動きました。そこで、出力値をファイルに
書き込みたいのです。　もちろん、以下の様な方法でファイルに
書き込めるのは判っております。

計算プログラム.pl > outfile.txt

しかし、上のプログラムをベースにファイルに書き込めないかと色々と
試してはみましたが、どうも上手く行きません。
どなたか教えて頂けないでしょうか？
宜しくお願い申し上げます。

回答No.3

ORUKA1951 · ベストアンサー

＞もちろん、以下の様な方法でファイルに書き込めるのは判っております。
　いや、全く分かってないから、書き出せないのですね。
#!/usr/bin/perl
open(IN, "data.txt") or die ;
open(OUT,">output.txt") or die;
foreach (<IN>){
my $line="";
my (@data,@out)= ();
chomp;
@data = split(' ',$_);
foreach(@data){
push(@out,$_/100);
}
$line = join (" ",@out);
print OUT "$line\n";
}
close (IN);
close (OUT);
__END__

お礼

誠にありがとうございます。
上手くいきました。

回答No.2

MillenniuM

単に output 用にファイルハンドルを用意するだけで、
OK です。

http://pastebin.com/3UJDsKf8

お礼

ありがとうございました。

回答No.1

Tacosan

個人的には入出力のファイル名をプログラムやスクリプトの中に埋め込むのは嫌いなんだが, さておき「どうも上手く行きません」とは具体的に何をどうやってどう「うまくいかない」のですか?

ファイルのオープンやオープンしたファイルへの書き込みは, 当然ですができますよね?

お礼

ありがとうございました。