simple/waste/patchperl

14 lines
205 B
Plaintext

perl=`which perl`
if [ $# -ne 2 ]
then
echo "Usage $0 source target" >&2
exit 1
fi
if [ -z "$perl" ]
then
echo "$0: cannot find perl binary" >&2
exit 1
fi
sed -e "s,@@@perl@@@,$perl," < $1 > $2
exit 0