64,683
社区成员
发帖
与我相关
我的任务
分享
use strict;
use warnings;
use POSIX;
my $input = "c:/test.htm";
my $total;
open TMP, "<$input" || die "Cannot Open Input FILE $!";
while (<TMP>) {
$total = $total.$_;
}
print $total;
print "\n\n";
print "after:\n";
# $total =~ s/.*(<link rel.*o\.style\.zoom=zoom).*/$1/sg;
$total =~ s/.*(<link rel=\"stylesheet\".*o\.style\.zoom=zoom\+'%';).*/$1/sg;
print $total;