Some basic perl programming constructs that can be implemented in HTML/CGI web pages
Basic While loop
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
print "content-type: text/html \n\n";
# SET VARIABLE(S)
my $count = 0;
# RUN WHILE LOOP
while ($count <= 10) {
# PRINT RESULT
print "$count<br />";
# INCREMENT VARIABLE
$count ++;
}
print "While loop complete!";
While loop with conditional statement (using next)
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
print "content-type: text/html \n\n";
# SET VARIABLE(S)
my $count = 0;
while ($count <= 10) {
# CONDITIONAL STATEMENT - Skip 5
if ($count == 5) {
print "Five skipped!<br>";
next;
}
# PRINT THE COUNTER
print $count."<br>";
}
continue {
$count++;
};
print "Loop Finished!";
While loop, arrays, using Dumper, - create a html table
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
print "content-type: text/html \n\n";
# Create an ARRAY
my @names = qw(Perl Javascript Linux DOS);
# VARIABLE(S)
my $count = 1;
my $n = 0;
my $temp = @names;
my $tempPointer = \@names;
print "print var temp scalar value:- $temp <br><br>";
print "print tempPointer pointer value:- $tempPointer <br><br>";
# Use dumper to inspect the array
print "<br><b>--- Dumper print tempPointer to array---</b> <br>";
print Dumper ($tempPointer);
print "<br><br>---- print dumper of names array --- <br>";
print Dumper (@names);
# Create HTML table
print '<br><br><b>Create a html table</b><br>';
print "<table border='1'>";
# Use the scalar to create table elements
while ($names[$n]) {
print "<tr><td>$count</td><td>$names[$n]</td></tr>";
$n++;
$count++;
}
print "</table>";