Help for this page

Select Code to Download


  1. or download this
    my %allowed;
$allowed{'ls'} = '/bin/ls';
$allowed{'grep'} = '/bin/grep';
$allowed{'gzip'} = '/bin/gzip';
. . .
  2. or download this
    my $good_prog = $allowed{$program1};
system($good_prog) if($good_prog != undef);
  3. or download this
    use File::Find;
my %allowed;
...
{
     $allowed{$_} = $File::Find::name;
}