trouble with meta http-equiv

2006-11-30 Thread David Bear
I'm trying to put a client side redirect with http-equiv refresh. I'm using the syntax: my $req = CGI-new(); print $req-header( text/html ); print $req-start_html( -head=meta({-http-equiv = 'refresh', -content = '1;URL=' . $req-refere()})); but I get an error: Undefined

Re: trouble with meta http-equiv

2006-11-30 Thread Wiggins d'Anconia
David Bear wrote: I'm trying to put a client side redirect with http-equiv refresh. I'm using the syntax: my $req = CGI-new(); print $req-header( text/html ); print $req-start_html( -head=meta({-http-equiv = 'refresh', In the above line the call to meta() is a function call, but you have

ways to iterate over params

2006-11-30 Thread David Bear
I would like to iterate over the list of fields posted. Then, use the field name to access the value of that field in params. The CGI module says I can %params = $q-Vars; to get the paramter list as a hash table. but then I want to do my $q = CGI-new(); my %params = $q-Vars; foreach $f (keys

Re: ways to iterate over params

2006-11-30 Thread Bill Jones
On 11/30/06, David Bear [EMAIL PROTECTED] wrote: my $q = CGI-new(); my %params = $q-Vars; foreach $f (keys (%params)) { print $f is $params{$f} ; } use CGI; my $q = CGI-new(); my %params = $q-Vars; foreach my $f (keys (%params)) { print $f is $params{$f}\n; } -- WC (Bill) Jones --

Re: Help with WWW::Mechanize

2006-11-30 Thread Mathew Snyder
Tom Phoenix wrote: On 11/28/06, Mathew Snyder [EMAIL PROTECTED] wrote: I have a form I'm trying to fill out. One of the fields, despite being named in the HTML source keeps erroring out on me. select name=ValueOfActor fields = { ValueOfStatus = $status,

Beginner question

2006-11-30 Thread Junaid Shariff
Hello, I am new to perl and have a doubt. I have a script that needs to run a command. The command that is being run requires input from the user to proceed. Instead of prompting the user how can I code the utility to not prompt the user but take the input from a variable that has the value that

Re: Beginner question

2006-11-30 Thread Bjørge Solli
Hello and welcome! On Thursday 30 November 2006 10:32, Junaid Shariff wrote: I am new to perl and have a doubt. I have a script that needs to run a command. The command that is being run requires input from the user to proceed. Instead of prompting the user how can I code the utility to not

Re: Beginner question

2006-11-30 Thread Gergely Buday
I am new to perl and have a doubt. I have a script that needs to run a command. The command that is being run requires input from the user to proceed. Instead of prompting the user how can I code the utility to not prompt the user but take the input from a variable that has the value that is to

Re: Beginner question

2006-11-30 Thread Junaid Shariff
Hello again. Thanks for the prompt reply. Not sure if i explained my doubt clearly. Basically I run the ncpmount command, which requires the user to enter the remote server password. But that password has already been entered by the user once before and is stored by me in a variable. Now when I

Re: Beginner question

2006-11-30 Thread Bjørge Solli
On Thursday 30 November 2006 11:14, Junaid Shariff wrote: Hello again. Thanks for the prompt reply. Not sure if i explained my doubt clearly. Basically I run the ncpmount command, which requires the user to enter the remote server password. But that password has already been entered by the

Re: Beginner question

2006-11-30 Thread Junaid Shariff
Thanks Solli. :-)

no number return

2006-11-30 Thread Chris Parker
-BEGIN PGP SIGNED MESSAGE- Hash: SHA1 I am trying to get this to take random amount of widths and compute the square footage for each. For example: Enter Total Square Footage: 1234 Enter widths seperated by spaces 3 4 5 size 3: amount needed = 0 size 4: amount needed = size 5: amount

Re: no number return

2006-11-30 Thread Adriano Ferreira
On 11/30/06, Chris Parker [EMAIL PROTECTED] wrote: while(@numbers = ) { # Extract widths @width = split( , $numbers); Here at this piece of code, @numbers and $numbers are different variables. And you never assign anything to $numbers. Probably you want this: while () { #

Re: no number return

2006-11-30 Thread Chris Parker
-BEGIN PGP SIGNED MESSAGE- Hash: SHA1 Adriano Ferreira wrote: On 11/30/06, Chris Parker [EMAIL PROTECTED] wrote: while(@numbers = ) { # Extract widths @width = split( , $numbers); Here at this piece of code, @numbers and $numbers are different variables. And you never assign

Re: no number return

2006-11-30 Thread Adriano Ferreira
On 11/30/06, Chris Parker [EMAIL PROTECTED] wrote: -BEGIN PGP SIGNED MESSAGE- Hash: SHA1 Adriano Ferreira wrote: On 11/30/06, Chris Parker [EMAIL PROTECTED] wrote: while(@numbers = ) { # Extract widths @width = split( , $numbers); Here at this piece of code, @numbers and $numbers

Usage of PAR (Perl ARchive Toolkit)

2006-11-30 Thread Dharshana Eswaran
Hi all, I am trying to generate an exe file from few perl programs. I have 4 files which are main.pl, subroutine1.pl, subroutine2.pl and subroutine3.pl. main.pl file is the main program and it depends on the other subroutine files for data. So i tried zipping it using winzip and ran pp -o

Re: no number return

2006-11-30 Thread Chris Parker
-BEGIN PGP SIGNED MESSAGE- Hash: SHA1 Adriano Ferreira wrote: STDIN and then make a loop for them. So you should remove the construction of @numbers from the loop, doing Code now is: print(Enter widths separated by spaces: \n); my @numbers = split /\s+/, ; for my $width

Re: no number return

2006-11-30 Thread D. Bolliger
Chris Parker am Donnerstag, 30. November 2006 14:57: Adriano Ferreira wrote: STDIN and then make a loop for them. So you should remove the construction of @numbers from the loop, doing Code now is: print(Enter widths separated by spaces: \n); my @numbers = split /\s+/, ; for my

Question regarding use of multiple Perl versions

2006-11-30 Thread Hotz, Harry
I have a new AIX 5.3 server that comes with a default Perl 5.82. I have a DB2 programmer that has scripts from an old AIX 4.3 server that used Perl 5.005_03. He will have to rewrite his scripts to use the new Perl and asked me to install the old version side by side. I did so in a

Re: Question regarding use of multiple Perl versions

2006-11-30 Thread Jay Savage
On 11/30/06, Hotz, Harry [EMAIL PROTECTED] wrote: I have a new AIX 5.3 server that comes with a default Perl 5.82. I have a DB2 programmer that has scripts from an old AIX 4.3 server that used Perl 5.005_03. He will have to rewrite his scripts to use the new Perl and asked me to install

Re: Question regarding use of multiple Perl versions

2006-11-30 Thread Derek B. Smith
--- Jay Savage [EMAIL PROTECTED] wrote: On 11/30/06, Hotz, Harry [EMAIL PROTECTED] wrote: I have a new AIX 5.3 server that comes with a default Perl 5.82. I have a DB2 programmer that has scripts from an old AIX 4.3 server that used Perl 5.005_03. He will have to rewrite his

Re: Question regarding use of multiple Perl versions

2006-11-30 Thread Tom Phoenix
On 11/30/06, Hotz, Harry [EMAIL PROTECTED] wrote: I have a new AIX 5.3 server that comes with a default Perl 5.82. I have a DB2 programmer that has scripts from an old AIX 4.3 server that used Perl 5.005_03. He will have to rewrite his scripts to use the new Perl Probably not much, in

Re: Checking for infinite loops

2006-11-30 Thread hOURS
Jen Spinney [EMAIL PROTECTED] wrote: On 11/20/06, hOURS wrote: Recently I posed a question on here regarding a program I have that runs other programs (through require statements and what not). My problem was that the programs getting run might have syntax errors and I wanted to skip

Re: Checking for infinite loops

2006-11-30 Thread D. Bolliger
hOURS am Donnerstag, 30. November 2006 21:09: Jen Spinney [EMAIL PROTECTED] wrote: On 11/20/06, hOURS wrote: Recently I posed a question on here regarding a program I have that runs other programs (through require statements and what not). My problem was that the programs getting run

Net::EasyTCP

2006-11-30 Thread Derek B. Smith
Hello... : ) I need to gather a single filename on hundreds of servers ranging in *UX flavors from AIX, HP, Solaris, RH Linux and Tru64 then store them on on HPUX server. I was initially thinking an scp command like so foreach my $server in (@servers) scp /etc/passwd /tmp/passwd.$SERVER but

Re: Net::EasyTCP

2006-11-30 Thread Jeff Pang
For this to happen do I need to create server and client or just client? What do you recommend? Yes,after I looked through the docs roughly,I think you should create two scripts,one is socket server running on the host from where you fetch the file,another is socket client you use it to get

Re: Perl Query - Conversion of EXE file

2006-11-30 Thread Dharshana Eswaran
Hi Randal, I am trying to generate an exe file from few perl programs. I have 4 files which are main.pl, subroutine1.pl, subroutine2.pl and subroutine3.pl. main.pl file is the main program and it depends on the other subroutine files for data. So i tried zipping it using winzip and ran pp -o

Re: Help with WWW::Mechanize

2006-11-30 Thread Matt Johnson
Mathew Snyder wrote: Tom Phoenix wrote: On 11/28/06, Mathew Snyder [EMAIL PROTECTED] wrote: I have a form I'm trying to fill out. One of the fields, despite being named in the HTML source keeps erroring out on me. select name=ValueOfActor fields = { ValueOfStatus

Re: Perl Query - Conversion of EXE file

2006-11-30 Thread kilaru rajeev
Hi Dharshana, Just Zipping the file will wont work. You have to include them in program with 'use or 'require'. Try to do that. Rajeev On 12/1/06, Dharshana Eswaran [EMAIL PROTECTED] wrote: Hi Randal, I am trying to generate an exe file from few perl programs. I have 4 files which are

Complex regex help

2006-11-30 Thread Omega -1911
Hello all, I am trying to parse calendar events for a rss feed into variables. Can someone help with building the following regex or point me in the direction of some good examples? Thanks in advance. Here is what I have tried: (I don't know much about complex regex's as you see) $mystring =~