counter update

from within the body of the .htm page use this command This is the .cgi program #!/usr/bin/perl -w use strict; use diagnostics; my $count; $count = "12345"; print "Content-type: text/html\n\n"; print "-($count)-\n"; exit; ## this works.. now to build up the

Re: $= and $~

On Jun 5, Alan F. Larimer, Jr. said: >> >>$old = $=; >> >>$~ = "HEADER"; >> >>$= = 25; #cuz that's how many lines on the screen >> >>(print some stuff with HEADER format) >> >>$~ = "STDOUT"; >> >>$= = $old; >> >> >> >>I used a print statement to ensure that $= is being set properly, >> and >> >>

Re: one last attempt?

well i cant beleive it know what the first problem was spaces after and before the double dashes. i was using and the correct command is this caused three days of hairpulling madness... I'm laughing on the outside... but inside ERRR! the spaces were suggested to me on this list. ANY

Re: Substring retrieval

On Tue, 5 Jun 2001, Nathaniel Mallet <[EMAIL PROTECTED]> wrote, > The Index function isn't listed on the perl.com website, which was the only > place I looked for documentation up until now. I haven't recieved my Perl > books from Fatbrain yet. ;-) It's always right there (among other functions

RE: one last attempt?

On Tue, 5 Jun 2001, Peter Cornelius <[EMAIL PROTECTED]> wrote, > Umm. Don't you need an http header? > print "content type: text/html\n\n"; > before printing anything else out. CGI.pm would allow you to just say > 'print header();' btw. No, you don't need that for "#exec cmd". You can even d

RE: one last attempt?

On Tue, 5 Jun 2001, Alan F. Larimer, Jr. <[EMAIL PROTECTED]> wrote, > I also am not too knowledgable on SSI. Therefore, I wonder when does > the SSI parse? Before the doc is sent to the client? If so, this > might be an issue. Like I said, I'm not sure about SSI. Alan, you can read a HOWTO

ppm> install not working

Hi! I installed xitami on my computer. It works well. I have noticed that since the installation I cannot use the ppm install. ppm> install ppm ##  (for example) install ppm (y/N) ? ### (when I hit "y") ppm> I used to get all sorts of code downloading to my computer. Now, nothing

Re: one last attempt?

* Alan F. Larimer, Jr. ([EMAIL PROTECTED]) [06 Jun 2001 02:59]: > > > this is the command line from my index.htm file > > > [...] > --- Peter Cornelius <[EMAIL PROTECTED]> wrote: > > Umm. Don't you need an http header? print "content type: > > text/html\n\n"; before printing anything else out. CG

Re: $= and $~

> >>$old = $=; > >>$~ = "HEADER"; > >>$= = 25; #cuz that's how many lines on the screen > >>(print some stuff with HEADER format) > >>$~ = "STDOUT"; > >>$= = $old; > >> > >>I used a print statement to ensure that $= is being set properly, > and > >>it is. But when I print stuff with HEADER forma

Re: $= and $~

On Jun 5, Jeff 'japhy' Pinyan said: >On Jun 5, Alan F. Larimer, Jr. said: > >>$old = $=; >>$~ = "HEADER"; >>$= = 25; #cuz that's how many lines on the screen >>(print some stuff with HEADER format) >>$~ = "STDOUT"; >>$= = $old; >> >>I used a print statement to ensure that $= is being set properl

Re: $= and $~

On Jun 5, Alan F. Larimer, Jr. said: >$old = $=; >$~ = "HEADER"; >$= = 25; #cuz that's how many lines on the screen >(print some stuff with HEADER format) >$~ = "STDOUT"; >$= = $old; > >I used a print statement to ensure that $= is being set properly, and >it is. But when I print stuff with HEA

RE: one last attempt?

> > this is the command line from my index.htm file > > > > > > I've made this so darn simple it should work. > > this is the perl program in my cgi-bin: > > > > #!/usr/bin/perl -w > > use strict; > > use diagnostics; > > my $count; > > $count = "12345"; > > print "-( > color=\"green\">$count)-

RE: one last attempt?

Umm. Don't you need an http header? print "content type: text/html\n\n"; before printing anything else out. CGI.pm would allow you to just say 'print header();' btw. > -Original Message- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] > Sent: Tuesday, June 05, 2001 6:41 PM > To:

RE: Perl: Finding unique strings in an array

On Jun 5, Jamie Krasnoo said: >From: Peter Scott [mailto:[EMAIL PROTECTED]] >> >>{ my %temp; >> @temp{@array} = (); >> @youwant = keys %temp; >>} >> >>However, that said, 99 times out of a hundred you should have been keeping >>your data in a hash to begin with and you've made a design error

$= and $~

I am attempting to fo the following (pseudocode and realcode to follow): (nomal stuff with STDOUT) $old = $=; $~ = "HEADER"; $= = 25; #cuz that's how many lines on the screen (print some stuff with HEADER format) $~ = "STDOUT"; $= = $old; (more stuff with STDOUT) I used a print statement to ens

Re: one last attempt?

On Tue, 5 Jun 2001, Luinrandir Hernson <[EMAIL PROTECTED]> wrote, > Well i'm about to chuck perl out the window > > this is the command line from my index.htm file > > > I've made this so darn simple it should work. > this is the perl program in my cgi-bin: > > #!/usr/bin/perl -w > use strict; >

RE: one last attempt?

What server are you using? (Apache, ... etc ) Are you sure that you have it configured correctly for SSI? This should be in httpd.conf (if Apache): Exec /*.shtml /where/your/proggie/is.pl Make sure you also have -T enabled on your program (regardless if they take a value or not). Jamie -

Re: Substring retrieval

The Index function isn't listed on the perl.com website, which was the only place I looked for documentation up until now. I haven't recieved my Perl books from Fatbrain yet. ;-) Thanks for the info. It was very useful. Nat - Original Message - From: "Hasanuddin Tamir" <[EMAIL PROTECTED]

Re: one last attempt?

On Tue, 5 Jun 2001, Luinrandir Hernson wrote: [...] > print "-($countcolor=\"blue\">)-"; > does anyone see why this wouldn't print to my index.htm file > cause if i can't get this simple code to work, how can i get the > whole bloody counter program to work would someone please > just give m

Re: one last attempt?

Try clearing the buffer... either set $| = 1; or add a newline caracter to the end of that print statement. Not sure, but it may help ~jon --- Luinrandir Hernson <[EMAIL PROTECTED]> wrote: > Well i'm about to chuck perl out the window > > this is the command line from my index.htm file > > >

Re: one last attempt?

> Luinrandir Hernson [[EMAIL PROTECTED]] quoth: > *> > *>does anyone see why this wouldn't print to my index.htm file cause > if i can't get this simple code to work, how can i get the whole > bloody counter program to work would someone please just give me > the freaking answer on how to make

Re: one last attempt?

Luinrandir Hernson [[EMAIL PROTECTED]] quoth: *> *>does anyone see why this wouldn't print to my index.htm file cause if i can't get this simple code to work, how can i get the whole bloody counter program to work would someone please just give me the freaking answer on how to make this work

one last attempt?

Well i'm about to chuck perl out the window this is the command line from my index.htm file I've made this so darn simple it should work. this is the perl program in my cgi-bin: #!/usr/bin/perl -w use strict; use diagnostics; my $count; $count = "12345"; print "-($count)-"; exit; does anyone

RE: Perl: Finding unique strings in an array

using Tie::IxHash would though. use strict; use Tie::IxHash; my %seen; tie %seen, 'Tie::IxHash'; my @array = qw(fee fi fo fum fee fee fi foo fum fogie); @seen{@array} = 1; my @wanted = keys %seen; print "@wanted\n"; outputs: fee fi fo fum foo fogie Jamie -Original Message- From: Pet

Re: Perl: Finding unique strings in an array

At 06:02 PM 6/5/2001 -0700, Philip Peeters wrote: >Hi, > >Is there some magical way to identify unique strings within an array? > > >Example: >@array = ( "beer","water","wine","beer","wine"); >and I'd like to end up with: beer, water, wine { my %temp; @temp{@array} = (); @youwant = keys %t

RE: Perl: Finding unique strings in an array

Ok, the simplest way i see is inserting the elements into a hash as keys, thus eliminating duplicates, and then do keys on the hash. -Original Message- From: Philip Peeters [mailto:[EMAIL PROTECTED]] Sent: 05 e?iy 2001 a. 21:03 To: [EMAIL PROTECTED] Subject: Perl: Finding unique strings i

Perl: Finding unique strings in an array

Hi, Is there some magical way to identify unique strings within an array? Example: @array = ( "beer","water","wine","beer","wine"); and I'd like to end up with: beer, water, wine If there is some kind of function that does this, then I'd be most glad to hear of it. If not, I'll figure somethi

splitting strings with quoted white space

I have this script that reads in lines from a configuration file, processes them, and then stores them in a hash. Everything is working (mostly) but I really don't like the snippet below and wanted to see if anyone could suggest a better solution. I would call better a syntactically shorter, les

Re: problem with script

Verily, on Tuesday June 5, 2001, the Sainted Kweku Addae-Mensah spake: > However I get this warning when I run it > Name "main::opt_f" used only once: possible typo at > openfile.pl line 9. > What could be the problem. Perl's '-w' checking warns you about variables that are only used once, as th

problem with script

Hello there someone pointed me to you for problems with perl I am a beginner learning perl on my own. I wrote this script to read a file #!/ncsu/perl56/bin/perl -w #purspose reads from a file use Getopt::Long; #set up command line to accept file name my $ret = GetOptions ("f|filename:s"); my

RE: [OT] style

Michael Fowler [mailto:[EMAIL PROTECTED]] wrote: >The original discussion was regarding the alternatives: > > open(FILE, $file) || die("open: $!"); > >open FILE, $file or die "open: $!"; > > >This is the matter of style of style being discussed. Naturally, if you're >not using parens, th

Re: Fwd: 'use' question

Actually, I think the problem is that your first line should have the hash (#) and bang(!) reversed the other way so that is reads: #!/usr/local/bin/perl Steve On Tue, Jun 05, 2001 at 09:48:56PM +0200, M.W. Koskamp wrote: > > > - Original Message - > From: Bob Mangold <[EMAIL PROTEC

Re: Where can I learn how to use taint?

>> > >> >> > >>produces this: >> > >>"Too late for "-T" option at w:\cgi-bin\admin\tainttest.pl line 1." >> > > I had this problem and this exact same message on a linux server cause I had my CGI running SUID and calling my perl code. The c program calls my perl code #include #include #inclu

Re: [OT] style

On Tue, Jun 05, 2001 at 02:04:59PM -0700, Hanz, Rob wrote: > Actually, there's a pretty good reason to use 'or' instead of '||' - for > anything in list context, remember that '||' binds more tightly than ',' > and 'or' binds less tightly than ','. > > This can lead to bugs if you do things like:

Re: newcounter(was did i do that correctly)

On Tue, Jun 05, 2001 at 08:00:52AM -0400, Luinrandir Hernson wrote: > many thanks for the assistance > > here is the program in full so you may verify i did it correctly (i'm sure there was a shorter way, but right now i'm just trying to get the darn thing to work!!!) But now an error of an unin

On Beginners' Mindsets, Part III

[So far I haven't been accused of a surfeit of hubris, so here's some more grist for the mill. Though I may dial the grist back a bit if it generates an excess of flammage. This and my previous posts are archived on my web site.] Clarity is the secret weapon of the beginner. To learn a new

Re: return values from instance methods

--- "Brett W. McCoy" <[EMAIL PROTECTED]> wrote: > On Tue, 5 Jun 2001, Alan F. Larimer, Jr. wrote: > > > 1) After reading the perltoot manpage and most of the perlobj manpage, I am > > left with a question of "properness." Should instance methods always only > > return references? In the perltoo

Re: return values from instance methods

On Tue, 5 Jun 2001, Alan F. Larimer, Jr. wrote: > 1) After reading the perltoot manpage and most of the perlobj manpage, I am > left with a question of "properness." Should instance methods always only > return references? In the perltoot manpage it shows an instance method > returning an array

return values from instance methods

Here goes the multipart question . . . 1) After reading the perltoot manpage and most of the perlobj manpage, I am left with a question of "properness." Should instance methods always only return references? In the perltoot manpage it shows an instance method returning an array instead of the

re:[OT] style

Paul <[EMAIL PROTECTED] wrote: >--- Michael Fowler <[EMAIL PROTECTED]> wrote: >> On Tue, Jun 05, 2001 at 10:42:33AM -0700, Paul wrote: >> > open FILE, $filename >> > or die "Unable to open file \"$filename\": \l$!.\n"; > > > Personally, I prefer the "noisy" version, t

Re: Mysql interface with perl on win 2k, Someone please help !

On Sun, 2 Nov 1997 [EMAIL PROTECTED] wrote: > > > > >Hi, > > > >Im trying to connect a perl program to a mysql database on my home computer > >running win 2k. I can connect, but i have no idea of how to extract the > >information out of tables using perl. I have a book about SQL, but it never > >

RE: Where can I learn how to use taint?

At 02:02 PM 6/5/2001 -0700, Mark Ross wrote: >Here's >what comes out of the server log: > >06/05/01 16:55 "/cgi/admin/tainttest2.pl", proc "/usr/local/bin/perl": >Too late for "-T" option at /cgi/admin/tainttest2.pl line 1. > >And, here's the code again (I switched the T and the w, just to see if

RE: Where can I learn how to use taint?

> > >>This code: > > >> > > >>#!/usr/local/bin/perl -wT > > >>use strict; > > >>use CGI; > > >>my $q = new CGI; > > >>print ("hi"); > > >>exit; > > >> > > >>produces this: > > >>"Too late for "-T" option at w:\cgi-bin\admin\tainttest.pl line 1." > > > > > >The problem is that -T needs to be enabl

Re: How to pass form data between two CGI's ?

Tom O'Brien wrote: : Can someone please give me an example of how to pass form data between : two CGI programs? Here's what I'm attempting to do. : I'm a novice perl programmer at best so I'm just trying to modify two : programs to do what I need. Basically, I'm trying to use a "affiliate" : pr

Re: Fwd: 'use' question

> "Bob" == Bob Mangold <[EMAIL PROTECTED]> writes: Bob> !#/usr/local/bin/perl If that's cut-n-pasted, it's wrong. You want #! not #! -- Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095 <[EMAIL PROTECTED]> http://www.stonehenge.com/merlyn/> Perl/Unix/security con

RE: Where can I learn how to use taint?

At 01:14 PM 6/5/2001 -0700, Mark Ross wrote: > >>This code: > >> > >>#!/usr/local/bin/perl -wT > >>use strict; > >>use CGI; > >>my $q = new CGI; > >>print ("hi"); > >>exit; > >> > >>produces this: > >>"Too late for "-T" option at w:\cgi-bin\admin\tainttest.pl line 1." > > > >The problem is that -T

Re: Fwd: 'use' question

Verily, on Tuesday June 5, 2001, the Sainted Bob Mangold spake: > ok sorry for the lack of a script before, > > here is a little test script i wrote to try to figure out how to use the > Getopt::Std module. > > --- > !#/usr/local/bin/perl > > use Get

RE: Where can I learn how to use taint?

>>This code: >> >>#!/usr/local/bin/perl -wT >>use strict; >>use CGI; >>my $q = new CGI; >>print ("hi"); >>exit; >> >>produces this: >>"Too late for "-T" option at w:\cgi-bin\admin\tainttest.pl line 1." > >The problem is that -T needs to be enabled so early in the invocation >process that by the ti

Re: Where can I learn how to use taint?

On Tue, Jun 05, 2001 at 12:46:15PM -0700, Mark Ross ([EMAIL PROTECTED]) spew-ed forth: > Hi all, > > I'm very confused on how to use taint for my cgi scripts. Hi Mark, As well as some of the explinations you will get, also take a look at the following documentation for more info on tainting: p

Re: Where can I learn how to use taint?

At 12:46 PM 6/5/2001 -0700, Mark Ross wrote: >This code: > >#!/usr/local/bin/perl -wT >use strict; >use CGI; >my $q = new CGI; >print ("hi"); >exit; > >produces this: >"Too late for "-T" option at w:\cgi-bin\admin\tainttest.pl line 1." The problem is that -T needs to be enabled so early in the in

Re: Fwd: 'use' question

On 05 Jun 2001 15:47:40 -0400, Chas Owens wrote: > On 05 Jun 2001 12:28:01 -0700, Bob Mangold wrote: > > > so then at the command line I type: > > perl test.pl -a help, -b me, -c please > > > > i even tried: > > perl test.pl -a help -b me -c please > > > type "chmod u+x test.pl" > then type "

Re: Fwd: 'use' question

- Original Message - From: Timothy Kimball <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Tuesday, June 05, 2001 9:45 PM Subject: Re: Fwd: 'use' question > > M.W. Koskamp wrote: > > : You are missing a semi-colon at the end of line 1 > : after the #!/usr/local/bin/perl > > Yo

Re: Where can I learn how to use taint?

On Jun 5, Mark Ross said: >I'm very confused on how to use taint for my cgi scripts. > >"Too late for "-T" option at w:\cgi-bin\admin\tainttest.pl line 1." The first place to find explanations for error messages is in the perldiag documentation. You can even embed an automatic look-up feature b

Re: Where can I learn how to use taint?

--- Mark Ross <[EMAIL PROTECTED]> wrote: > #!/usr/local/bin/perl -wT > use strict; > use CGI; > my $q = new CGI; > print ("hi"); > exit; > > produces this: > > "Too late for "-T" option at w:\cgi-bin\admin\tainttest.pl line 1." I wrote this to a file named x. Running it with perl x got the

Where can I learn how to use taint?

Hi all, I'm very confused on how to use taint for my cgi scripts. This code: #!/usr/local/bin/perl -wT use strict; use CGI; my $q = new CGI; print ("hi"); exit; produces this: "Too late for "-T" option at w:\cgi-bin\admin\tainttest.pl line 1." Ummm ... I'm quite confused about this, sin

Re: Fwd: 'use' question

On 05 Jun 2001 12:28:01 -0700, Bob Mangold wrote: > so then at the command line I type: > perl test.pl -a help, -b me, -c please > > i even tried: > perl test.pl -a help -b me -c please type "chmod u+x test.pl" then type "./test.pl" The #!/usr/local/bin/perl tells the shell to launch perl fo

Re: Fwd: 'use' question

M.W. Koskamp wrote: : You are missing a semi-colon at the end of line 1 : after the #!/usr/local/bin/perl You don't need one there, because that line is not a perl command. It's a message to the shell that the script is to be interpreted by /usr/local/bin/perl. The problem is that he write

Re: Fwd: 'use' question

Bob Mangold wrote: : !#/usr/local/bin/perl Should be '#!', not '!#'. -- tdk

Re: Fwd: 'use' question

No, but seriously. Put the # before the ! ("she-bang" is, if nothing else, a good mnemonic) On Tue, 5 Jun 2001, M.W. Koskamp wrote: > > - Original Message - > From: Bob Mangold <[EMAIL PROTECTED]> > To: <[EMAIL PROTECTED]> > Sent: Tuesday, June 05, 2001 9:28 PM > Subject: Re: Fwd: 'u

Re: Fwd: 'use' question

- Original Message - From: Bob Mangold <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Tuesday, June 05, 2001 9:28 PM Subject: Re: Fwd: 'use' question > ok sorry for the lack of a script before, > > here is a little test script i wrote to try to figure out how to use the > Getopt::S

Re: printf and other stuff

Michael Fowler wrote: > On Tue, Jun 05, 2001 at 08:05:24AM -0400, Herb Hall wrote: > > $min = "0" . $min if $min < 10; > > > > will pad your minutes with a 0. I have used both methods for various > > reasons. You probably only need to use one or the other. I would use the > > printf unless you hav

RE: problems following a refresh meta tag using LWP and open SSL (2ed request)

[snipped] > URL=https://mn1-gx6-ib.banking.wellsfargo.com/cgi-bin/session. > cgi?sessargs=e > > I think your answer is here. > The refresh data is passed as headers. > Just parse the URL field out of the header and do a new request. > > Hope this is what you meant. > > Maarten. Hi Maarten, Th

Re: Fwd: 'use' question

ok sorry for the lack of a script before, here is a little test script i wrote to try to figure out how to use the Getopt::Std module. --- !#/usr/local/bin/perl use Getopt::Std; getopt("abc"); print "$opt_a - $opt_b - $opt_c\n";

[ADMIN] Thread is closed! (Re: [meta] Re: help!)

Ok folks, that's enough. Please take personal attacks, personality conflicts, and things of such nature into personal email. This is no longer a useful discussion for beginners, or anyone else. This thread is closed. Cheers, Kevin > On 5 Jun 2001, Randal L. Schwartz wrote: > > > > "Chuck" =

Re: [meta] Re: help!

--- "Randal L. Schwartz" <[EMAIL PROTECTED]> wrote: > I don't mind being properly shunned, but let's really look at the > facts here, and if the facts point out to deconstructive behavior, > then RUB MY NOSE in it... don't just handwave. I'm interested in > changing, and looking for feedback to

Re: Fwd: 'use' question

On Tue, 5 Jun 2001, Bob Mangold wrote: > It seems that whenever I attempt to use the 'use' command, I get an error. The > error says '"use" not allowed in expression at..'. Funny thing is that I > have CGI scripts that execute just fine from the command-line. I've tried > creating just very s

Re: Fwd: 'use' question

Can you post an example script? On 05 Jun 2001 12:03:03 -0700, Bob Mangold wrote: > Hello, > > It seems that whenever I attempt to use the 'use' command, I get an error. The > error says '"use" not allowed in expression at..'. Funny thing is that I > have CGI scripts that execute just fine f

Re: problems following a refresh meta tag using LWP and open SSL (2ed request)

- Original Message - From: Hill, Ronald <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Tuesday, June 05, 2001 7:07 PM Subject: problems following a refresh meta tag using LWP and open SSL (2ed request) > Hello All, > > I am trying to connect to the Wells Fargo online bank using the L

Fwd: 'use' question

Hello, It seems that whenever I attempt to use the 'use' command, I get an error. The error says '"use" not allowed in expression at..'. Funny thing is that I have CGI scripts that execute just fine from the command-line. I've tried creating just very simple programs and I always get the erro

Re: [meta] Re: help!

I got a good Idea, lets fight about somthing that does not matter in the least bit. stop spamming up the list with your little bitch fight. On 5 Jun 2001, Randal L. Schwartz wrote: > > "Chuck" == Chuck Ivy <[EMAIL PROTECTED]> writes: > > Chuck> Randal, no offence meant, but I was under the

[meta] Re: help!

> "Chuck" == Chuck Ivy <[EMAIL PROTECTED]> writes: Chuck> Randal, no offence meant, but I was under the impression that the Chuck> purpose of this list was to answer questions, and not say tell new Chuck> users to RTFM. Please point to where I've RTFM'ed someone here, except when the questio

Re: [OT] style (was:while loop seems to loop through file more than once.)

--- Michael Fowler <[EMAIL PROTECTED]> wrote: > On Tue, Jun 05, 2001 at 10:42:33AM -0700, Paul wrote: > > If you use "or" instead of "||" you can reduce the "line noise" by > > taking out the parens. > > > >open(FILE, $filename) > >|| die("Unable to open file \"$filename\": \l$!.\n"

Re: while loop seems to loop through file more than once.

On Tue, Jun 05, 2001 at 10:42:33AM -0700, Paul wrote: > If you use "or" instead of "||" you can reduce the "line noise" by > taking out the parens. > >open(FILE, $filename) >|| die("Unable to open file \"$filename\": \l$!.\n"); > > becomes > >open FILE, $filename > or

Re: help!

On Tuesday, June 5, 2001, at 07:37 AM, Randal L. Schwartz wrote: > That's why I bring it up as a meta-topic. We've had > to deal with the same thing on perlmonks.org Randal, no offence meant, but I was under the impression that the purpose of this list was to answer questions, and not say tell

Re: testing null strings for form field values

On Tue, Jun 05, 2001 at 02:09:30PM +0200, Marcelo E. Magallon wrote: > Perhaps also noteworthy is the fact that things like '$foo{bar} eq ""' > make the key 'bar' spring into existance in %foo. -w tells you about > it. The 'bar' key doesn't spring into existence, and -w doesn't tell you about

Re: while loop seems to loop through file more than once.

--- Michael Fowler <[EMAIL PROTECTED]> wrote: > On Mon, Jun 04, 2001 at 11:40:46PM -0500, [EMAIL PROTECTED] > wrote: > > open(FILE, "$filename"); > > Always check your open calls. For example: > open(FILE, $filename) || die("Unable to open file \"$filename\": > \l$!.\n"); If you use "or"

Re: printf and other stuff

On Tue, Jun 05, 2001 at 08:05:24AM -0400, Herb Hall wrote: > $min = "0" . $min if $min < 10; > > will pad your minutes with a 0. I have used both methods for various > reasons. You probably only need to use one or the other. I would use the > printf unless you have some need to have the variables

Re: while loop seems to loop through file more than once.

On Mon, Jun 04, 2001 at 11:40:46PM -0500, [EMAIL PROTECTED] wrote: > } elsif ( $remtag == "1" ) { > $remove_email = $formdata{rem_name}; > open(FILE, "$filename"); Always check your open calls. For example: open(FILE, $filename) || die("Unable to open file \"$filename\": \l$!.\n"); or p

problems following a refresh meta tag using LWP and open SSL (2ed request)

Hello All, I am trying to connect to the Wells Fargo online bank using the LWP and open SSL modules and am having trouble getting past the Authenticating User screen. I was hopeing for a way to have the LWP useragent follow the refreash meta tag the same way it does for a redirect. Does anyone

Re: A gentle reminder about jeopardy quoting

On Tue, 5 Jun 2001, Mark Folse wrote: > If there was a welcome to the list e-mail other than the bot > instructions, I don't remember it and didn't save it like I usually do > listadmin stuff. Perhaps a gentle introduction to the list to new > subscribers would be sufficient, with off-line/direct

Re: testing null strings for form field values

On Tue, 5 Jun 2001, Marcelo E. Magallon <[EMAIL PROTECTED]> wrote, > Perhaps also noteworthy is the fact that things like '$foo{bar} eq ""' > make the key 'bar' spring into existance in %foo. -w tells you about > it. You mean $foo{bar}{baz} eq "". perl -wle 'my %foo; if ($foo{bar} eq "")

Re: Thank You - Re: Probably a "no-brainer" - the last twomessages.

Gary Luther wrote: : I am off applying salve to my wounds. It was careless of me to over look that . : : Thanks to the list. Sorry, to take eveyones time for so trivial of an item. You might be surprised be surprised at how many of these kinds of errors I make on a regular basis (for me, two t

Re: problem saving binary data

At 11:38 AM 6/5/2001 -0500, Jeff Davis wrote: >I'm using LWP to fetch an image and attempting to save it locally. >The file is successfully created, however all it contains is: > >HTTP::Response=HASH(0x8380464) > > >Here's the code snippet: > > $file = "/home/images/$name"; > open(IMAGE, ">$file

RE: problem saving binary data

[snipped] > Here's the code snippet: > > $file = "/home/images/$name"; > open(IMAGE, ">$file") || die "unable to open filehandle $file \n"; > $saveres = $ua->request(HTTP::Request->new(GET => $pic)); > print IMAGE "$saveres"; > Hello, You need to specify a filename as an arg $ua->

Re: A gentle reminder about jeopardy quoting

But we should be encouraging the list members to avail themselves of the Perl FAQ and all the other resources at their disposal. I know I always want to exhaust as many other avenues as possible before admitting to thousands of stranges that I can't figure it out. But that's just me. Many of us l

Re: problem saving binary data

Jeff Davis wrote: : I'm using LWP to fetch an image and attempting to save it locally. : The file is successfully created, however all it contains is: : : HTTP::Response=HASH(0x8380464) : : Here's the code snippet: : : $file = "/home/images/$name"; : open(IMAGE, ">$file") || die "unable to

Thank You - Re: Probably a "no-brainer" - the last twomessages.

I am off applying salve to my wounds. It was careless of me to over look that .   Thanks to the list. Sorry, to take eveyones time for so trivial of an item.   ---"They that can give up essential liberty    to obtain a li

RE: Mysql interface with perl on win 2k, Someone please help !

The best resource I have found is the O'Reilly book "Programming the Perl DBI". > -Original Message- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] > Sent: Sunday, November 02, 1997 10:18 AM > To: [EMAIL PROTECTED] > Subject: Mysql interface with perl on win 2k, Someone please help

problem saving binary data

I'm using LWP to fetch an image and attempting to save it locally. The file is successfully created, however all it contains is: HTTP::Response=HASH(0x8380464) Here's the code snippet: $file = "/home/images/$name"; open(IMAGE, ">$file") || die "unable to open filehandle $file \n"; $saveres

Re: Probably a "no-brainer" - the last two messages.

On Tue, 5 Jun 2001, Gary Luther wrote: > MESSAGES: > > Useless use of string in void context at /common/bin/whaduname.AA line 56. > Useless use of string in void context at /common/bin/whaduname.AA line 60. > > The lines and supporting evidence: > > 33 $cdate='/common/lib/cdatetest'; > > 35 $cnum

RE: A gentle reminder about jeopardy quoting

On Tue, 5 Jun 2001, Eduard Grinvald wrote: > Umm, let's get back to perl, please... Etiquette is nice, but is hardly the > point of this list. However, good etiquette makes it easier to get at 'the point' of this list, i.e. the helpful content. Why did you feel it necessary to ignore the polite

Re: Substring retrieval

Good day; At 08:17 AM 6/5/2001 -0700, Paul wrote: >--- Nathaniel Mallet <[EMAIL PROTECTED]> wrote: > > Hi, > > > > I'm trying to retrieve a substring from a string, but I'm not > > sure exactly where and how big that substring is. The substring is > > delimited by a start and end special char

Re: Problems using hash.

On Tue, 5 Jun 2001, [EMAIL PROTECTED] wrote: > Your problem seems to be in the use of single quotes see my example > code: > > $fields[3]="x"; > $postInputs{'x'}= "the_test"; > > print "('$postInputs{ '$fields[3]'}')"; > print "(\'$postInputs{ $fields[3]}\')"; > > > try that. or just: print

Re: A gentle reminder about jeopardy quoting

Mark Folse [[EMAIL PROTECTED]] quoth: *>--- Eduard Grinvald <[EMAIL PROTECTED]> wrote: *>> Umm, let's get back to perl, please... Etiquette is nice, but is *>> hardly the point of this list. Perhaps not, but making email easy to read and reply to is certainly a good goal to have. Lotus and MS and

RE: printf and other stuff

> ### get time > my($sec, $min, $hour, $mday, $month, $year) = (localtime)[0..5]; > $year += 1900; > $mday = "0" . $mday if $mday < 10; > $month++; # perl counts from -1 on occasion > $month = "0" . $month if $month < 10; > > > -- later in the same file -- > > print TOFILE "On $month/$mday/$y

Re: probably a simple matter but...

- Original Message - From: Marcelo E. Magallon <[EMAIL PROTECTED]> To: M.W. Koskamp <[EMAIL PROTECTED]> Cc: Brent Buckalew <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]> Sent: Sunday, June 03, 2001 7:58 PM Subject: Re: probably a simple matter but... > >> "M.W. Koskamp" <[EMAIL PROTECTED]> w

Re: FW: could not move file

--- "Brett W. McCoy" <[EMAIL PROTECTED]> wrote: > On Tue, 5 Jun 2001, IT Dept - Terry Honeyford wrote: > > I have a really strange problem. > > when my script is run it works fine except for the bit that moves a > > company's config file. (shown below). > > the server comes back with a server er

RE: A gentle reminder about jeopardy quoting

At first I sent this is a direct mail to the listed folks, but decided to send it on to the list: --- Eduard Grinvald <[EMAIL PROTECTED]> wrote: > Umm, let's get back to perl, please... Etiquette is nice, but is > hardly the > point of this list. I think gentle etiquette reminders are fine, if t

RE:[OT]A gentle reminder about jeopardy quoting

--- Eduard Grinvald <[EMAIL PROTECTED]> wrote: > Umm, let's get back to perl, please... Etiquette is nice, but is > hardly the point of this list. Off topic posts can be very useful, especially for beginners. Just put [OT] in the subject to alert people who would rather not spend the off-topic t

Re: help!

--- Kevin Meltzer <[EMAIL PROTECTED]> wrote: > On Tue, Jun 05, 2001 at 07:16:19AM -0700, Randal L. Schwartz > ([EMAIL PROTECTED]) spew-ed forth: > > > "chris" == chris robinson <[EMAIL PROTECTED]> writes: > > > > chris> I have the following code. This code prints a / for each > > chris> occ

  1   2   >