Wyszukiwanie adresów URL

  1. Drukuje tylko odnośniki do innych stron WWW:

    
    while ($line = <FILE>) {
        if ($line =~ /http:/) {
            print $line;
        }
    }
    
    

  2. To samo, ale krócej:

    
    while (<FILE>) {
        print if /http:/;
    }
    
    

  3. Drukowanie wszystkich (no, prawie) typów URL:

    
    while (<FILE>) {
        print if /http:/;
        print if /ftp:/;
        print if /mailto:/;
        # What next?
    }
    
    

  4. Przykład użycia wyrażenia regularnego z alternatywą:

    
    while (<FILE>) {
        print if /(http|ftp|mailto):/;
    }
    
    

  5. 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