[問題] 請問輸出到檔案怎麼指定從頭加入?
請問我開一個檔案,要將 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)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
