> Okay, I'll play:
>
> cd /home/slutz/temp; perl -nle '(rename $ARGV,
> "bad_email/$ARGV" or die $!)
> and print "Moved $ARGV" and close ARGV if
> /looking_glass\@telus\.net/' *.BAD
>
> If you don't have to die on bad rename()s then you can
> just:
>
> perl -nle 'rename $ARGV, "bad_email/$ARGV
At 04:12 PM 2/8/02 -0800, Scott Lutz wrote:
>This should be a weekly thing :
>See who can send in the most useful Perl one liner!
Hie thee to the Fun With Perl list (see lists.perl.org). This is not
necessarily the stuff of beginners.
>So to start it off, I would like some suggestions on some
