reverse-scen

来自「ns2.1b5版本中cbrp碼」· 代码 · 共 29 行

#!/usr/bin/perl -w

my $INFILE=100;
my $OUTFILE=101;

if ($#ARGV > 1) {
    print "Usage: $0 [input file] [output file]\n";

} elsif ($#ARGV == 0) {
    print STDERR "Input: $ARGV[0]\n";
    print STDERR "Output: stdout\n";

    open $INFILE,"$ARGV[0]" or die "Cannot open input file $ARGV[0]\n";
    $OUTFILE = STDOUT;

} elsif ($#ARGV == 1) {
    print STDERR "Input: $ARGV[0]\n";
    print STDERR "Output: $ARGV[1]\n";

    open $INFILE,"$ARGV[0]" or die "Cannot open input file $ARGV[0]\n";
    open $OUTFILE,"+>$ARGV[1]" or die "Cannot open output file $ARGV[1]\n";

} else {
    $INFILE = STDIN;
    $OUTFILE = STDOUT;
}

print $OUTFILE reverse <$INFILE>;