ファイルを読込んで文字列置換後にブラウザに表示

質問

Perl超初心者です。
ユーザがブラウザのフォームに名前を入力し送信したら、「入力内容はこれでいいですか」という確認画面を表示したいのですが、s///を用いる置換の部分が、どこにどう書けばよいか分かりません。
以下のスクリプトは、ファイルを読み込んでブラウザに返し表示するものです。（ちゃんとブラウザに表示されます）
具体的に、このスクリプトの中のどこにs///を書けばよいのでしょうか。ご教示ください。

sub testComment {
open(IN, "./sample.htm");
@file = <IN>;
close(IN);
print "Content-type: text/html\n\n";
foreach (@file) {
print $_;
}

回答No.1

fdsjaklfjas · ベストアンサー

foreach (@file) {
$_ =~ s/foo/bar/;
# 「$_ =~」を省略して「s/foo/bar/;」と書いてもよいです。
print $_;
}
だと思います。

お礼

早速教えていただき、ほんとにありがとうございます。
いま、試してみましたら、うまく行きました。
感謝、感謝です。