help on perl dbi and dbd:mysql

2001-08-12 Thread spartan
I am beginner in perl. i needed to connect the perl programs to mysql database. Therefore I downloaded dbi and dbd:mysql (actually it was mysql-msql modules). I am finding it difficult to compile and run both dbi and dbd:mysql module. By the way I am using Windows 98. When I tried out dbi ---

Displaying 10 jobs per page worries...

2001-08-12 Thread Daniel Falkenberg
Dear list, The following sub will create a hyperlink when the amount of jobs in my PostgreSQL database reaches over 10 jobs. The hyperlink is a Perl sub which shows the next amount of jobs in the database. I want to only show the next 10 and then the next 10 and for arguments sake the next 3.

SMTO Socket Connection

2001-08-12 Thread Joel Divekar
Hi Friends Friday evening I heard a New that there is a change of MTA on our WebServer. And then all my Perl scripts running on our WebServer refuse to send me any stats / logs by email. And this gave me a jolt on Saturday morning. I requested our Admin to send me docs related to our new MTA a

Not working in Netscape, working in IE

2001-08-12 Thread Rahul Garg
Hello , The problem goes like this- value of $mailids is coming from previous perl script if($emailids eq ' ' || $emailids eq '@' || $emailids eq '.' || $emailids !~ /..+/ ) { print <<"enter"; Content-type : text/html Search #invokes the same perl script with the

Re: Telnet ..... send control characters in oct or hex?

2001-08-12 Thread Karthik Krishnamurthy
As an aside ^] needs to be handled by the telnet client itself. /kk On Thu, Aug 09, 2001 at 01:21:49PM -0700, Atul Vohra wrote: > Hi, > > I am using Telnet.pm module where I telnet to a router successfully. Now, I would >like to send some control characters like "ctrl]". Is there a way to send

Re: Text Delimited File

2001-08-12 Thread Troy Denkinger
Allison, On Saturday 11 August 2001 12:26, Allison Davis wrote: > I am new to the list and just starting to learn perl. Can anyone tell me > how to process a form into a text delimited file or even what a text > delimited file is. I hope this isn't a stupid question. There are no stupid questi

Re: finding a key in a hash with regexp

2001-08-12 Thread Michael Fowler
On Mon, Aug 13, 2001 at 12:25:32AM +0200, Birgit Kellner wrote: > foreach my $key(keys %hash) { > if ($key =~ /^\d/) {push (@keys, $key); } > } > > But since I know there will only be one key where this condition is true, > looping and creating an array seems like a waste. Then why create

Re: finding a key in a hash with regexp

2001-08-12 Thread Jeff 'japhy/Marillion' Pinyan
On Aug 13, Birgit Kellner said: >Hm, what's the shortest way to do this: I have a hash where one, and only >one, key begins with a number, I don't know its value and want to assign >this value to a variable. Loop over the keys, using keys() or each(). for (keys %hash) { $wanted = $hash{

Re: finding a key in a hash with regexp

2001-08-12 Thread Eric Beaudoin
At 18:25 2001.08.12, Birgit Kellner wrote: >Hm, what's the shortest way to do this: I have a hash where one, and only one, key >begins with a number, I don't know its value and want to assign this value to a >variable. > >If I were to do a foreach loop, I'd do this (presuming that %hash is alrea

finding a key in a hash with regexp

2001-08-12 Thread Birgit Kellner
Hm, what's the shortest way to do this: I have a hash where one, and only one, key begins with a number, I don't know its value and want to assign this value to a variable. If I were to do a foreach loop, I'd do this (presuming that %hash is already defined): foreach my $key(keys %hash) {

Copying using LWP::Simple

2001-08-12 Thread Lara J. Fabans
At 09:16 PM 8/11/2001 -0700, Randal L. Schwartz wrote: >How about simply: > > use LWP::Simple; > my $url = "http://www.cobbler-sw.com/images/birds1.jpg";; > (my $file = $url) =~ s/.*\///s; > mirror($url, $file); For those taking notes, this did work. I was trying to put it into