Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl -wT

use strict;
...
chomp($CSC);  
$assignment = $q->param('assignment');
$file = $q->param('file');
  2. or download this
    my $path = join ('/',
                   $HOME, 'classes', $CSC,
                   $studentid, $assignment,
                   'outputfile.txt');
  3. or download this
    # An example of "validated" input
my ($studentid) = $q->param('studentid') =~ /(\w+)/;