I still play the old BBS game TradeWars 2002 and created a program to help analyze the CIM download output. However, I get the error
Can't find string terminator "EODATA" anywhere before EOF at ports.pl line 30.
when I attempt to run it. The code is below. Any help and/or suggestions appreciated!
#!/usr/bin/perl -w
use strict;
my $file = shift || die "SYNOPSIS: $0 datafile\n";
open( IN, $file );
my @in = <IN>;
close IN;
#
# The raw data is almost already in perl format.
#
my @out;
foreach( @in )
{
last if /: ENDINTERROG/;
push @out, "};\n\nsub ports\n{\n" if /:/;
next if /:/;
s/-\s*/-/g; # remove whitespace after minus sign
s/(\d+)\%/0.$1/g; # change n% to 0.n
# finally, turn it into a hash reference
s/^\s*(\d+) (.*)$/ \'$1\' => [ qw ( $2 ) ],/;
push @out, $_;
}
open OUT, ">$file.pm";
print OUT<<EODATA;
sub warps
{
@out
};
1;
EODATA
close OUT;
Edit Masem 2002-02-19 - Changed title from "TW2002"