inplaceEdit

Replicates the "perl -pi -e" command, without a separate process. Edits a file "inplace"

USAGE

  inplaceEdit ($filename, $code);

where $filename is the file to edit, and $code is the action to perform on each line before it is written e.g.

  $code = sub { s/\s+/ /g }

or

  sub dostuff { s/\s+/ /g }
  inplaceEdit ($filename, \&dostuff);

or

  inplaceEdit ($filename, sub { s/\s+/ /g });