view release on metacpan or  search on metacpan

Infix2Postfix.pm  view on Meta::CPAN

package Affix::Infix2Postfix;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

#use Data::Dumper;

require Exporter;
require AutoLoader;

@ISA = qw(Exporter AutoLoader);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
@EXPORT = qw(
	

test.pl  view on Meta::CPAN

# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)

BEGIN { $| = 1; print "1..1\n"; }
END {print "not ok 1\n" unless $loaded;}
use Affix::Infix2Postfix;
$loaded = 1;
print "ok 1\n";

#use Data::Dumper;

#$str="-23.e10*sin(x+y)+cos(x)";
$str="x**y<<2+z";

#operators in precedence order!

$inst=Affix::Infix2Postfix->new(
				'ops'=>[
					{op=>'<<'},
					{op=>'>>'},