Need help with Perl Script

[bagik]

Can anyone help me rewrite the following part of perl script. I need to add another url if I want to count for Canada.

&get_url;

$number_of_tries = 0;
while ($found eq "FALSE" && $number_of_tries < 50) {
&get_url; # set $found in this function.
sleep 10; # sleep 10 seconds before trying again.
$number_of_tries += 1;
}

}
#
#
#
sub set_url {
$url = "http://www.ny.frb.org/pihome/statistics/forex12.shtml
}
#
#

Please let me know whether you need to see the whole script.
You can send me e-mail at katebagin@yahoo.com

Thank you.

[pwoneill]

What do you need it to do? You said you need to add another URL, but I'm not quite sure what you mean by that.

Do you just mean that multiple calls to set_url should return different URL's? You could just rewrite the function as


#global variables
@urls = ( "url1", "url2", "url3" );
$url_index = 0;

sub set_url {
  return $urls[$url_index++];
}


Or something like that, but I don't know if that's what you're asking.


[Edited by pwoneill on 03-27-2001 at 11:30 AM]

[bagik]

This is it! And I need some additional information about how can I use condition IF under perl language, because I need to use the second URL only for one country Canada (this is financial sites), for others I still should use the old one.
My problem is:
these web pages have the same format, BUT old one has 2 columns - name of countries and rates, the new one has 6 columns - name of countries and 5 columns with rates for 5 days. I need to grab only first column and the sixth colums with the latest date.

My question is:
how should I exchange my code for it?

My code is:

#!/usr/local/bin/perl

print "<--- EURO cron: EXCH --->\n";

{

use Date:ateCalc qw ( calc_new_date ) ;
use HTTP::Request;
use LWP::UserAgent;

&set_date;

print "file is $file\n";

&set_url;

print "url is $url\n";

&get_url;

$number_of_tries = 0;
while ($found eq "FALSE" && $number_of_tries < 50) {
&get_url; # set $found in this function.
sleep 10; # sleep 10 seconds before trying again.
$number_of_tries += 1;
}

}
#
#
#
sub set_url {
$url = "http://www.ny.frb.org/pihome/statistics/forex12.shtml

}
#
#
#
sub set_date {

$yr = `date '+%y'`;
$mth = `date '+%m'`;
$day = `date '+%d'`;

chop ( $yr );
chop ( $mth );
chop ( $day );

$edat_base = $ENV{EDAT_BASE};
$dir = "$edat_base/exch/data/";

$file = $dir . $yr . $mth . $day . ".txt" ;

}
#
#
#
sub get_url {

$ua = new LWP::UserAgent;
#$ua->proxy(http => $ENV{PROXY});
$ua->agent("$0/0.1");
$req = new HTTP::Request 'GET', $url;
$req->header('Accept' => 'text/html');

# send request
$res = $ua->request($req);

# check the outcome
if ($res->is_success) {
$fileout = ">".$file;
print "$fileout\n";

close (FILEOUT);
open (FILEOUT,$fileout);
print FILEOUT $res->content;

$found = 'TRUE';

} else {
print "whoops\n";
$found = 'FALSE';
}
}