Skalar durchsuchen und gefundene Ergebnisse in Array schreiben
Mal wieder etwas aus der Praxis: Ich stand (stehe) vor dem Problem, daß ich ein Skalar, oder genauer gesagt dem HTML-Quelltext einer Webseite nach Links durchsuchen mußte. Ich suchte also eine Möglichkeit, möglichst schnell alle Links nach dem Schema <a href="test.htm" .....>Linktext</a> zu finden und wenns denn geht gleich in ein Array zu schubsen.
Nach etwas Probiererei kam ich dann zu diesem Ergebnis:
my @array=(); $site=~ s/(<a .+?>.*?<\/a.*?>)/push (@array,$1)/gise;
wobei in $site der Quellcode steht und zum Schluß in @array alle Links.
Und wie gehts? Also, ich habe ja hier über das ausführen von Befehlen in RegEx geschrieben, und dadurch kam ich dann auch drauf: Einfach das Link-Schema (<a.*?<\/a>) suchen lassen und gleich in das Array pushen. Einfach, schnell, Perl eben...