主頁(yè) > 知識(shí)庫(kù) > perl文件讀取的幾種處理方式小結(jié)

perl文件讀取的幾種處理方式小結(jié)

熱門標(biāo)簽:開(kāi)封百應(yīng)電銷機(jī)器人聯(lián)系方式 浦東上海400開(kāi)頭的電話申請(qǐng) 邯鄲外呼調(diào)研線路 電話機(jī)器人電話卡封號(hào)怎么辦 買了外呼系統(tǒng)不想用了怎么辦 武漢呼叫中心外呼系統(tǒng)線路商 樂(lè)昌電話機(jī)器人 真人語(yǔ)音電銷機(jī)器人系統(tǒng) 北京語(yǔ)音電銷機(jī)器人價(jià)格

1、單行(大文件處理):

復(fù)制代碼 代碼如下:

my $oneline = $FL> 或
while($line=H>)
{ }

2、讀取全部(小文件處理):

復(fù)制代碼 代碼如下:

open (my $in, "path ") or die "open error: $! ";
my @lines = $in> ;

3、讀3行(大文件及特殊處理需要):

復(fù)制代碼 代碼如下:

open (my $in, "path ") or die "open error: $! ";
my @lines;
push (@lines, scalar $in> ) for (1..3);

4、每次按條件讀入三行,并且按照條件輸出兩行?;蚋鶕?jù)其他具體要求修改達(dá)到相應(yīng)目的。

復(fù)制代碼 代碼如下:

while (TEST>) {
    if(index ($_, "=") > -1){
       my $position=tell(TEST);
       my $keyword_line=$_;
       my $line_1=TEST>;
       my $line_2=TEST>;
    # @a=split//,$keyword_line;  比較它們的元素是否相等,一直沒(méi)成功
    # @b=split//,$line_1;         利用if ($a[0]eq $a[0])來(lái)判斷
    # @c=split//,$line_2;
         if (($line_2)(index($line_2, "=")>-1)){ # 或者if ($line_2=~/=/)
            print OUTFILE "$_$line_1";
          }
    if (!($line_2)) { print OUTFILE "$_$line_1"; last; }
    seek(TEST, $position, 0);
      }
  }

您可能感興趣的文章:
  • Perl文件讀取的經(jīng)典用法分享

標(biāo)簽:鄂州 河北 自貢 宜春 松原 石嘴山 淄博 六安

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《perl文件讀取的幾種處理方式小結(jié)》,本文關(guān)鍵詞  perl,文件,讀,取的,幾種,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《perl文件讀取的幾種處理方式小結(jié)》相關(guān)的同類信息!
  • 本頁(yè)收集關(guān)于perl文件讀取的幾種處理方式小結(jié)的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章