Help for this page

Select Code to Download


  1. or download this
    my $infile = shift || die usage() ;
my $outfile = shift || die usage() ;
...
sub usage () {
    print "usage : prog foo bar\n" ;
}
  2. or download this
    unless(@ARGV == 2)
{
...
}

my ($infile, $outfile) = @ARGV ;
  3. or download this
    die "usage : prog foo bar\n" unless (@ARGV == 2) ;

my ($infile, $outfile) = @ARGV ;