2013-09-02 いかんいかん perl もう10日以上もサボってるじゃないかぁ! いやはやサボり癖というのは恐ろしいものでありますな。 とりあえず今日はこのくらい。 open my$fh,"<","path.txt" or die; my $line = <$fh>; my @paths; @paths = split(/;/,$line); foreach my $path(@paths){ if($path =~ /SQL/){ print $path."\n"; } } close $fh;