R
Reinhard Glauber
Ok, the wget problem is solved, but now I have a search Problem
I have $text which contains Text
If he finds "E-Mail", then he cuts the whole line and prints it.
if ($html =~ /E-Mail.*\n/)
{
print "$&\n";
}
What I want to do now is, that Perl grabs 5 lines BEFORE the occurance of E-Mail.
Perl Gmbh
Munichstreet 5
80802 Munich
Tel.: 9038429038/38420384
E-Mail: (e-mail address removed)
So Perl should cut all the 4 Lines befor E-Mail and put it into an array, or something like that.
I dont need the whole code, just some tips how to do that
THANKS
I have $text which contains Text
If he finds "E-Mail", then he cuts the whole line and prints it.
if ($html =~ /E-Mail.*\n/)
{
print "$&\n";
}
What I want to do now is, that Perl grabs 5 lines BEFORE the occurance of E-Mail.
Perl Gmbh
Munichstreet 5
80802 Munich
Tel.: 9038429038/38420384
E-Mail: (e-mail address removed)
So Perl should cut all the 4 Lines befor E-Mail and put it into an array, or something like that.
I dont need the whole code, just some tips how to do that
THANKS