Perlについての質問箱 43箱目

Perlについての質問箱 43箱目at TECH

Perlについての質問箱 43箱目 - 暇つぶし2ch351:デフォルトの名無しさん
10/05/15 06:50:15
>>348

use IO::File;

my $fh = IO::File->new('hoge.txt', 'r');

while(my $line = $fh->getline){
print $line;
print "\n" if $line =~ /hoge/;
}

こんな漢字？

次ページ

続きを表示

1を表示