Erwin Zavala wrote:
> #!/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)/;
> }Hi Erwin. I'm not clear whether you still have a question. At a glance the code above looks good - is it working for you? Just one thing: the module is 'Fcntl' not 'fcntl'. It may be OK this way if you have a case-independent filing system, but in general you should make sure that your module names are capitalised properly. Cheers, Rob -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
