Public ScratchpadDownload, Select Code To D/L

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w

...
    chomp;
    $_ && print $_>0 ? "positive $_" : "negative ".($_*-1);
  }
  2. or download this
    #Remove those pesky ^M (note the ^V will not be visible)
perl -pi -e 's/^V^M//g' <filename>
  3. or download this
    http://www.perlmonks.org/index.pl?node_id=138068&lastnode_id=137863