Re: searching word in script

Irfan J Sayed schreef: > great it's working fine No, it is still a mess. -- Affijn, Ruud "Gewoon is een tijger." -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: searching word in script

great it's working fine thanks Regards Irfan Sayed <[EMAIL PROTECTED]> 06/02/2006 05:24 PM To Irfan J Sayed/India/[EMAIL PROTECTED] cc Subject RE: searching word in script Use '||' instead of '|'. -Original Message- From: Irfan J Sayed

RE: searching word in script

Hi All, I modified the code as per suggession but still error #!/usr/local/bin/perl # Main program use warnings; use strict; use File::Find; my $file = "c:\\irfan\\cqcmd.txt"; open (FH, $file) | die "file can't open $! \n"; my ($line); while ($line = ) { if ($line =~m/foo/)

Re: searching word in script

Irfan J Sayed am Freitag, 2. Juni 2006 09:23: > Hi All, Hi > I am using following code > > #!/usr/local/bin/perl > > # Main program > > use warnings; > use strict; > use File::Find; # File::Find is never used > > my $file = 'c:\\backup.pl'; > open (FH, $file); # Always check results of

Re: searching word in script

my $word = pop; #what is this for? open(FH, "$file") or die "$!"; while (my $line = ) { if ($line =~ m/foo/) { print "matched!"; next; } print "unmatched :("; } close(FH); On 6/2/06, Irfan J Sayed <[EMAIL PROTECTED]> wrote: Hi All, I am using following code #!/u

Re: searching word in script

Irfan J Sayed schreef: > I am using following code > > #!/usr/local/bin/perl > > # Main program > > use warnings; > use strict; > use File::Find; > > my $file = 'c:\\backup.pl'; > open (FH, $file); > my ($line); > my $word = pop; > while ($line = ) > { >if ($line =~/$word/) >{