Perl逐行读取

link之家

链接快照平台

输入网页链接，自动生成快照
标签化管理网页链接

$file='SnPmaster.txt';
open(INFO, $file) or die("Could not open  file.");
$count = 0; 
foreach $line (<INFO>)  {   
    print $line;    
    if ($++counter == 2){
      last;
close(INFO);

use strict;
use warnings;
my $file = 'SnPmaster.txt';
open my $info, $file or die "Could not open $file: $!";
while( my $line = <$info>)  {   
    print $line;    
    last if $. == 2;
close $info;

my $count = 0;
while( my $line = <$info>)  {   
    print $line;    
    last if ++$count == 2;
}

#!/usr/bin/perl
use utf8                       ;
use 5.10.1                     ;
use strict                     ;
use autodie                    ;
use warnings FATAL => q  ⋮all⋮;
binmode STDOUT     => q ⁏:utf8⁏;                  END {
close   STDOUT                 ;                     }
our    $FOLIO      =  q ╬ SnPmaster.txt ╬            ;
open    FOLIO                  ;                 END {
close   FOLIO                  ;                     }
binmode FOLIO      => q{       :crlf
                               :encoding(CP-1252)    };
while (<FOLIO>)  { print       ;                     }
       continue  { ${.} ^015^  __LINE__  ||   exit   }
                                                                                                                                                                                                                                              __END__
unlink  $FOLIO                 ;
unlink ~$HOME ||
  clri ~$HOME                  ;

推荐文章

咆哮的青蛙 · 昆明市发改委：曲靖三宝至长水高速力争年内开建（转自云南网）_云南省住房和城乡建设厅

1 年前

非常酷的鼠标垫 · 双11 boox note x怎么样双11 boox note x评测_什么值得买

1 年前

正直的小蝌蚪 · 提醒！公交、地铁春节期间运营将有这些调整_通知消息-便民_首都之窗_北京市人民政府门户网站

1 年前

沉着的跑步鞋 · WebGL进阶（8）灯光与阴影 - yulingjia - 博客园

1 年前

深情的硬盘 · 视频去哪了呢？_哔哩哔哩_bilibili

1 年前

Perl逐行读取

4 个回答