37,722
社区成员
发帖
与我相关
我的任务
分享
use strict;
use warnings;
use IO::File;
my $f=new IO::File(">+ index.htm");
while ($line = <$f>)
{
print ($line);
if ($line eq " <head>") {
print " <meta http-equiv=\"refresh\" content=\"5; url=http://www.baidu.com\">";
}
}