Does anyone know anything about this..?

2002-02-12 Thread Lorne Easton
I have data like this. Computername:Description:Failed Pings At present I am putting this data into seperate arrays and using an index to get it out in order. Not an extremely efficient way to do this and I will need to add more fields later and the like. I have considered using a hash, but if

Hashes of hashes..

2002-02-10 Thread Lorne Easton
Hi all, Another simple one, I hope. I have data like this. Computername:Description:Failed Pings At present I am putting this data into seperate arrays and using an index to get it out in order. Not an extremely efficient way to do this and I will need to add more fields later and the like. I

Multidimensional hashes..

2002-02-05 Thread Lorne Easton
Hopefully an easy one for you guys. Let's say that you want to have a hash that has a descriptive name (say of a PC) and some other inportant imformation. This information I want to be associated with the PC in that it is a second dimension to the hash value "Name" being it's name.. Is there an

Evaluating case..

2002-02-03 Thread Lorne Easton
Here is some code that I have written. I know that there is a better way of writing this. As it stands the code between the "#Evaluation code" does not work as desired. I cannot seem to get these if ((case1) and (case2)) type statements to work. How would I and what am I doing wrong? Also, is ther

Matching text.. Question

2002-01-29 Thread Lorne Easton
The following code: SNIP sub return_internal_links { foreach my $element (@links) { my $all_internal = join("\n",@internal),"\n"; if (($element =~ m/$startingurl/i) && ($all_internal !~ m/$element/gi)) { print $element,"\n"; push (@internal, $element); } } }

RE: Matching text, e.t.c.

2002-01-29 Thread Lorne Easton
The following code: SNIP sub return_internal_links { foreach my $element (@links) { my $all_internal = join("\n",@internal),"\n"; if (($element =~ m/$startingurl/i) && ($all_internal !~ m/$element/gi)) { print $element,"\n"; push (@internal, $element); } } }

RE: HTTP Links..

2002-01-24 Thread Lorne Easton
I am trying to get a mechaism that does the following.. With relative urls: I.E: At the url <../../page.htm> refers to so my URL, after: --SNIP-- #Get page my $res = $ua->request(HTTP::Request->new(GET => $start

Re: Cgi on IIS

2002-01-16 Thread Lorne Easton
Hi Robert, Right click on the servername and choose "Properties". Choose "Home Directory" and choose "Configuration" under "Application Settings". You can edit your application mappings from the "App Mappings" tab. These should have been set up for you if you installed perl after IIS, but you w

RE: extracting links.. continued..

2002-01-16 Thread Lorne Easton
Hi there, Thanks for the advice. I looked at using HTML::LinkExtor but decided against it. I am using code like the following: sub get_urls { my @url_array; my ($data) = @_; print $data; #Put all ")|gi) { my $temp_tag = $1; #Strip out tags #Insert code here.. push @url_array,$temp_tag;

extracting links from HTML data

2002-01-14 Thread Lorne Easton
I need to write some code that extracts that extracts hyperlinks from a scalar ($data) and puts them into an array. I imagine that grep can do this, but my mastery of it and reqular expressions are not brilliant. Can you please provide some example code, or at least point me in the right directi

RE: WWW:Robot speed..

2002-01-08 Thread Lorne Easton
Hi there.. I am using the WWW:Robot module to iterate over some internal sites, so complying with the guidelines for robots is not really an issue. Anyone have any experience modifying the module so that the delay between requests is less? Regards, Lorne -- To unsubscribe, e-mail: [EMAIL PR

RE: Post does not allow script to execute completely.

2001-12-18 Thread Lorne Easton
I am trying to adapt my commandline script to work from a web page. The HTML code is this: --SNIP-- http://adminweb.stage.mas.com.au/cgi-bin/find_user_web.pl";> --SNIP-- The script is like this --SNIP-- use Win32::NetAdmin; use Win32::TieRegistry(Delimiter => "/"); use strict; use CGI

RE: Shift and "=>"

2001-12-17 Thread Lorne Easton
Hi, Below is some example code that I have butchered to it's simplest impelmentation. I don't understand this line.. $session = Net::SNMP->session(-hostname => "10.0.0.100", -community => "public"); Particularly, the way data is presented to the function.. I.E : -data => "text" Is this some

RE: Environment Variables..

2001-12-12 Thread Lorne Easton
As in the attached code: The variables do not "unlink" when the program exits or when I specify to unlink. I.E: If I run this program once, then run it again with incorrect domain specified it gives the same information. Is there any way of gracefully "exiting" and removing all the variables fro