Re: Substituting for each regular exp in a local file

Almost. This should clear things up a little:

for my $l ($mech->links) {
    my $url  = $l->url;
    my $desc = $l->text;
    my $new  = $url;
       $new =~ s/lol/Laugh Outloud/;

    print "concerning $desc, $url should be $new\n";
    
    # $mech->get( $new );
}
[download]

Be sure to read the WWW::Mechanize::Link page for further info about the links returned by WWW::Mechanize->links().

-Paul

Comment on Re: Substituting for each regular exp in a local file Select or Download Code

Replies are listed 'Best First'.
Re^2: Substituting for each regular exp in a local file by coder57 (Novice) on Dec 23, 2006 at 18:51 UTC
I should have mentioned that I am on activeperl 5.86 (I assume WWW::Mechanize::Link is inbuilt in mechanize?? I haven't been able to find it in the active repository ) So far this is what I have, it simply compiles and goes on to the next prompt, however nothing is done, based on the regular expression which I double checked, the url in file1.html should match the regular expression, maybe it is something basic I have missed `#! perl\bin\perl use strict; use warnings; use WWW::Mechanize; my $mech = WWW::Mechanize->new(); open(FILE, "< file1.html") \|\| print "Unable to open the file file1 \n" +; while (<FILE>) { for my $l ($mech->links) { my $url = $l->url; my $desc = $l->text; my $new = $url; $new =~ s/on\.fe/arax.com/; print "concerning $desc, $url should be $new\n"; # $mech->get( $new ); } } close(FILE);` [download]	[reply] [d/l]
Re^3: Substituting for each regular exp in a local file by coder57 (Novice) on Dec 24, 2006 at 18:30 UTC
If it helps a sample of the html code from file1.html : <li class="MsoNormal" style="line-height: 18.0pt; text-autospace: ideograph-numeric ideograph-other; background: white"> <span style="font-size: 11.0pt; font-family: Tahoma"> <a href="http://...online.feeds.com/link1/" target="_blank" style="c +olor: blue; text-decoration: underline; text-underline: single"> <span style="color: #336699; text-decoration: none">Links Part 2</span></a> </span></li> <li class="MsoNormal" style="line-height: 18.0pt; text-autospace: ideograph-numeric ideograph-other; background: white"> <span style="font-size: 11.0pt; font-family: Tahoma"> <a href="http://...online.feeds.com/link2/" target="_blank" style="c +olor: blue; text-decoration: underline; text-underline: single"> <span style="color: #336699; text-decoration: none">Links Part 3</span></a> </span></li> <li class="MsoNormal" style="line-height: 18.0pt; text-autospace: ideograph-numeric ideograph-other; background: white"> <span style="font-size: 11.0pt; font-family: Tahoma"> <a href="http://...online.feeds.com/link3/" target="_blank" style="c +olor: blue; text-decoration: underline; text-underline: single"> <span style="color: #336699; text-decoration: none">Links Part 4</span></a> </span></li> <li class="MsoNormal" style="line-height: 18.0pt; text-autospace: ideograph-numeric ideograph-other; background: white"> <span style="font-size: 11.0pt; font-family: Tahoma"> <a href="http://...online.feeds.com/link4/" target="_blank" style="c +olor: blue; text-decoration: underline; text-underline: single"> <span style="color: #336699; text-decoration: none">Links Part 5</span></a> </span></li> [download] The contents of the link http://...online.feeds.com/link1/ for example is: `<body> ... </td></tr><tr><td style="height:81%;width:100%;padding:0;text-align:left;"><embed src="http://...arax.../v/gomlckZfGYU..." </embed> </td> </tr> <tr> <td style="height:13%;width:100%;padding:0;text-align:left;">` [download]	[reply] [d/l] [select]