TOP - Perl - 特殊変数 - $/

入力処理をする際の行末を示す文字を指定します。デフォルトは改行文字です。

(例)
open TEST, "<test.txt";

$/ = ":";

$line = <TEST>;                   # デリミタをコロンに設定して1行目を読み込み
print "$line\n";

$/ = "\n";

$line = <TEST>;                   # デリミタを改行文字に設定して2行目読み込み
print "$line\n";

close TEST;
test.txt
test1:test2:test3:test4:test5
実行結果
test1:
test2:test3:test4:test5


Copyright(C) 2006-2011 CLAYPOT. All Rights Reserved.