our approach|new tutorials|contact us

Perl Basics In Pictures

• Basics
• Variables
• Numbers
• Subroutines
• Logic & Loops
• Files

4. Create a new script with this code:
   #!/usr/bin/perl
   print "Content-Type: text/html \n\n";
   &getFormData;
   $GoodPassword = 'acme';
   if ($request{'password'} eq $GoodPassword){
   print "Acme Password verified!\n";
   }
   sub getFormData {
   read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
   @pairs = split(/&/, $buffer);
   foreach $pair (@pairs) {
   ($name, $value) = split(/=/, $pair);
   $value =~ tr/+/ /;
   $value =~ s/%([a-fA-F0-9][a-fA-F0- 9])/pack("C", hex($1))/eg; $value =~ s/\n/ /g;
   $request{$name} = $value;
   }
   }