topic Help on Perl Script. in Operating System - Linux

Help on Perl Script.

Junior C. — Tue, 21 Aug 2007 15:56:14 GMT

I'm trying to delete all " from file. Following are a snippet of perl script.

my @MYFILE=;
foreach my $value (@MYFILE)
{
$value =~ s/\"//g;
print "$value";
}
close (OUT);

Output:
"LastName FirstName" 76

Output I'm trying to get
LastName FirstName 76

Appreciate all help

JC

Re: Help on Perl Script.

Stuart Browne — Tue, 21 Aug 2007 16:25:24 GMT

This one-liner does the job:

perl -pi -e 's/"//g' file

Does it in-place, and quickly.

Re: Help on Perl Script.

James R. Ferguson — Tue, 21 Aug 2007 16:51:13 GMT

Hi:

As Stuart showed:

# perl -pi -e 's/"//g' file

...eliminates a double quote (globally).

The file is updated "in-place". If you want to preserve a backup (old) version, simply specify an argument after the "i" switch like:

# perl -pi.old -e 's/"//g' file

...which will preserve the original "file" as "file.old".

You can process multiple files at once by listing all their names as the script's arguments:

# perl -pi -e 's/"//g' file1 file2 file3 ...

Regards!

...JRF...