skinnymofo has asked for the wisdom of the Perl Monks concerning the following question:
I've got a mangled file (yes, it's my fault) that has at least 2 junky Windows control characters inserted at the beginning of every line.
Below, you can see my attempt at picking the control characters off, but I'm obviously doing something wrong because it's not working.
So, Monks, I beg you, hit me with your best advice.
#!/usr/bin/perl -w use strict; my ($infile, $outfile, $line); $infile = "c:/perldev/restore.txt"; $outfile = "c:/perldev/fixed_restore.txt"; open (INFILE, $infile) || die "Can't open $infile! $!"; open (OUTFILE, ">$outfile) || die "Can't open $outfile! $!"; while (<INFILE>) { $line = $_; $line =~ s/^\D{0,2}|\s{0,2}//; print OUTFILE $line; } close (INFILE); close (OUTFILE);
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: cleaning up control characters
by blackmateria (Chaplain) on Oct 27, 2001 at 00:49 UTC | |
by skinnymofo (Scribe) on Oct 27, 2001 at 01:06 UTC | |
Re: cleaning up control characters
by jeroenes (Priest) on Oct 27, 2001 at 00:51 UTC | |
Re: cleaning up control characters
by monkfish (Pilgrim) on Oct 27, 2001 at 00:52 UTC | |
Re: cleaning up control characters
by mandog (Curate) on Oct 27, 2001 at 07:29 UTC |
Back to
Seekers of Perl Wisdom