Help for this page

Select Code to Download


  1. or download this
    LOSER ()
{
...
echo "insert into monks values ('$1',sysdate,null,null,null,'OP',null,
+'$8',2329,$3);" >> $OPTHREE
}
  2. or download this
    MONKS ()
{
echo "insert into monks values ('$1',sysdate,null,null,null,'OP',null,
+'$8',9999,$3);" >> $OPTHREE
}
  3. or download this
    use strict;
use warnings;
...
$text =~ s/(MONKS[\s\(\)]+{.*?,\s*?)2329(\s*?,[^}]*})/${1}9999${2}/sg;

print "$text";