From: "Johnson, Shaunn" <[EMAIL PROTECTED]>
> --you are correct; i did not have a chance to
> --remove the new line (\n) at the end of
> --the command string.  The previous version
> --of this script was to replace the control-M
> --with new line (\n) ... i got carried away
> --after that (*thinking out loud* : i need some sort 
> --of version control when i mess with scripts - ).

Definitely.
(One I quite like is CS-RCS 
http://www.componentsoftware.com/products/rcs/ )
 
> --what *should* happen is that it should
> --remove all of those things in my substitute
> --line.  actually, the control-M is very minor
> --so it can be dropped or commented out for
> --another time.

  open my $IN, "< $filename"
   or die "Can't open $filename: $!\n"
  open my $OUT, "> $outfilename"
   or die "Can't create $outfilename: $!\n"
  while (read $IN, $buff, 10*1024) {
   $buff =~ [EMAIL PROTECTED]&*()}{}d;
   print $OUT $buff;
  }
  close $IN;
  close $OUT;

Jenda
===== [EMAIL PROTECTED] === http://Jenda.Krynicky.cz =====
When it comes to wine, women and song, wizards are allowed 
to get drunk and croon as much as they like.
        -- Terry Pratchett in Sourcery


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to