Fetch the content of a website

2005-09-11 Thread Mads N. Vestergaard
-BEGIN PGP SIGNED MESSAGE- Hash: SHA1 Hey Perl Beginners, I have a few minor problems. I need to get the content of a website, and search a bit in it. I'm using the package called LWP::Simple, and then i can get it, like this: $url = "http://domain.tld/site.ext"; my $cont = get $url;

Re: Fetch the content of a website

2005-09-11 Thread Mads N. Vestergaard
-BEGIN PGP SIGNED MESSAGE- Hash: SHA1 Hi, Well, it has to be perl, since there is also more to it than that, but my debugging shows, that it is the slow part. Mads Stephen York wrote: | Hi, | | Does it have to be perl? | I'd personally use the shell command called wget. | | | Steve | |

Re: Read txt file and use each line as regex and output matches to file.

2005-09-11 Thread Rob Oravec
Chris Charley wrote: Lastly, you are opening a file for writing for each matched line in your log file. It would be better to save your matches in a hash. Then you would only need to open the OUT file once (for each different IP) instead of opening and writing for each matched line. Just som

Re: Fetch the content of a website

2005-09-11 Thread Chris Devers
On Sun, 11 Sep 2005, Mads N. Vestergaard wrote: > I have a few minor problems. > I need to get the content of a website, and search a bit in it. > > I'm using the package called LWP::Simple Not to complicate things, but have you looked at WWW::Mechanize ? http://search.cpan.org/~petdance/WWW-Me

create a cryptoloop from a perlscript

2005-09-11 Thread Mauro Stettler
hi together im writing a perlscript which should be able to create a cryptoloop onto a device. the console command to do this is losetup /dev/loo0 /dev/sdb1 -e twofish-256, then i am asked for a password... the problem is, this password is requested by the function getpass(), i don't know how i ca

Re: Fetch the content of a website

2005-09-11 Thread Todd Lewis
If you know what you are looking for on a particular site. Some helpful tools can be found cpan. http://www.cpan.org/ I've found the HTML::TableExtract to be very valuable for retrieving info. A lot of info on a web page are stored in table format. Mads N. Vestergaard wrote: -BEGIN PGP

Re: Read txt file and use each line as regex and output matches to file.

2005-09-11 Thread Chris Charley
- Original Message - From: "Rob Oravec" <[EMAIL PROTECTED]> Newsgroups: perl.beginners To: "Perl Beginners" Sent: Sunday, September 11, 2005 7:13 AM Subject: Re: Read txt file and use each line as regex and output matches to file. Chris Charley wrote: Lastly, you are opening a

Re: problem with Net::AIM

2005-09-11 Thread haruspex
Binish A R wrote... : Hello, : : Has anyone tried sending aim messages with Net::AIM module? : I am getting the following message while sending test messages? : : PARSE: how many args in '2'? : : I tried google'ing for this message but couldnt find a genuine fix : for this. : : btw I used the t

RE: Read txt file and use each line as regex and output matches t o file.

2005-09-11 Thread Keenan, Greg John (Greg)** CTR **
>Thanks for the pointers I have made your recommended modifications, as you >can see I'm new to this, much appreciated. :-) > >The script as it stands is very inefficient because of the way I have done >it, you mentioned saving the matches or IP's in a hash how would I go about >doing this if you

Re: Read txt file and use each line as regex and output matches t o file.

2005-09-11 Thread John W. Krahn
Keenan, Greg John (Greg)** CTR ** wrote: > > There is a solution, "Trailing a Growing File", in the Perl Cookbook that I > have used before that may solve your problem. > > I ran my script from inittab so it respawned if it died and it checks any > new data written to a log file. If a certain st

Re: create a cryptoloop from a perlscript

2005-09-11 Thread John W. Krahn
Mauro Stettler wrote: > hi together Hello, > im writing a perlscript which should be able to create a cryptoloop > onto a device. the console command to do this is losetup /dev/loo0 > /dev/sdb1 -e twofish-256, then i am asked for a password... the > problem is, this password is requested by the f

Re: Read txt file and use each line as regex and output matches to file.

2005-09-11 Thread John W. Krahn
Rob Oravec wrote: > John W. Krahn wrote: > >> I don't understand why you are saying that the append option does not >> workcorrectly. What exactly are you trying to accomplish? > > The append option works correctly the first time and then continues to > append to the file every time I run it. > S

Need help with sorting on perl template toolkit

2005-09-11 Thread Anish Kumar K
Hi I needed the help as how to sort descending in a hash [%FOREACH keyValue = wordCount.nsort(wordCount.$keyValue)%] [% keyValue %] [% wordCount.$keyValue %] [%END%] This is sorting in ASCENFDING order. I tried out giving - , NOT ASC everything.nothing working. Please sugg

Re: create a cryptoloop from a perlscript

2005-09-11 Thread Mauro Stettler
2005/9/12, John W. Krahn <[EMAIL PROTECTED]>: > Mauro Stettler wrote: > > hi together > > Hello, > > > im writing a perlscript which should be able to create a cryptoloop > > onto a device. the console command to do this is losetup /dev/loo0 > > /dev/sdb1 -e twofish-256, then i am asked for a pas

Regex - find chars between ()

2005-09-11 Thread Keenan, Greg John (Greg)** CTR **
Hi, Have a file like: meteor(L, 4) (G,24) rocket(J,19) (D,35) aulan (E,28) (E, 2) aupbx (B,32) (O,10) And I need to work with the chars between the brackets after I've found the string on the left e.g. if my $host variable matches rocket then I need to get J and 19 and D and 3

Re: Need help with sorting on perl template toolkit

2005-09-11 Thread Anish Kumar K
Hi Sorry for the trouble...I got it we can use reverse function... Once again Sorry Anish - Original Message - From: Anish Kumar K To: beginners@perl.org Sent: Monday, September 12, 2005 11:20 AM Subject: Need help with sorting on perl template toolkit Hi I n

RE: Regex - find chars between ()

2005-09-11 Thread Thomas Bätzler
Hi, Keenan, Greg John (Greg)** CTR ** <[EMAIL PROTECTED]> asked: > Have a file like: > > meteor(L, 4) (G,24) > rocket(J,19) (D,35) > aulan (E,28) (E, 2) > aupbx (B,32) (O,10) > > And I need to work with the chars between the brackets after > I've found the string on the left

Re: Regex - find chars between ()

2005-09-11 Thread Jeff Pan
Is this feasible? while(<>) { next unless /$host/; $_=~/\((\w+)\,(\d+)\)\s+\((\w+)\,(\d+)\)/; my @array=("$1","$2","$3","$4"); } On Mon, 12 Sep 2005 16:14:14 +1000, "Keenan, Greg John (Greg)** CTR **" <[EMAIL PROTECTED]> said: > Hi, > > Have a file like: > > meteor(L, 4) (G,

Re: Regex - find chars between ()

2005-09-11 Thread Xavier Noria
On Sep 12, 2005, at 8:14, Keenan, Greg John (Greg)** CTR ** wrote: meteor(L, 4) (G,24) rocket(J,19) (D,35) aulan (E,28) (E, 2) aupbx (B,32) (O,10) And I need to work with the chars between the brackets after I've found the string on the left e.g. if my $host variable matches r