【Perlサンプル集】 基本部分 ループ 文字操作 文字結合 ファイル操作 ファイル内の文字置換 先頭行のみの読み込み その他 サブルーチン 【ファイル内の文字置換】 ソース # cat a.cgi #!/usr/bin/perl open ( TTT , "< aaa") ; @INDATA = <TTT> ; close (TTT) ; open ( TTT , "> aaa" ) ; foreach(@INDATA){ $sr = $_ ; $sr =~ s/aaa/ppp/g ; print TTT "$sr" ; } close(TTT) ; 実行と結果 # cat aaa aaa vvv ccc ddd # perl a.cgi # cat aaa ppp vvv ccc ddd