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()
> {
> print writeFile $1, $2 ,"n\n" if m/(\w+\s)(\w+\s
#!/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()
{
print writeFile $1, $2 ,"n\n" if m/(\w+\s)(\w+\s)/;
}
_
