עבודה וראיון עבודה ב פרל סקריפטים , שאלות מראיון עבודה בנושא PERL.

// BEGIN PERL SNIPET

sub factorial {
my $y = shift;
if ( $y > 1 ) {
return $y * &factorial( $y - 1 );
} else {
return 1;
}
}

// END PERL SNIPET

// BEGIN PERL SNIPET

$a = "5,-5,-1,0,12,-3";
(@temp) = split (/,/, $a);
$lowest = $temp[0];

for ($i=0; $i<6; $i++) {
if ($temp[$i] < $lowest) { $lowest = $temp[$i]; }
}

print "Lowest value found was: $lowestn";

// END PERL SNIPET

NOTE: You could also replace the for loop with this:

foreach $value (@temp) {
if ($value < $lowest) { $lowest = $value; }
}

"this is a string"
qq/this is a string like double-quoted string/
qq^this is a string like double-quoted string^
q/this is a string/
q&this is a string&
q(this is a string)

--For Perl one-liner, use -w option on the command line.
--On Unix or Windows, use the -w option in the shebang line (The first # line in the script).
Note: Windows Perl interpreter may not require it.
--For other systems, choose compiler warnings, or check compiler documentation.