TSperl 発言

川合孝典です。

----- Original Message -----
From: "藤岡和夫" <kazuf@...>
To: <TSperl@...>
Sent: Sunday, July 07, 2002 12:45 AM
Subject: [TSperl:95] ctrl-Zを無視して読み込む


> 　ruby-talkのメーリングリストのテキストデータを処理したいのですが、メー
> ルの各所にctrl-Zがあり、そこで処理が止まってしまいます。
Ctrl-Zで止まるってことはWindowsでってことですよね？
単純にbinmodeかましてやればいいんじゃないかってことはないですか？

＝コード＝
open OUT, '>kaba.txt';
binmode OUT;
print OUT <<EOD;
kaba1\x1A
kaba2\x1A
kaba3\x1A
EOD
close OUT;
print "\n----TEST1----\n";
open IN1, '<kaba.txt';
while(<IN1>) {
  print;
}
close IN1;

print "\n----TEST2----\n";
open IN2, '<kaba.txt';
binmode IN2;
while(<IN2>) {
  print;
}
close IN2;

＝実行結果＝
C:\temp>perl t1.pl

----TEST1----
kaba1
----TEST2----
kaba1^Z
kaba2^Z
kaba3^Z

のようになりましたけど。
===================================================
川合 孝典 (Hippo2000)
   DBI日本語メーリングリスト管理人、Kansai.pm所属
   kwitknr@... GCD00051@...
   http://member.nifty.ne.jp/hippo2000、http://www.hippo2000.info/
「MySQL&Perl Webアプリケーション開発」の発売中
   http://member.nifty.ne.jp/hippo2000/mysqlperl.htm
===================================================