reverse-scen

CBRP协议（移动adhoc中基于分簇的路由协议）ns2下的源码

#!/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>;