perlでファイルのコピーをするには?

[上に] [前に] [次に]
たけっち 1999/06/03(木) 15:42:18
質問内容は、下記のソースにて perlでファイルのコピーを行いのですが
うまく、行きません。ご教授願いたく投稿させて頂きます

$fromfile = "abc.cgi";
$tofile = "def.cgi";
open IN, $fromfile

open OUT, ">$tofile"

while (<IN>) {
print OUT $_;
}
close IN;
close OUT;

とすると。。エラーになってしまいます。
-wc にて、文法チェックしたのですが、エラーの意味がわかりません。
該当個所をいろいろ直したりしてみたのですが、どうもうまく行きません。
 エラー内容
 syntax error in file cp.cgi at line7, next token "open"
  cp.cgi had compilation errors.

とでます。。

どこが悪いの教えていただける方がいましたら助かります。。
宜しくお願い致します。

また、もっと別の最適なコピー方法等ありますでしょうか?・・

ふじ 1999/06/03(木) 16:14:22
>open IN, $fromfile

>open OUT, ">$tofile"

セミコロンがないです。

エラー内容 1999/06/03(木) 16:41:53
> syntax error in file cp.cgi at line7, next token "open"
>cp.cgi had compilation errors.

syntax とは文法だから、7行目に文法上の間違いありと言っている。
英和辞書を引きましょう。
いやみでもなんでもないです。 そういう習慣をつけた方がいいと思ってます。

>また、もっと別の最適なコピー方法等ありますでしょうか?・・
@hoge = <IN>;
よりそちらの方がよいと思われます。

[上に] [前に] [次に]