> 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" and print > "Moved $ARGV" if > /looking_glass\@telus\.net/' *.BAD
And looks something like: perl -nle '/looking_glass\@telus\.net/&&(rename$ARGV,"bad_email/$ARGV"||die$!)&&print"Moved $ARGV"' *.BAD when passed through the sights of a FWP subscriber! I guess the alpha golfers on FWP could reduce that by a further 10 characters ;) I think it works... Jonathan Paton __________________________________________________ Do You Yahoo!? Everything you'll ever need on one web page from News and Sport to Email and Music Charts http://uk.my.yahoo.com -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
