作者 tusooa [perl] 2012-04-21 12:28 (点击下载) (原始帖子: gjp 在 2012-04-21 12:16 被修改)) (显示不同)

#!/usr/bin/env perl
 
use 5.012;
 
mkdir 'newfs';
 
for my $file (glob '*.html')
{
    open FILE, '<', $file;
    my $content = join '', <FILE>;
    my $title = $content =~ m{<title[^>]*>[sn]*(.*?)[sn]*</title}is;
    say $title;
    close FILE;
}