Perl中使用AUTOLOAD简单实现调用shell命令

#! /usr/bin/perl -w
use strict ;

sub AUTOLOAD
{
   my $program = our $AUTOLOAD;
   print $program,"\n";
   $program =~ s/.*:://;
   system($program,@_);
}

sub date(;$$);
sub who(;$$$$);
sub ls;
sub echo($@);

date;
who 'am','i';
ls '-lrt';
echo "songwolf is good!";

 输出对应shell命令的结果:cool~~