W
Wang Penghui
Hi all:
I am a newbie with perl. I have met a pazzle now.
I have a file with thousands of lines. And which line has four fields.
They are separated by a "\t".
Such as:
================file==================
line1first line1second line1third line1fourth
line2first line2second line2third line2fourth
line3first line3second line3third line3fourth
........
Now i want to replace some words in the fourth field. While the first
three fields stay here as before.
I have writen a little code about it. Here is it:
open (ZH,"file") || die "could not open filename!"
@instead=split(/\t/,<ZH>);
close (ZH) || die "could not close filename!"
open (ZH,">file") || die "could not open filename!"
foreach (@instead) {
s/original/changed/g
print ZH $_;
};
close (ZH) || die "could not close filename!"
This script would replace all the words matched in each field. But it's
not what i want to get.
Anyone could pick me up?
Thanks in advance!
Wang Penghui
I am a newbie with perl. I have met a pazzle now.
I have a file with thousands of lines. And which line has four fields.
They are separated by a "\t".
Such as:
================file==================
line1first line1second line1third line1fourth
line2first line2second line2third line2fourth
line3first line3second line3third line3fourth
........
Now i want to replace some words in the fourth field. While the first
three fields stay here as before.
I have writen a little code about it. Here is it:
open (ZH,"file") || die "could not open filename!"
@instead=split(/\t/,<ZH>);
close (ZH) || die "could not close filename!"
open (ZH,">file") || die "could not open filename!"
foreach (@instead) {
s/original/changed/g
print ZH $_;
};
close (ZH) || die "could not close filename!"
This script would replace all the words matched in each field. But it's
not what i want to get.
Anyone could pick me up?
Thanks in advance!
Wang Penghui