ファイル名の部分にスカラー変数へのリファレンスを渡してやればok。Perl 5.8以降が必要です。 open $handle, '<', \$string; # 読み込み専用 open $handle, '>', \$string; # 書き込み専用 open $handle, '+>', \$string; # 読み書き可能。元の内容は上書き…

$line == 0 $line >= 1 $current_page == 0 ○ ○ $current_page >= 1 × ○ 条件が分からなくなったらとりあえずはカルノー図を描いてみる。とりあえず、$line || !$current_pageかな？ あと、よほど簡単な場合はともかく、ループカウンタに$iとか$jとか、安易…