How to search a string in a given line

[super.sumanth]

Hi,
i want to serach for a string in line read from a file,

open(fd,$file)
@buffer=<fd>;
foreach $line(@buffer)
{
#search for a string "Bin" in each line";
--------
}

How to do it??
Please help me.
Thanks

 

[Josef Moellers]

Hi,
i want to serach for a string in line read from a file,

open(fd,$file)

- lexical file handles are deprecated.
- use the 3-argument form of open.
- check the return value of open
- semicolon missing.

@buffer=<fd>;
foreach $line(@buffer)
{

if ($line =~ /Bin/) {
print "$line\n";
}

}

How to do it??
Please help me.
Thanks

You could do it in one go:

open (my $fd, '<', $file) or die "Cannot open $file: $!";
while (<$fd>) {
next unless /Bin/;
chomp;
# $_ contains "Bin"
}

HTH,

Josef