[問題] 請問輸出到檔案怎麼指定從頭加入?

[unetin (Brian)]

請問我開一個檔案,要將 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)