Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • And with Term::ANSIColor [perladvent.org] you don't even have to remember or look up what the code for red is :-)

    (I know...why complicate a perfectly simple thing :)

    • Here's a version that uses Term::ANSIColor and takes a -c option to define the colour used.

      #!/usr/bin/perl

      use Term::ANSIColor ':constants';
      use Getopt::Std;

      my %opts;
      getopts('c:w:', \%opts);

      $opts{w} ||= shift;
      $opts{c} = eval $opts{c} || RED;

      while (<>) {
        s/\Q$opts{w}\E/$opts{c} . $opts{w} . RESET/ge;
        print;
      }

      Might want to add some code checking the contents of $opt{c} before running "eval" on it.