view release on metacpan or  search on metacpan

expskip  view on Meta::CPAN

& procFiles ; # 複数のファイルも想定して処理。
exit 0 ;

sub procFiles ( ) { # 複数のファイルも想定して処理
  my $files = @ARGV ;
  do {
    my $fileName = shift @ARGV  ; # ファイル名
    my $FH ; # ファイルハンドル
    open $FH , "<" , $fileName or warn "File `$fileName' does not open." and next if defined $fileName ; 
    $FH = *STDIN if ! defined $fileName ; 
    binmode $FH , ":gzip(autopop)" if $o{z}  ; # <-- autopop とは?
    say UNDERLINE $fileName if $files >= 2 ; # ファイルが2個以上指定されていたら、ファイル名を表示する。
    & eachFile ( $FH ) ; 
  } while @ARGV 
}

sub eachFile ( $ ) { # 1個のファイルに対する処理(引数はファイルハンドル。STDINの場合もある。)
  @nums = @nums0 ;
  my $FH = $_[0] ; 
  my $ready ; # この数が正なら出力する。→ 仕組みは、キリの良い数などのトリガーにより、一定値が格納されて、1ずつ減る。
  my @stockLines = () ; # いくつかの行の、文字列を格納する。