Re-displaying data back into forms

2002-03-14 Thread Troy May
Hello, This may be hard to explain, but I have a form consisting of 3 one-line text boxes, and 1 multi-line textarea box. When I load the page each and every time, I want the PREVIOUS data to be displayed in the text boxes. Similiar to web forums when you click to EDIT your own post and it show

RE: Parsing CGI data to another page...

2002-03-14 Thread Daniel Falkenberg
COMPLETED! Hey all, Just wondering how I would go about having this URL www.mydomain.com/cgi-bin/test.cgi?data=test Would be parsed to... www.mydomain.com/cgi-bin/test2.cgi >From test2.cgi I would like to be able to read that data = test from test.cgi. <--- Start Test1.cgi ---> Simple

Parsing CGI data to another page...

2002-03-14 Thread Daniel Falkenberg
Hey all, Just wondering how I would go about having this URL www.mydomain.com/cgi-bin/test.cgi?data=test Would be parsed to... www.mydomain.com/cgi-bin/test2.cgi >From test2.cgi I would like to be able to read that data = test from test.cgi. <--- Start Test1.cgi ---> Simple HTML page wi

Re: Writing this chuck of code a little smaller...

2002-03-14 Thread Tanton Gibbs
I would think something like: while( $poll ) { #I'm not sure what $poll is...so I don't know if this is right or not. read_results(); foreach( map{ my $temp; ($temp = lc( $_ )) =~ s/\s//g; [$temp,$_] } keys( %{$filehash{$title}} ) ) { $filehash{$title}{$->[1]}++ if( $poll =~ /$_->[0]/

RE: Writing this chuck of code a little smaller...

2002-03-14 Thread Daniel Falkenberg
Tanton, Thanks, that's alot better now! Out of curiosity. At the moment the script will read results in from a file that looks similar to the following... [Poll] Newspaper = 43 Word Of Mouth = 10 Friend = 15 What if I was to change the config file manually to add the following [Poll] Ne

Re: Writing this chuck of code a little smaller...

2002-03-14 Thread Tanton Gibbs
Well, I would think you could rewrite it like: for( $poll ) { $filehash{$title}{"Newspaper"}++, last if( /newspaper/ ); $filehash{$title}{"Word of Mouth"}++, last if( /wordofmouth/ ); $filehash{$title}{"Friend"}++, last if( /friend/ ); die "Should not get here!"; } write_results( $

FW: Save image to disk

2002-03-14 Thread Gary Hawkins
Worked fine on the remote system, but, can someone give me the ppm install ... line to install LWP::Simple? > -Original Message- > From: > Sent: Thursday, March 14, 2002 8:16 AM > To: 'Gary Hawkins' > Subject: RE: Save image to disk > > > It looks like you didn't get a straight answer.

Writing this chuck of code a little smaller...

2002-03-14 Thread Daniel Falkenberg
D'day all, I have the following chunk of code that I was wondering If I can write a little smaller. I was thinking a while loop. Could some one give me a little advice on this one :)... results_read(); if ($poll =~ /newspaper/) { print "Thank you for picking news paper!"; $none

RE: Perl Graphs

2002-03-14 Thread Daniel Falkenberg
Tim and Jim, ( :) ) *RHYMS* Thank you very much for your quick reply. I will be sure to give it a go :). Kind Regards, Dan -Original Message- From: Timothy Johnson [mailto:[EMAIL PROTECTED]] Sent: Friday, 15 March 2002 10:54 AM To: Daniel Falkenberg; [EMAIL PROTECTED] Subject: RE: Per

RE: Perl Graphs

2002-03-14 Thread Timothy Johnson
Do you have excel? It will be a little work to start, but you can manipulate Excel using Win32::Ole. I'm not sure if Spreadsheet->WriteExcel does graphs. -Original Message- From: Daniel Falkenberg [mailto:[EMAIL PROTECTED]] Sent: Thursday, March 14, 2002 4:25 PM To: [EMAIL PROTECTED] S

Re: Perl Graphs

2002-03-14 Thread Jim Ockers
Perhaps you would like the graphic visualization capability in PDL: http://pdl.perl.org Good Luck. On Thu, 2002-03-14 at 19:24, Daniel Falkenberg wrote: > G'day all, > > Just wondering how I would go about graphing with Perl. I have used > GD::Graph before, but I am now looking for something

Perl Graphs

2002-03-14 Thread Daniel Falkenberg
G'day all, Just wondering how I would go about graphing with Perl. I have used GD::Graph before, but I am now looking for something a little more colourful (if you wish :) ) than that if possible. Any ideas, Kind regards, Dan == VINTEK CONSULTING PTY LTD (ACN 088

Re: backreference question

2002-03-14 Thread John W. Krahn
Jess Balint wrote: > > From: John W. Krahn [mailto:[EMAIL PROTECTED]] > > > > M Z wrote: > > > > > > I was wondering if someone could point me in the right > > > direction for the following regex. > > > > > > s/(.{1,100}(?: |(\-))/$1$2\n/g; > > > > > > Please help on the second (?: |\-) > > > I

Re: write to an Excel document

2002-03-14 Thread Alfred Vahau
Hello Allison, To write an excel file you will need John McNamara's module Spreadsheet::WriteExcel. You can read on the CPAN documentation at http://search.cpan.org/search?dist=Spreadsheet-WriteExcel To read an excel file and write output as textfile you will need Kawai Takanori's module Spread

Re: FW: How long can $_ be?

2002-03-14 Thread Elaine -HFB- Ashton
Anette Seiler [[EMAIL PROTECTED]] quoth: *> *>> This got me wondering. Is the behavior you see caused by limitations *>> for $_, or by limitations of the print function? You might try: *>> print strlen( $_ ), "\n"; *> *>My Perl doesn't know what strlen is. Is it part of a module? *> *>I don't t

RE: backreference question

2002-03-14 Thread Jeff 'japhy' Pinyan
On Mar 14, Balint, Jess said: >What exactly does this ($2 eq '-' && $2) do? Must it be in parenthesis? Try it. It is "technically" the same as: if ($2 eq '-') { $2 } Used in the context of: >s/(.{1,100})( |-)/$1 . ($2 eq '-' && $2) . "\n"/eg; Here is an example: $x = "foo"; $y = $x e

RE: Browser navigation with cgi

2002-03-14 Thread willy wonka
Thank you all that helped. I tried the template thing but was unable to debug the scritp, but thanks to all of you I was able to come up with a perfect soulution that creats a back button and leaves all the info in the form. print ""; print ""; print ""; ps I have never been in a group this hel

Re: comma operator

2002-03-14 Thread bob ackerman
yes. using '&&', 'last' is always evaluated. it is using 'and' that works, because it has lower precedence than comma. so it parses as ($x eq 'a') and ( (print 'a'), last); which is what i want. i didn't know there was difference between 'and' and '&&'. that is a bit of a gotcha for newbots. On

Re: comma operator

2002-03-14 Thread Michael Fowler
On Thu, Mar 14, 2002 at 10:32:56AM -0800, bob ackerman wrote: > confusion i have with comma operator. > docs seem to indicate it evaluates both sides, but i see examples where it > looks like if it evaluates to false on LHS it doesn't evaluate RHS. i see > this in examples of writing a case stat

RE: backreference question

2002-03-14 Thread Balint, Jess
What exactly does this ($2 eq '-' && $2) do? Must it be in parenthesis? -Original Message- From: John W. Krahn [mailto:[EMAIL PROTECTED]] Sent: Tuesday, March 12, 2002 6:40 PM To: [EMAIL PROTECTED] Subject: Re: backreference question M Z wrote: > > Hello Hello, > I was wondering if s

RE: comma operator

2002-03-14 Thread Nikola Janceski
to understand comma and lists better read http://www.crusoe.net/~jeffp/articles/pm/2000-02.html for your 'and' and '&&' difference one has precedence higher than the other. see perldoc perlop search for nonassoc for a list of the hierarchy. > -Original Message- > From: bob ackerman [mai

Re: comma operator

2002-03-14 Thread bob ackerman
now what? i tried 'and' instead '&&' and it worked - last wasn't evaluated. that seems tricky to get right. i still don't understand why 'last' isn't always evaluated. On Thursday, March 14, 2002, at 10:32 AM, bob ackerman wrote: > confusion i have with comma operator. > docs seem to indicate

comma operator

2002-03-14 Thread bob ackerman
confusion i have with comma operator. docs seem to indicate it evaluates both sides, but i see examples where it looks like if it evaluates to false on LHS it doesn't evaluate RHS. i see this in examples of writing a case statement. $x='b'; { ($x eq 'a') && (print 'a'), last; print 'x'; } i see

Re: tie/bless interactions?

2002-03-14 Thread Dave Storrs
Peter and Jenda, Thank you both for your information and pointers, I appreciated them. I actually ended up doing something slightly different; I wanted to make method calls use identical syntax, whether they were going to the APC::Event or the Tie::DBI, so what I ended up doing

How long can $_ be?

2002-03-14 Thread Richard Smith
My Perl doesn't know what strlen is. Is it part of a module? Oops. Don't get your perl mixed up with your C, Smiddy. I meant length($_) -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: Problem with EXE created by PerlApp

2002-03-14 Thread Jenda Krynicky
From: Jason Larson <[EMAIL PROTECTED]> > Thanks for the suggestion. I looked through the bug database before > submitting the bug and didn't find anything, but when I submitted it, > they said it was a duplicate of 11031 (guess I didn't look for the > right thing). Their comments on 11031 state:

RE: "Use of uninitialized value" error message

2002-03-14 Thread Jason Larson
> -Original Message- > From: John W. Krahn [mailto:[EMAIL PROTECTED]] > Subject: Re: "Use of uninitialized value" error message > > Jason Larson wrote: > > > > I'm still new to Perl myself, so I can't tell you exactly > what's happening, > > but it looks like $result_value1 is undef whe

RE: Problem with EXE created by PerlApp

2002-03-14 Thread Jason Larson
**The following information is primarily just an FYI** > -Original Message- > From: Jenda Krynicky [mailto:[EMAIL PROTECTED]] > Subject: RE: Problem with EXE created by PerlApp > > From: Jason Larson <[EMAIL PROTECTED]> > > > Sorry I don't understand why this happens. Just

Re: HP-UX 10.2 Tk install error

2002-03-14 Thread Jonathan E. Paton
> jshea@cahp9>perl Makefile.PL > perl is installed in /opt/perl5/lib/5.6.0/PA-RISC1.1 okay > PPM for perl5.006 > Test Compiling config/signedchar.c > Test Compiling config/unsigned.c > Test Compiling config/Ksprintf.c > Test Compiling config/tod.c > Generic gettimeofday() > Using -L/usr/lib/X1

Re: Mail::Sender

2002-03-14 Thread Gary Stainburn
Further to this, when I installed 0.7.10 instead of the 0.7.13 it worked fine Gary On Thursday 14 March 2002 11:14 am, Gary Stainburn wrote: > On Wednesday 13 March 2002 5:23 pm, Jenda Krynicky wrote: > > From: [EMAIL PROTECTED] > > > > > I am using Mail::Sender on AIX 4.3.3 and e

Re: Mail::Sender

2002-03-14 Thread Gary Stainburn
On Wednesday 13 March 2002 5:23 pm, Jenda Krynicky wrote: > From: [EMAIL PROTECTED] > > > I am using Mail::Sender on AIX 4.3.3 and encounter the > > following error when running a script. > > > > Use of uninitialized value > > at /usr/opt/perl5/lib/site_perl/5.005/Mail/Sender.pm >

RE: Save image to disk

2002-03-14 Thread Gary Hawkins
Do have a Win32 version of wget working but not use a Perl module? It's like not breathing. > You probably don't need a perl script for this, there's this command > call wget > in linux which you can use to mirror a site, and using the -A option you can > make it download file with specified ext

Re: Reinitializing an Array

2002-03-14 Thread John W. Krahn
[message rearranged chronologically - please don't top-post] Luke wrote: > > From: "John W. Krahn" <[EMAIL PROTECTED]> > > > Barry Kingsbury wrote: > > > > > > I have an array that I wish to reuse. Before I reuse it, I want to clear > out all > > > elements. Both of the following seem to work: