perl Getopt::Long 2012-02-28

#!/usr/bin/perl   # import module use Getopt::Long;   # read options $result = GetOptions ( "red" => $red,     "blue" => ...

(3914)次阅读|(0)个评论

Perl 文件基本统计 2012-02-24

use warnings; use strict; open FH,"test.txt"; open RESULT,">result.txt"; open LINE,">line.txt"; open LEN, ">length.txt"; while (<FH>) ...

(2629)次阅读|(0)个评论

查看更多