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