RE: Array - how to access and display??

2004-09-01 Thread Daniel Staal
--As of Wednesday, September 1, 2004 8:45 PM -0500, Jerry Preston is alleged to have said: This works!! print "history $history[ 0 ]{ version }\n"; --As for the rest, it is mine. Great! Do you know *why*? (Note: You are not only accessing an array...) Daniel T. Staal

RE: Array - how to access and display??

2004-09-01 Thread Jerry Preston
This works!! print "history $history[ 0 ]{ version }\n"; Jerry -Original Message- From: Jerry Preston [mailto:[EMAIL PROTECTED] Sent: Wednesday, September 01, 2004 8:33 PM To: 'Perl Beginners' Subject: Array - how to access and display?? Hi! This is new to me and I do not know how to

Array - how to access and display??

2004-09-01 Thread Jerry Preston
Hi! This is new to me and I do not know how to access the value '0.46' in the following array: @history = ( { version => '0.46', } ); Thanks, Jerry

Re: Is my DB code bad?

2004-09-01 Thread David Greenberg
On Wed, 1 Sep 2004 15:42:16 -0500, Dave Kettmann <[EMAIL PROTECTED]> wrote: > First off, Thanks to Jenda and Wiggins for their quick response. I have found the > answer to my question in Jenda's help (the missing "'"'s) > I strongly suggest you take Jenda's advice about using placeholders instea

RE : Is my DB code bad?

2004-09-01 Thread Jose Nyimi
> -Message d'origine- > De : Dave Kettmann [mailto:[EMAIL PROTECTED] > Envoyé : mercredi 1 septembre 2004 22:42 > À : Perl List (E-mail) > Objet : RE: Is my DB code bad? > > First off, Thanks to Jenda and Wiggins for their quick response. I have > found the answer to my question in Jenda

general question about variable and array

2004-09-01 Thread xaver biton
Hi, how do I insert the values of variables of a function in a array which ist out of the scope of the function, e.g I've a find function and I want insert the values results of the find function in an array: my @array; sub wanted { if(-f and /^aoWebC

RE: Is my DB code bad?

2004-09-01 Thread Dave Kettmann
First off, Thanks to Jenda and Wiggins for their quick response. I have found the answer to my question in Jenda's help (the missing "'"'s) Sorry for not being more specific earlier it has been a hectic day here :) This page is on a internal server that 3 people have access to. (myself and 2 ot

Re: Is my DB code bad?

2004-09-01 Thread Jenda Krynicky
From: "Dave Kettmann" <[EMAIL PROTECTED]> > I have a web page I am working on to delete an entry out of a > database. If I take the syntax in the perl script and paste it into a > mysql query, and substitute the variable for a value that exists in > the database, it will delete the entry. If I run

Re: Is my DB code bad?

2004-09-01 Thread Wiggins d Anconia
> Hi all, > > I have a web page I am working on to delete an entry out of a database. If I take the syntax in the perl script and paste it into a mysql query, and substitute the variable for a value that exists in the database, it will delete the entry. If I run it thru the web page, I dont get an

Is my DB code bad?

2004-09-01 Thread Dave Kettmann
Hi all, I have a web page I am working on to delete an entry out of a database. If I take the syntax in the perl script and paste it into a mysql query, and substitute the variable for a value that exists in the database, it will delete the entry. If I run it thru the web page, I dont get an er

Re: POD on new module to make sure it looks right before uploading to CPAN

2004-09-01 Thread JupiterHost.Net
Seems the module docs are incorrect. This seems to work for me: Sorry for the delay :) pod2html("d:\\perl\\site\\lib\\$pmfile", "--title=$pmfile pod2html", '--backlink=Back to Top', '--css=http://search.cpan.org/s/style.css', "--cachedir=c:\\temp", ); That is it seems the first paramete

Re: substr complexities

2004-09-01 Thread Jeff 'japhy' Pinyan
On Sep 1, [EMAIL PROTECTED] said: > foreach (split /\n/, $EDM_nonactive_tapelist ) { >if (( /\((E\d+)/ ) && ( !m/\*Orig/ ) && ( >m/st_9840_acs_0/ )) { There is no $1 if all those regexes succeed, because only the FIRST one has something captured, and all the others remove

Re: How to get config file via http

2004-09-01 Thread Tim Musson
Hey Chris, My MUA believes you used to write the following on Wednesday, September 1, 2004 at 10:56:13 AM. CD> The only thing I can suggest is to poke around the other methods CD> that are provided by LWP::Simple -- some of them may be able to CD> make work easier for you: CD> get

substr complexities

2004-09-01 Thread DBSMITH
All, can anyone provide some help? my current output is E00854), Seq #: 000595 in TLU: st_ and all I want is the E string and cannot get my substr working Here is my code: foreach (split /\n/, $EDM_nonactive_tapelist ) { if (( /\((E\d+)/ ) && ( !m/\*Orig/ ) && ( m

Re: How to get config file via http

2004-09-01 Thread Chris Devers
On Wed, 1 Sep 2004, Tim Musson wrote: My MUA believes you used to write the following on Tuesday, August 31, 2004 at 3:20:50 PM. Yep, I also noticed Net::HTTP. Any reason I should use one over the other? CD> I mean really, how much simpler can it be than "get($url)" ? Thanks Chris, I agree, LWP is

RE: Perl Script for accessing XML file

2004-09-01 Thread Jenda Krynicky
From: "Pothula, Giridhar" <[EMAIL PROTECTED]> To: "Jenda Krynicky" <[EMAIL PROTECTED]>, <[EMAIL PROTECTED]> Please don't do this. I get the mail through the mailing list I don't need to get it directly as well. It gets sorted into the same folder anyway so y

Re: How to get config file via http

2004-09-01 Thread Tim Musson
Hey Chris, My MUA believes you used to write the following on Tuesday, August 31, 2004 at 3:20:50 PM. >> Yep, I also noticed Net::HTTP. Any reason I should use one over the >> other? CD> I mean really, how much simpler can it be than "get($url)" ? Thanks Chris, I agree, LWP is much si

Re: Regexp problem

2004-09-01 Thread Gunnar Hjalmarsson
Gunnar Hjalmarsson wrote: Can it possibly be that you need to make the first regex non-greedy? /\.{4}/s --^ Or a more plausible explanation is that you are looping over the text line by line. Maybe you simply need to do: my $text = do { local $/; <> }; $text =~ s/[^\n]*\.{4}

Re: Regexp problem

2004-09-01 Thread Gunnar Hjalmarsson
Hamish Whittal wrote: (Example 1) I have the following lines: This is some text..MBAAAEgAAAQAB blaah,blaah =+=+=+=+=+=+=+=+=+=+=+ (Example 2) but sometimes it looks like this: This is some text.. MBAAAEgAAAQAoBAAAQKAREDSCETRTBDFS blaah,blaah =+=+=+=+=+=+=+=+=+=+=+ Now, given this, I am want

Regexp problem

2004-09-01 Thread Hamish Whittal
Hi all, (Example 1) I have the following lines: This is some text..MBAAAEgAAAQAB blaah,blaah =+=+=+=+=+=+=+=+=+=+=+ (Example 2) but sometimes it looks like this: This is some text.. MBAAAEgAAAQAoBAAAQKAREDSCETRTBDFS blaah,blaah =+=+=+=+=+=+=+=+=+=+=+ Now, given this, I am wanting to skip

Re: A simple way? A Perl way?

2004-09-01 Thread John W. Krahn
Tim Johnson wrote: Just for the sake of showing another way to do it... my $input = "2-8,9,11,18-21"; $input =~ s/-/\.\./g; print join(',',eval($input)); or if you don't want to print out the list but iterate through it... #

RE: A simple way? A Perl way?

2004-09-01 Thread Tim Johnson
Just for the sake of showing another way to do it... my $input = "2-8,9,11,18-21"; $input =~ s/-/\.\./g; print join(',',eval($input)); or if you don't want to print out the list but iterate through it... my $input

RE: A simple way? A Perl way?

2004-09-01 Thread Jerry Preston
John, VERY VERY NICE!! No! this is not for school, but for a script that requires user inputs on special work request for work. Thanks! Jerry -Original Message- From: John W. Krahn [mailto:[EMAIL PROTECTED] Sent: Wednesday, September 01, 2004 1:32 AM To: Perl Beginners Subject: Re: A