The perl documentation would have explained all of your errors. But I'll short-cut it for you.

First, $a and $b are variables used by perl for sorting and should not be used by you except for...

If you really want to do it manually you need a recursive function, something like this:


use warnings;
use strict;

#push @INC, "C:/Perl/Modules";

print "What is current download...

$decVal = <STDIN>;
chomp($decVal);#<--- you need this

You need to print the header first, not second:

print $cgi->start_html(), $cgi->header();


should be:

print $cgi->header(), $cgi->start_html();

You can't get the data sent to redirect.pl parsed by showdata.pl the way you are trying.

You have to recieve the data in your redirect.pl script and save it to disk and have showdata.pl open the...

Use a regular expression and a counter.

if($form_element{'email'} =~ m/^[a-zA-Z0-9_\-]+@[a-zA-Z0-9_\-]+([.][a-zA-Z0-9_\-]+)+[a-zA-Z]{2,4}$/i){
$values = 0;
$mail = "Valid!";
} else {
$mail = "InValid!";
}

Seems that maybe headedtomexico is now madeittomexico

A students best cheat tool is a search engine or the search feature of a website or forum. You would have found a recent thread discussing the exact same assignment had you done just a little...

see devshed for a reply to your question

You could try using a reference to a function.

sub some_function {
print "foo";
}

my $some_function = \&some_function;

You can pass $some_function like any other scalar, but you need to...

The warning will have no affect on the program. If you don't want the warning issued you can elect not to use the warnings pragma or use the "no warnings" switch in a block of code. See the warnings...

basic script with no formatting of output:

use warnings;
use strict;
use File::Find;

use File::Find;
find( {wanted=> \&wanted, no_chdir => 1}, 'C:/Program Files/Player' );
sub...

What you want is an IDE, a good free one is Perl Express

http://www.perl-express.com/

I think its only for Windows operating systems. Install activeperl from www.activestate.com then use the...

You declared perl is headed to the graveyard, if you ask me, python will probably get there sooner judging by it lower usage and it's been around as long as perl if not longer in one form or version...

There is no urgent help here. All questions have the same priority: none.

If you want help you need to post your code, describe in detail the problems you are having and post any error messages...

Good. But I still think it would be better to just count the words while building the initial data set, it would be less work since perl would only need to parse the file once to get all the data,...

Get the latest edition of "Perl BookShelf References" (on CD). 5 or 6 books on the CD, including "Learning Perl" and "Advanced Perl Programming" (at least last ime I checked they were included).
...

it will be in the http server error logs but most likely will not help much. But look in the apache folder, find the logs folder and find the error file.

in the code I posted, change this line:

print qq~( $long, $lat, time(), $omschrijving, $longneg, $latneg )~;

to:

$sth->execute( $long, $lat, time(), $omschrijving, $longneg, $latneg );

#!/usr/bin/perl
use strict;
use warnings;
open(IN, '<',"dna.dat") or die "Can't read file\n $!";
my $first_line = <IN>;
my $dna = '';
while(my $line=<IN>){
chomp $line;
$dna .= $line;
}

if you forget that line with perl generated output to a browser you get an internal server error. But the server error log should show an error about incomplete/malformed header. The exact error...

:)

There are a few ways to get the date/time with perl:

http://perldoc.perl.org/functions/gmtime.html

http://perldoc.perl.org/functions/localtime.html
...

$datos .= qq~<a href="$me?C=OFERTAS2&EMPRESA=$empresa_param&NREF=$nref" onMouseOver="linkFTecnica(nref2)">~;