请教Perl执行Linux内置命令的方式

红叶DBA

各位大牛：

我想在 Perl 中调用 Linux 的内置命令（在Linux中which看不到可执行文件），比如 alias，
如果直接使用 `alias` 或者 system('alias') 都不能执行，报错找不到可执行文件。

在这种情况下我该如何处理呢？

jason680

回复 1# 红叶DBA

X-Y Problem
http://bbs.chinaunix.net/forum.p ... mp;fromuid=24785593

schnell18

回复 1# 红叶DBA

今天心情好，直接给你答案吧：

1. #!/usr/bin/env perl
   
2. 
   
3. use strict;
   
4. printf "%s\n", qx[sh -c "which vi"];
   
5. 
   

复制代码