version 1.1, 2005/02/24 01:21:51
|
version 1.2, 2005/02/24 08:24:40
|
Line 6 use AlgParser;
|
Line 6 use AlgParser;
|
my $parser = new AlgParserWithImplicitExpand; |
my $parser = new AlgParserWithImplicitExpand; |
my $ret; |
my $ret; |
|
|
$ret = $parser -> parse($ARGV[0]); |
foreach $str (@ARGV) { |
|
$ret = $parser -> parse($str); |
if ( ref($ret) ) { |
if ( ref($ret) ) { |
$parser -> tostring(); |
$parser -> tostring(); |
$parser -> normalize(); |
$parser -> normalize(); |
Line 14 if ( ref($ret) ) {
|
Line 15 if ( ref($ret) ) {
|
} else { |
} else { |
print $parser->{htmlerror}; |
print $parser->{htmlerror}; |
} |
} |
|
print "\n"; |
|
} |
|
|