Irfan J Sayed schreef:
> #!/usr/local/bin/perl > > use warnings; > use strict; Good! > my $file = "c:\backup.pl"; Use my $file = 'c:\backup.pl'; or rather my $file = 'c:/backup.pl'; > open(FH,$file) || die " can't open a file"; Make that: open my $fh, '<', $file or die "Error opening '$file': $!" ; > my $pattern = '\w\s\w'; my $pattern = qr/\w\s\w/ ; > my $input = <>; > print "yes got the match " if $input =~ /$pattern/; Try this: while ( <$fh> ) { /$pattern/ and printf "match in line %s\n", $. ; } > but i am getting following error > > Name "main::FH" used only once: possible typo at C:\irfan\search.pl close $fh or die "Error closing '$file': $!" ; -- Affijn, Ruud "Gewoon is een tijger." -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>