True. Wanted to be the first replier ;)
Artem A. Avetisyan
>
> 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
>
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
