perl 限制用户操作

<pre name="code" class="sql">#!/usr/bin/perl
use strict;
use Switch;
use Sys::Hostname;
use File::Basename;
my $host = hostname;
my $prompt = "$host >";
my @allow_command=(
    "/bin/cat",
    "/bin/pwd",
    "/bin/date",
    "/bin/df",
    "/bin/dmesg",
    "/bin/grep",
    "/bin/hostname",
    "/bin/ls",
    "/bin/netstat",
    "/bin/ping",
    "/bin/ps",
    "/bin/rpm",
    "/bin/sleep",
    "/bin/sort",
    "/bin/uname",
    "/sbin/ifconfig",
    "/usr/bin/clear",
    "/usr/bin/du",
    "/usr/bin/id",
    "/usr/bin/vi",
    "/bin/tar",
   "/usr/kerberos/bin/ftp",
   "export",
   "/bin/echo",
   "/bin/env",
   "source",
   "chdir",
);

my @allow_command2=map {basename("$_