littlewenwen has asked for the wisdom of the Perl Monks concerning the following question:
Dear All
I have a tab delimited dataset "RawFile":
abcd 123 456 defg cdefg 23 as 345 235 xsd swe
And I want to change all missing values to "Missing". So I wrote the following codes:
#!/usr/bin/perl use warnings; use strict; open(my $outfile,">","UpdatedFile") || die " \n"; open (my $infile,"<","RawFile") or die "Cannot open: $!\n"; while(<$infile>){ chomp; my @fieldsvar =split(/\t/); foreach (@fieldsvar) { if ($_ eq ""){$_="Missing"} } print $outfile "@fieldsvar\n"; };
The code works ok, except that I have to create a new file "UpdatedFile"; can anyone suggest some method so that the code can be re-written which can do a in-place update of the "RawFile"?
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: how to in-place update a dataset?
by kcott (Archbishop) on Mar 14, 2013 at 03:47 UTC | |
Re: how to in-place update a dataset?
by educated_foo (Vicar) on Mar 14, 2013 at 02:24 UTC | |
by littlewenwen (Novice) on Mar 14, 2013 at 02:55 UTC | |
by Athanasius (Archbishop) on Mar 14, 2013 at 03:26 UTC | |
by educated_foo (Vicar) on Mar 14, 2013 at 04:23 UTC | |
Re: how to in-place update a dataset?
by jaredor (Priest) on Mar 14, 2013 at 07:15 UTC | |
by littlewenwen (Novice) on Mar 14, 2013 at 14:24 UTC |
Back to
Seekers of Perl Wisdom