Perl 交互命令行参数

Perl 命令行读入多个文件

代码

#! /usr/bin/perl -w

use FindBin qw($Bin $Script);
use Getopt::Std;
use File::Path;
use File::Spec;
our %opts = (n=>’0’);
getopts(‘f:s:o:n:’,\%opts);

die “perl $0

      STD  output
      -f   
      -s   
      -n   
      -o   output file\n" unless ($opts{'f'} && $opts{'s'} && $opts{'n'} && $opts{'o'});

$opts{‘o’} = File::Spec->rel2abs($opts{‘o’});
open IN, “$opts{’s’}” or die $!;

###f,s,n为输入文件或参数，o为输出文件。
保存文件为test.pl，命令行运行脚本，不加任何参数的情况下，会提示后面需要的参数：