# opr-pl - Perl operator precedence reference table
# Steve Kinzler, kinzler@cs.indiana.edu, Mar 98
# http://www.cs.indiana.edu/~kinzler/home.html#refer

left		terms and list operators (leftward)
left		->
nonassoc	++  --
right		**
right		!   ~   \   and unary + and -
left		=~  !~
left		*   /   %   x
left		+   -   .
left		<<  >>
nonassoc	alarm  chdir  cos  chroot  exit  eval  exp  getpgrp
		getprotobyname  gethostbyname  getnetbyname  gmttime  hex
		int  length  localtime  log  ord  oct  require  reset
		rand  rmdir  readlink  sin  sleep  sqrt  srand  umask
nonassoc	<   >   <=  >=  lt  gt  le  ge
nonassoc	==  !=  <=> eq  ne  cmp
left		&
left		|   ^
left		&&
left		||
nonassoc	..
right		?:
right		=   +=  -=  *=  etc
left		,   =>
nonassoc	list operators (rightward)
left		not
left		and
left		or  xor

use Data::Dumper;
print Data::Dumper::Dumper(%foo);

#se Devel::SmallProf;
perl -d:SmallProf foo.pl
sort -k 2nr,2 smallprof.out
catrm smallprof.out