问个perl的 函数调用 （外部search.pl文件执行） 问题

调用这个文件的功能是-〉管理页面中新添加的数据 要想马上显示出来。（本来体统有自动一天一次执行这个文件的cron的命令不过现在想马上就显示）  所以 可以手动 写  perl randomsearch.pl
这样 马上就可以显示出来了 。不过我想要做个函数 点一下 管理中的一个 链接 就 执行 刚才手动操作的 内容 。以下是我写的 .pm函数 不知道 哪里有问题 请高手给说一下贝。。。
use File::Copy;
$CONF::CMD->{'sub_portal'} = sub { my $func = shift;
        my $param = shift;
        my $msg = _conv_scalar(shift, $param);
        my $filename = _conv_scalar(shift, $param);
        my $path = '../../batch';$cufld = '.';  #######
        $fname = 'test.txt';######
        my $msg = shift;
        my $fh
        opendir(DIR, $path) or die;
      if (-e $filename){
system "perl $filename";
                open $fh, ">>$path" or die "open error.($path)($!)";######
                print $fh __PACKAGE__, ' : ', $msg, "\n";
                close $fh;
                return 1;

       }else();
       return -1;
        closedir(DIR);
};

1

perl 语言 在linux 中 1/目录下 执行 perl random.pl

要写一个函数 执行 同样的功能 假设目录是 /home/command/random.pl

怎么写函数 进入 该目录 执行 perl 文件名 这个命令？

my $func = shift;
my $param = shift;
my $filename = _conv_scalar(shift, $param);
$param->{$filename};

my $path = '../../command';
my $error = "error ！";
$cufld = '.';

opendir(DIR, $path) or die;
if (-e $filename){
system "perl $filename";
return 1;

}else();
return -1;
closedir(DIR);
};

1

实在不明白您是什么意思

就是 从 cgi 文件 写一个 执行  shell 命令的  代码！

example  

home/tmpl/command 目录下  有个 radom.pl  文件

cd  home/tmpl/command   

%  perl radom.pl

现在 要 改写成 从一个 cgi 文件中 执行 ....   有能 理解 的 帮帮忙 阿  我表达能力 确实  很有限。

那地方有问题呢？？？
my $path = '../../command';
$cufld = '.';
$filename="radom.pl";
$command='perl radom.pl';
opendir(DIR, $path) or die;
if (-e $filename){
system "$command";
return 1;

}else();
return -1;
closedir(DIR);
};

1

opendir用错了 用chdir

谢谢了~~ 不过现在还是不能执行 system 调用呢？

#!/usr/bin/perl

$filename = 'radomsearch.bat';
$command = "perl radomsearch.bat";
$upfld = '../../';

chdir $upfld or die "error: $!\n";

opendir(DIR, $upfld) or die;
if(-e $filename){
system("$command");
closedir(DIR);
}else{
        $c="file not exist";
        print  $c;
}

呼唤摘要。

能不能具体的 讲一下呢 谢谢了

要是想从 一个html 页面 中 做个 link  点击link以后 执行 上面的 shell命令 的话 要怎么做呢  

小弟 新手  不是 很了解  在网上 找了半天也没 头绪  直到的 给说一说吧 谢谢了

有知道的没有啊？？