I thought fcntl would take care if barewords

[Erwin Zavala]

#!/user/bin/perl

use strict;
use fcntl;
my $path1 = "export.txt";
my $path2 = "export3.txt";
sysopen(openFile, $path1, O_RDONLY) || die $!;
sysopen(writeFile, $path2, O_WRONLY|O_CREAT ) || die $!;
while(<openFile>)
{
print writeFile $1, $2 ,"n\n" if m/(\w+\s)(\w+\s)/;
}




_________________________________________________________________
STOP MORE SPAM with the new MSN 8 and get 2 months FREE*  
http://join.msn.com/?page=features/junkmail

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]