Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

seanbo's scratchpad

by seanbo (Chaplain)
on Jun 04, 2004 at 18:06 UTC ( [id://361092] : scratchpad . print w/replies, xml ) Need Help??

#!/usr/bin/perl -w local $\ = "\n"; while (<>) { chomp; $_ && print $_>0 ? "positive $_" : "negative ".($_*-1); }
#Remove those pesky ^M (note the ^V will not be visible) perl -pi -e 's/^V^M//g' <filename>
http://www.perlmonks.org/index.pl?node_id=138068&lastnode_id=137863