Subject: Re: problem with nested regex matchs
What does this post have to do with "nested regex matchs"?
shanmugam m wrote:
Hi,
This is my first perl program..I'm getting wired errors.Please take a
look.
What errors are you getting?
#!persist/pkg/bin/perl
use diagnostics;
use warnings;
open(MYINPUTFILE ,"/net/fallsroot/export/d100/m4/input_file");
open(MYOUTFILE, "> output_file");
foreach $line (<MYINPUTFILE>){
chomp($line); # remove the newline from $line.
# do line-by-line processing.
my @column1 = split("/\\/",$line);
print MYOUTFILE $column1[5] ,"\t" ;
my @column2 = split("=",$line);
print MYOUTFILE $column2[1] ,"\n" ;
}
close(MYOUTFILE);
Regards,
Shanmugam
John
--
Any intelligent fool can make things bigger and
more complex... It takes a touch of genius -
and a lot of courage to move in the opposite
direction. -- Albert Einstein
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
