Sending a location Header

Gidday All, After adding a member to my mailing list using a form with the get method. I wish to send a location header to call the page again, to clear the query string. So that if the refresh key is hit that member is not added again. Is this the correct implementation of the location header

Re: using an AND operator

In a message dated 1/11/2003 9:43:32 AM Eastern Standard Time, [EMAIL PROTECTED] writes: if ($SRF=1 and $SRL=1) {printYES;) You got the and right, but the conditional wrong. 2 equal signs for conditionals. So your example: $SRF = 1; $SRL = 1; if ($SRF==1 and $SRL==1) {printYES;} #True or is

Re: Sending a location Header

Colin Johnstone wrote: Gidday All, After adding a member to my mailing list using a form with the get method. I wish to send a location header to call the page again, to clear the query string. So that if the refresh key is hit that member is not added again. Is this the correct implementation

Re: using an AND operator

Hi Susan Susan Aurand [EMAIL PROTECTED] wrote in message [EMAIL PROTECTED]">news:[EMAIL PROTECTED]... Is there an AND operator in perl? For example; if ($SRF=1 and $SRL=1) {printYES;) Any help would be appreciated. Thank you - Susan What you've written will work as it is, except that

Re: Removing a specific value from a hash whose keys contains multiple values

Just used the following code to delete a specific value from an array, populated from text read from file. Please let me know if i can be of any help. sub doDeleteProvider { my $cgi = shift; my $counter = 0; my $index; my $del_name = $cgi-param(names); my $TITLE = Nighthawk Database;

Administration errors

Can someone point me in the right direction? I am running my first FormMail.pl and have checked the syntax - all looks okay. The problem is I'm getting two types of errors - the first just gives Administrative Error when the submit button is clicked. The other says: Error: GET request The

Re: build an array from a pattern match?

On Fri, Jan 10, 2003 at 10:22:37PM -0500, David Nicely wrote: Hello, Hi David, I am a total beginner, so any help or a pointer to an appropriate doc will be appreciated. I am trying to read a file, and find all the lines that look like; Finding 111 where 111 could be any number with any

Re: Best way to return largest of 3 Vars?

On Fri, Jan 10, 2003 at 10:23:43AM -0600, Jensen Kenneth B SrA AFPC/DPDMPQ wrote: In the line my $max = (sort {$b=$a} ($x, $y, $z))[0]; What is the [0] doing? This part: (sort {$b=$a} ($x, $y, $z)) creates a list. The [0] returns the first element in that list. Also another

tail + count

I wrote the following script as a windows tail + count function, but it's too slow if the input is huge, how can it be improved? if (!$ARGV[0]){ die(you've forgotten to enter the file name\n); } if (!$ARGV[1]) { $n = 9; # output 10 rows by default } else { $n =

ppm: No suitable installation target for package G

What does the error No suitable installation target for package ... mean? I am using ppm 3.0.1 from perl 5.8.0 build 802. ppm describe G Name: G Version: 4.1 Author: Jan Krynicky ([EMAIL PROTECTED]) Title: G Abstract: Command line globing for Win32 systems Location:

Re: Epoch midnight

Deborah Scott [EMAIL PROTECTED] wrote in message [EMAIL PROTECTED]">news:[EMAIL PROTECTED]... I thought I understood the answer, but I need more details. What exactly would I enter if I want a program to find the epoch time for midnight each night? I know how to find current time and date in

Re: Remove some, not all \n from a text block

Alan C. [EMAIL PROTECTED] wrote in message [EMAIL PROTECTED]">news:[EMAIL PROTECTED]... Rob Dixon wrote: my $last = undef; while () { next unless defined $last; chomp $last unless /^\./; print $last; } continue { $last = $_;

using an AND operator

Is there an AND operator in perl? For example; if ($SRF=1 and $SRL=1) {printYES;) Any help would be appreciated. Thank you - Susan -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: build an array from a pattern match?

Michael Kelly [EMAIL PROTECTED] wrote in message [EMAIL PROTECTED]">news:[EMAIL PROTECTED]... # print out all the captured numbers map{ print $_\n; } @numbers; Hi Michael. May I warn against using 'map' in a void context like this? It'll work, sure, but you're using it for the side-effect of

Re: Sessions un CGI and Client's OS

aman raheja wrote: Hello I am using Perl/CGI on Linux (with Apache). Nice choices. Some users have cookies disabled in their browsers and some are using the old ones, which cause problems, along with Netscape. Anyhow, I am looking for following solutions 1. How do we know the Operating System

Re: Epoch midnight

Hi Rob, You missed a digit, I'm afraid--that should be 86400. Joseph ... my $epoch_today = time / 8400; #should be 86400 -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: using an AND operator

perldoc perlop, for all operators you need Mark - Original Message - From: Susan Aurand [EMAIL PROTECTED] To: [EMAIL PROTECTED]; [EMAIL PROTECTED] Sent: Saturday, January 11, 2003 9:48 AM Subject: using an AND operator Is there an AND operator in perl? For example; if ($SRF=1 and

Re: Sessions un CGI and Client's OS

Wiggins D'Anconia [EMAIL PROTECTED] wrote in message [EMAIL PROTECTED]">news:[EMAIL PROTECTED]... aman raheja wrote: Anyhow, I am looking for following solutions 1. How do we know the Operating System of the Client's system? You can't reliably The system under which Perl was built is

Re[2]: possible improvement(s)

Hello Mik, MR Hi MR There are people on this list who MR kindly share their knowledge MR with others, like myself, to help MR us better understanding perl fundamentals. MR But there are also people who misuse that MR kindness to gain, I think, commercial advantage. MR Regards MR Mik MR

Re: possible improvement(s)

- Original Message - From: Randal L. Schwartz [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Saturday, January 11, 2003 5:02 PM Subject: Re: possible improvement(s) Mik == Mik Rudich [EMAIL PROTECTED] writes: Mik There are people on this list who Mik kindly share their knowledge Mik

Re: menu

Hi Dylan Dylan Boudreau [EMAIL PROTECTED] wrote in message 004c01c2b8cd$0920dbb0$0400a8c0@dylan">news:004c01c2b8cd$0920dbb0$0400a8c0@dylan... I am trying to make a small menu for a script and the options are 1 or 2 or 9. I have it written like this until ($selection == '1|2|9'){ do

Re: Epoch midnight

Deborah, I'll second Todd W's response, and warn you to avoid solutions doing direct math on the result of time(), as they disregard the effects of Daylight Saving Time and calendar adjustments since the epoch. Also, you can get the other midnight bookend for today, using Todd's method, though

Re: possible improvement(s)

Mik == Mik Rudich [EMAIL PROTECTED] writes: Mik There are people on this list who Mik kindly share their knowledge Mik with others, like myself, to help Mik us better understanding perl fundamentals. Mik But there are also people who misuse that Mik kindness to gain, I think, commercial

Re: ftp: error Bad file descriptor

What does $file and $rename contain? http://danconia.org michael kramer wrote: For some reason when I use NET:FTP's get. I will get an error of Bad file descriptor. What does this mean. Here is my code. use Net::FTP; $ftp = Net::FTP -new($ip_address, Timeout = 200,

Re: Formfeed in html (perl/cgi)

Hey dhoubrechts, My MUA believes you used Mozilla 4.75 [fr] (X11; U; Linux 2.2.17-21mdk i686) to write the following on Friday, January 10, 2003 at 6:00:31 PM. d Can I put a formfeed in a perl cgi ? I've tried print \f or d something like but I can't force a new page. Can someone help

Re: Removing a specific value from a hash whose keys contains multiple values

Ebaad Ahmed wrote: Just used the following code to delete a specific value from an array, populated from text read from file. Please let me know if i can be of any help. sub doDeleteProvider { my $cgi = shift; my $counter = 0; my $index; my $del_name = $cgi-param(names); my $TITLE =

Re: error Bad file descriptor

Hi Michael I suggest you find out which call is producing your error; that will help you, and help us to help you. Do it either by running under the debugger or by adding print statements. If you're doing the latter it's best to enable autoflush with $| = 1; Cheers, Rob Michael Kramer

Re: build an array from a pattern match?

Rob Dixon wrote: Michael Kelly [EMAIL PROTECTED] wrote in message [EMAIL PROTECTED]">news:[EMAIL PROTECTED]... # print out all the captured numbers map{ print $_\n; } @numbers; Hi Michael. May I warn against using 'map' in a void context like this? It'll work, sure, but you're

Re: tail + count

Mrtlc wrote: I wrote the following script as a windows tail + count function, but it's too slow if the input is huge, how can it be improved? if (!$ARGV[0]){ die(you've forgotten to enter the file name\n); } if (!$ARGV[1]) { $n = 9; # output 10 rows by default } else

Re: tail + count

Hi John John W. Krahn [EMAIL PROTECTED] wrote in message [EMAIL PROTECTED]">news:[EMAIL PROTECTED]... @ARGV == 2 and my $n = pop || 10; $n will be undefined if @ARGV != 2. Need something like: $n = @ARGV == 2 ? pop : 10; Rob -- To unsubscribe, e-mail: [EMAIL PROTECTED] For

Re: Removing a specific value from a hash whose keys contains multiple values

John == John W Krahn [EMAIL PROTECTED] writes: John From the foreach loop it looks like you want to remove the last John occurrence of $del_name from @pro_list. You could also do it like this: John foreach ( reverse 0 .. $#pro_list ) { John if ( $pro_list[$_] eq $del_name ) { John