Searching files opened by Perl Scripts -> HELP

[Martin Damasek]

On Saturday, April 14, 2001, Sonahl wrote:

What about something like:

open(IF, "phonebook");
while ($line = <IF>) {
  if ($line =~ /Ray/) {
  print $line;
  }
}
close(IF);

> grep Ray phonebook

> which means to display lines that contain "Ray" in it, but now, I
> just don't know how to go about doing this. If you can help, I'll
> greatly appreciate it.


bye Martin Damasek