自动生成Perl程序输入参数处理代码

Nov 16	自动生成Perl程序输入参数处理代码
	Categories: Perl \| Tags: Perl \| Views: 489

习惯于linux下用perl来处理一些文件文件和数据, 有时候就难免会写大量的脚本, 为脚本配上好的注释, 以及统一编码风格, 这是一个好的习惯.

只是需要敲入大量的重复代码. 其中对于输入参数的处理就是这样.

例如下面这段代码:

# This is a demo!
 
if( @ARGV<1 ) {
    print STDERR "\n == INTRODUCTION ==\n";
    print STDERR "  This is a demo!\n";
    print STDERR "\n == PARAMETERS ==\n";
    print STDERR "  -i <input> input text file\n";
    print STDERR "  -o <output> output file\n";
    print STDERR "     DEFAULT:output\n";
    print STDERR "\n == USAGE ==\n";
    print STDERR "  $0 -i <input> \n";
    print STDERR "  $0 -i <input> -o output \n\n";
}
 
my (
    $temp,
    $input,  # -i
    $output  # -o
);
 
while(@ARGV){
    $temp = shift;
    if( $temp eq "-i" ){ $input = shift; }
    elsif( $temp eq "-o" ){ $output = shift; }
    else{
        print STDERR "Warning: argument $temp igorned.\n";
    }
}
 
if(!defined($input)){
    print STDERR "Error: argument '-i' is needed.\n";
    exit;
}
 
if(!defined($output)){
    $output = "output"
}
 
## End of handling parameters ##