Wyszukiwanie adresów URL
- Drukuje tylko odnośniki do innych stron WWW:
while ($line = <FILE>) { if ($line =~ /http:/) { print $line; } }
- To samo, ale krócej:
while (<FILE>) { print if /http:/; }
- Drukowanie wszystkich (no, prawie) typów URL:
while (<FILE>) { print if /http:/; print if /ftp:/; print if /mailto:/; # What next? }
- Przykład użycia wyrażenia regularnego z alternatywą:
while (<FILE>) { print if /(http|ftp|mailto):/; }
- Uogólnienie na dowolne (niepuste) ciągi małych i dużych liter zakończone dwukropkiem:
while (<FILE>) { print if /[a-zA-Z]+:/; }
Last modified: poniedziałek, 10 sierpnia 2015, 10:49