At 10:19 AM 1/12/2006,
=?koi8-r?Q?=E1=D2=D4=C5=CD=20=E1=D7=C5=D4=C9=D3=D1=CE?= wrote:
If you want tab instead of space after each country code, try this:
while (<FILEFROM>) {
if (/\d\s[A-Z]{3}\s/) {
s/(\d\s[A-Z]{3})\s/$1\t/g;
}
print FILETO $_;
}
I don't see the point of the if statement. Why not just do the
s/.../g as the only statement in the while loop.
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
