in reply to Re: Substituting for each regular exp in a local file
in thread Substituting for each regular exp in a local file

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]

Replies are listed 'Best First'.
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]

In Section Seekers of Perl Wisdom