view-source:https://europa.eu/youth/volunteering/evs-organisation_en

<h3>EVS accredited organisations search results: <span class="ey_badge">6066</span></h3>  </div>

#!C:\Perl\bin\perl 
 
use warnings; 
 
BEGIN { 
	open my $file1,"+>>", ("links.txt"); 
	select($file1);   
} 
use LWP::Simple; 
use LWP::UserAgent; 
use HTTP::Request; 
use HTTP::Response; 
use HTML::LinkExtor; 
 
#The Url I want it to start at; 
$URL = "view-source:https://europa.eu/youth/volunteering/evs-organisation_en"; 
 
#Request and receive contents of a web page; 
for ($URL) { 
$contents = get ($URL); 
$browser = LWP::UserAgent->new('IE 6'); 
$browser->timeout(10);	 
my $request = HTTP::Request->new(GET => $URL); 
my $response = $browser->request($request); 
 
#Tell me if there is an error; 
if ($response->is_error()) {printf "%s\n", $response->status_line;} 
$contents = $response->content(); 
 
#Extract the links from the HTML; 
my ($page_parser) = HTML::LinkExtor->new(undef, $URL); 
	$page_parser->parse($contents)->eof; 
	@links = $page_parser->links; 
 
#Print the link to a links.txt file; 
foreach $link (@links) {print "$$link[2]\n";} 
}

use strict; 
use warnings FATAL => qw#all#; 
use LWP::UserAgent; 
use HTML::TreeBuilder::XPath; 
use Data::Dumper; 
 
my $handler_relurl      = sub { q#https://europa.eu# . $_[0] }; 
my $handler_trim        = sub { $_[0] =~ s#^\s*(.+?)\s*$#$1#r }; 
my $handler_val         = sub { $_[0] =~ s#^[^:]+:\s*##r }; 
my $handler_split       = sub { [ split $_[0], $_[1] ] }; 
my $handler_split_colon = sub { $handler_split->( qr#; #, $_[0] ) }; 
my $handler_split_comma = sub { $handler_split->( qr#, #, $_[0] ) }; 
 
my $conf = 
{ 
    url      => q#https://europa.eu/youth/volunteering/evs-organisation_en#, 
    parent   => q#//div[@class="vp ey_block block-is-flex"]#, 
    children => 
    { 
        internal_url => [ q#//a/@href#, [ $handler_relurl ] ], 
        external_url => [ q#//i[@class="fa fa-external-link fa-lg"]/parent::p//a/@href#, [ $handler_trim ] ], 
        title        => [ q#//h4# ], 
        topics       => [ q#//div[@class="org_cord"]#, [ $handler_val, $handler_split_colon ] ], 
        location     => [ q#//i[@class="fa fa-location-arrow fa-lg"]/parent::p#, [ $handler_trim ] ], 
        hand         => [ q#//i[@class="fa fa-hand-o-right fa-lg"]/parent::p#, [ $handler_trim, $handler_split_comma ] ], 
        pic_number   => [ q#//p[contains(.,'PIC no')]#, [ $handler_val ] ], 
    } 
}; 
 
print Dumper browse( $conf ); 
 
sub browse 
{ 
    my $conf = shift; 
     
    my $ref = [ ]; 
 
    my $lwp_useragent = LWP::UserAgent->new( agent => q#IE 6#, timeout => 10 ); 
    my $response = $lwp_useragent->get( $conf->{url} ); 
    die $response->status_line unless $response->is_success; 
    my $content = $response->decoded_content; 
 
    my $html_treebuilder_xpath = HTML::TreeBuilder::XPath->new_from_content( $content ); 
    my @nodes = $html_treebuilder_xpath->findnodes( $conf->{parent} ); 
    for my $node ( @nodes ) 
    { 
        push @$ref, { };  
         
        while ( my ( $key, $val ) = each %{$conf->{children}} ) 
        { 
            my $xpath    = $val->[0]; 
            my $handlers = $val->[1] // [ ]; 
             
            $val = ($node->findvalues( qq#.$xpath# ))[0] // next; 
            $val = $_->( $val ) for @$handlers; 
            $ref->[-1]->{$key} = $val; 
        } 
    } 
 
    return $ref; 
}

{ 
    'internal_url' => 'https://europa.eu/youth/volunteering/organisation/948417016_en', 
    'external_url' => 'http://www.apd.ge', 
    'location' => 'Tbilisi, Georgia', 
    'title' => '"Academy for Peace and Development" Union', 
    'topics' => [ 
                  'Access for disadvantaged', 
                  'Youth (Participation, Youth Work, Youth Policy)', 
                  'Intercultural/intergenerational education and (lifelong)learning' 
                ], 
    'pic_number' => '948417016', 
    'hand' => [ 
                'Receiving', 
                'Sending' 
              ] 
}

use LWP::UserAgent;  
use HTML::TreeBuilder::XPath;  
use Data::Dumper;

http://europa.eu/youth/volunteering/evs-organisation_en?country=&topic=&field_eyp_vp_accreditation_type=All&town=&name=&pic=&eiref=&inclusion_topic=&field_eyp_vp_feweropp_additional_mentoring_1=&field_eyp_vp_feweropp_additional_physical_environment_1=&field_eyp_vp_feweropp_additional_other_support_1=&field_eyp_vp_feweropp_other_support_text=&&page=5

 
 
http://europa.eu/youth/volunteering/evs-organisation_en?country=&topic=&field_eyp_vp_accreditation_type=All&town=&name=&pic=&eiref=&inclusion_topic=&field_eyp_vp_feweropp_additional_mentoring_1=&field_eyp_vp_feweropp_additional_physical_environment_1=&field_eyp_vp_feweropp_additional_other_support_1=&field_eyp_vp_feweropp_other_support_text=&&page=6

http://europa.eu/youth/volunteering/evs-organisation_en?country=&topic=&field_eyp_vp_accreditation_type=All&town=&name=&pic=&eiref=&inclusion_topic=&field_eyp_vp_feweropp_additional_mentoring_1=&field_eyp_vp_feweropp_additional_physical_environment_1=&field_eyp_vp_feweropp_additional_other_support_1=&field_eyp_vp_feweropp_other_support_text=&&page=7

my $url_pattern = 'https://europa.eu/youth/volunteering/evs-organisation_en&page=%s'; 
 
for my $page ( 0 .. $last ) 
{ 
    my $url = sprintf $url_pattern, $page; 
     
    ... 
}

for x in {0..99999}; do 
    zx=$(printf '%05d' $x)  # zero-pad to 5 digits 
    url="http://example.com/video-1080P${zx}.ts" 
    ...  # Do something with url - done

my @arr(somting somting1);  
for my $i(0 .. $#arr){  
    my url = get (www.$arr[$i].com);  
    do something with url...  
}

my @domains = ( ... ); 
for my $domain ( @domains ) { 
    my $url = "http://www.$host.com"; 
    ... 
}

    use strict; 
    use warnings; 
    use 5.010; 
      
    use HTTP::Tiny; 
      
    my @urls = qw( 
    	https://perlmaven.com/ 
    	https://cn.perlmaven.com/ 
    	https://br.perlmaven.com/ 
    ); 
      
    my $ht = HTTP::Tiny->new; 
      
    foreach my $url (@urls) { 
    	say "Start $url"; 
        my $response = $ht->get($url); 
        if ($response->{success}) { 
            say 'Length: ', length $response->{content}; 
        } else { 
            say "Failed: $response->{status} $response->{reasons}"; 
        } 
    }