App-expskip
view release on metacpan or search on metacpan
& 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 = () ; # ããã¤ãã®è¡ã®ãæååãæ ¼ç´ããã
( run in 0.227 second using v1.01-cache-2.11-cpan-eab888a1d7d )