Help for this page

Select Code to Download

Select or download this

  $fileName = shift;
  open(HND, $fileName) or die "Can't open $fileName: $!";
  @fileArr = <HND>;
...
  open(HND, ">$fileName") or die "Cant open for writing $fileName: $!"
+;
  print HND @fileArr;
  close(HND);