#!/usr/local/bin/perl

use warnings;
use strict;

#Program potrzebuje pliku test.html. Sciagamy go poleceniem:
#
# wget http://149.156.111.10/~mwilkus -O test.html
#
# Program wyprowadza adresy hiperlaczy ze strony, pod warunkiem,
# ze jest 1 hiperlacze na linie.


open (my $FH, '<',"test.html") or die("Cannot open input file!\n");

while (my $ln = <$FH>)
{
        my $start=index($ln,"href=\""); #Pozyskaj pozycje startowa napisu href=" - otwarcie hiperlacza
        if ($start > -1)                #Jezeli znaleiono taki napis...
        {
                $start=$start+6; #6 - dlugosc tekstu: href="
                my $end = index($ln,"\">",$start);    #Pozyskaj koniec adresu - pozycje tekstu "> po odnalezionym otwarciu
                print substr($ln,$start,$end-$start); #Wydrukuj tekst od pozycji startowej, o dlugosci koniec-start znakow.
                print "\n";
        }
}

close($FH);