Search results for query: *

Anyone have another way to completely erase the cookie. Right now I'm simply filling them with "null". Thank you in advance

Thanks Columb. I think I need some sleep, cause this was a stupid error. Is there an easy way to delete the cookie. I'm using this right now and it doesn't delete the cookie file. # Delete cookie # Delete cookie if ($cgi->param('cmd') eq "logout") { my $cookie = $cgi->cookie ( -name...

I'm using the following code for a cookie-based login. The script has no syntax error, but it is not able to send the cookie to the user's browser. In IE, it's processing for over 2 mins and then I get a timeout error. Any help would be greatly appreciated. I'm using CGI 2.98 w/ Perl 5.6.1 on...

I'm using the following code for a cookie-based login. The script has no syntax error, but it is not able to send the cookie to the user's browser. In IE, it's processing for over 2 mins and then I get a timeout error. Any help would be greatly appreciated. I'm using CGI 2.98 w/ Perl 5.6.1 on...

By the way... the print_members sub routine is working properly, so that's why I haven't posted it

Thanks PaulTeg for your support If I want to print the number of matched results ($NumberOfMembers) before printing the results... Is there a simply way to do this ? print "$NumberOfOffices \n"; sub find_members { for (keys %members) { if ($input{'pv'} eq $members{$_}{'region'}) {...

I would like to know how to push a hash to use it later on (in another sub-routine). I know the push function only applies for arrays but is there a similar function for hashes ? Here's the current coding I have. [code] for (keys %members) { if ($input{'pv'} eq $members{$_}{'region'}) {...

Toolkit Thank you very much for your help. It's really appreciated. It's working perfectly. RieekanThank you for your comments.

Hi, I'm trying to sort alphanumeric data. Here's an example of the numbers: 33311a 33311b 33312 33313 Right now I'm using the "cmp" operator but I get the following results: 33312 33313 33311a 33311b Coding: $case{$a}{$num} cmp $case{$b}{$num} Thanks

Thank you to all for your help. After looking closely at the Flat File I've noticed that a whitespace was added at the end of each line. The whitespace was generated by the "exporting tool" in Oracle. So now everything is working perfectly.. Thank you again...

No. It's not cause by the use of the wrong comparison operator. When I simply display the value in the field, I get "23 " (with a space after the value)

Hi, I have data in a flat file seperated by delimiters. Ex: ID09000|Name|Name02|23 I'm using the following code in order to split all this and put it into an array: my @field=split(/\|/,$record); chomp $record; Now if I want to use the value (for comparaison etc..) in the $field[3]...

I've temporarily change the <=> to cmp and it's working...

Hi, I would like to know if there is a simply way to sort by date. Dates are the the following format: $date = yyyy-mm-dd Right now I'm doing a simple num sorting (which certainly doesnt work) sub sorting { $b->[14] <=> $a->[14]; }

bdchoulette: Thank you for your help But with your code I'm getting the following output Field Date: 2004 06 01 Field Date: 2004 05 31 Field Date: Field Date: 2003 05 23 Field Date: 2002 02 1

Hi, I'm trying to extract dates (from flat file) which are in the following format: yyyy-mm-dd and then split the field to create an array... Here's a simplified version (no flat file) You will notice that only extract 3 dates out of 4 are extracted. Thank you in advanced while(<DATA>) {...

Thank you guys for the help. TomThumbKP: It's working perfectly. Again, thank you

I'm simply looking basic regex to check if the date as the corrent format xxxx-xx-xx (x = digits) I don't wanna check if the numbers are valid or not... Thank you guys

I know it may have been already discussed in the past, but I need a simple regex to validate dates in the following format: yyyy-mm-dd Thank you

I have the following: open(FILE,"$File.txt") || die("Could not open file!"); my @Data=<FILE>; close(FILE); foreach my $record (@Data) { chop $record; my @field=split(/\|/,$record); if ($input{'srh'} == $field[5]) { push (@found,[@field]); print $field[0]; } } Now I want to store...