$s.=$_ while <STDIN>;$s=~s/.../.../;
... lacks slurp mode and introduces an unneeded variable $s:
undef$/;$_=<STDIN>;s/.../.../;
$#ARGV<0&&exit 1;
Much typing to test if @ARGV has elements, and exit 1 can be shortened to die, if the additional error message does not disturb:
@ARGV||die;
perl -e'use re "eval";';$#ARGV<0&&exit 1;...'
... can be shortened on the perl command line:
perl -Mre=eval -e '@ARGV||die;...'
Alexander
--
Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)
|