作者unetin (Brian)
看板Perl
标题[问题] 请问输出到档案怎麽指定从头加入?
时间Wed Apr 23 19:12:13 2008
请问我开一个档案,要将 acl localnet src xxxx(会有很多笔)从档案头(第一行)挿入,
而不是从档案尾(最後一行)加入,请问该怎麽改? print有参数可用吗?
下面写的程式是从档案尾加入:
if ( !open(SQUID,">>$SQUID_CONF") )
{
print qq (Fail to Open SQUID file !!);
}
foreach my $class ( @$natclasses )
{
if ( $class->{table} eq $pxyinit->{pxypool} )
{
print SQUID qq(acl localnet src $class->{source} \n);
}
}
close (SQUID);
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 124.8.108.201
※ 编辑: unetin 来自: 124.8.108.201 (04/23 19:15)