> From: Francesco Guglielmo <[EMAIL PROTECTED]>
> Date: Tue, 14 May 2002 14:18:18 +0200
> To: David vd Geer Inhuur tbv IPlib <[EMAIL PROTECTED]>,
> [EMAIL PROTECTED]
> Subject: Re: Split
>
> Many thanks!But to take it from a file and not from a variable like $line?
open FILEHANDLE, /path/file.txt or die("Error opening FILEHANDLE: $!\n");
open WRITETOFILE, >/path/outfile.txt or die();
While (<FILEHANDLE>) {
chomp;
my @parts = split /:\s+/;
print WRITETOFILE "$parts[1] $parts[0]\n" unless @parts != 2;
}
The file you specify as WRITETOFILE would then look like:
name username
Two names username
Three names here username
Tor
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
