[VPM] Useful tiny script

[abez]

This is a very useful script:

#!/usr/bin/perl
for(@ARGV){print eval;print"\n";die $@,"\n"if $@}

So you save and call it print

anyways put it your path

no you can go:

print '3**(1/3)' and you get the answer
or
print 'sort(qw(

print 'srand();join(" ",sort{int(rand()*3-1)}(qw(1 3 43 3 3 2 34 76  7 54 3  3 4 4 3 2 2 3 12 5 4 3 2 3 4 32)))'

it's just a faster print -e

[abez at supernaut abez]$ print 1 time 2 'join(",",reverse localtime)'
1
1047853394
2
0,74,0,103,2,16,14,23,14

I think the commandline math is the best.

-- 
abez ------------------------------------------
http://www.abez.ca/ Abram Hindle (abez at abez.ca)
------------------------------------------ abez