I wasnt to create a script that reads in a html page from another site (like <A HREF=" TARGET="_new"> it, it's fun) and replaces certain elements/words with others.<br><br>Displaying the file is easy, it is just how do I read in the web page that is not on the same server into an array/variable? I can do files on the same server and displaying them is easy.<br><br>Also, when I use:<br><br>$variable =~ s/\#\#(bit to replace)\#\#/$replacement/;<br><br>it replaces all of the text including the two sets of ##<br><br>using tr/ has the same effect.<br><br>Any suggestions? <p>fortytwo<br><a href=mailto:will@hellacool.co.uk>will@hellacool.co.uk</a><br><a href= test site</a><br>
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
how do you read in a html page from another site? 1
- Thread starter fortytwo
- Start date
-
1
- #2
I think this is will work.....<br><br><FONT FACE=monospace>#!perl<br>use LWP::Simple;<br>$URL = '<A HREF=" TARGET="_new"> = get("$URL"
;<br>print $content;<br></font> <p> <br><a href=mailto: > </a><br><a href= > </a><br> keep the rudder amid ship and beware the odd typo
;<br>print $content;<br></font> <p> <br><a href=mailto: > </a><br><a href= > </a><br> keep the rudder amid ship and beware the odd typo- Thread starter
- #3
nifty, Thanks. Any more uses of the get command?<br><br>also, any ideas on the following:<br>when I use:<br><br>$variable =~ s/\#\#(bit to replace)\#\#/$replacement/;<br><br>it replaces all of the text including the two sets of ##<br><br>using tr/ has the same effect.<br><br>Any suggestions? <br><br>Thanks <p>fortytwo<br><a href=mailto:will@hellacool.co.uk>will@hellacool.co.uk</a><br><a href= test site</a><br>
I dunno why, but this does not work for me<br><br>use LWP::Simple;<br>$URL = '<A HREF=" TARGET="_new"> (!($content = get("$URL")){ die "cannot connect";}<br>print $content;<br><br>i get a connect error
)){ die "cannot connect";}<br>print $content;<br><br>i get a connect errorabout the connect error......I dunno......I have only recently started using the LWP::Simple module myself. I do know that LWP::Simple is a limited treatment of lib you are having problems, you may need to use a more robust portion of LWP than LWP::Simple. Check out 'perldoc LWP::Simple' for more.<br><br>about the pattern matching......<br><br><br><FONT FACE=monospace>$variable =~ s/\#\#(bit to replace)\#\#/$replacement/;</font><br><br>The <font color=red>s/find_pattern/replacement/</font> syntax replaces the stuff in the first set of slashes with the stuff in the second set of slashes. The use of '()' around your 'bit to replace' has no effect on this behavior. Instead, the paren's catch the 'bit to replace' in $1. So, if you want to keep the #'s, you have to put them back with the replace pattern....<br><FONT FACE=monospace>$variable =~ s/\#\#(bit to replace)\#\#/\#\#$replacement\#\#/;</font><br><br>....not quite as ugly, but a little slower.....<br><FONT FACE=monospace>$variable =~ s/(\#\#)bit to replace\#\#/$1$replacement$1/; </font><br>This catches the '##' in $1, and includes them in the replacement string.<br><br> <p> <br><a href=mailto: > </a><br><a href= > </a><br> keep the rudder amid ship and beware the odd typo
- Thread starter
- #6
I have tried this script, but it only gives the output of the header and footer sub routines. I guess I am doing something stupid, any suggestions?<br><br><FONT FACE=monospace><br>#!/usr/local/bin/perl<br><br>use LWP::Simple;<br>$URL = '< = get("$URL");<br><br>&html_header;<br><br>print $content;<br><br>&html_trailer;<br>#######################################################<br>#sub routines<br><br>sub html_header {<br> print "Content-type: text/html\n\n";<br> print "<html><head><title>Testing...</title></head>\n";<br> print "<body>\n";<br> print "<hr><br><br>\n";<br>}<br><br>sub html_trailer {<br> print "<br><br><hr>\n";<br> print "</body></html>\n";<br>}<br></font><br><br>Notice the excellent use of the tt tags <br> <p>fortytwo<br><a href=mailto:will@hellacool.co.uk>will@hellacool.co.uk</a><br><a href= test site</a><br>
<br> <p>fortytwo<br><a href=mailto:will@hellacool.co.uk>will@hellacool.co.uk</a><br><a href= test site</a><br>Me again. I figured out why i was getting the connect error. It is because of the proxy server of where im working. So if any1 else is having trouble with this. Here is what u do.<br><br>use LWP::UserAgent<br>$ua = new LWP::UserAgent;<br>$ua->proxy(http => '<A HREF=" TARGET="_new"> $req = new HTTP::Request('GET', '<A HREF=" TARGET="_new"> = $ua->request($req)->as_string;<br><br><br>
- Thread starter
- #8
I am not getting a connect error, it is just not displaying anything except what is in the subs. The script is on a shared server, not my own. here is the URL:<br><br><A HREF=" TARGET="_new"> <p>fortytwo<br><a href=mailto:will@hellacool.co.uk>will@hellacool.co.uk</a><br><a href= test site</a><br>
I am having a similar problem.
I am trying to connect to yahoo.com and submit my user/pass.I found out where I have to submitted but I get the following error
Use of uninitialized value in print....
Although how can I form_query behind a firewall?
Thanks a lot
George
I am trying to connect to yahoo.com and submit my user/pass.I found out where I have to submitted but I get the following error
Use of uninitialized value in print....
Although how can I form_query behind a firewall?
Thanks a lot
George
- Status
Similar threads
