求教：如何在perl里检测一个可执行程序是否存在？

afeiguo

UID: 41187
帖子: 3
积分: 6
在线时间: 10 分钟

1^# afeiguo 发表于 2008-08-05 14:06

求教：如何在perl里检测一个可执行程序是否存在？

运行环境： linux

比如，我想检测系统里是否安装过JAVA，如何在perl里检测？

我想到的一个笨办法是，在$PATH里搜索java这个程序。

但是不知道有没有更好更通常的办法？

或者执行 java，看返回值？

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

2^# flw 发表于 2008-08-05 14:50

写一个 hello world 然后编译、运行，我认为这样子比较靠谱。

forlorngenius

UID: 32353
帖子: 42
积分: 96
在线时间: 2 小时

3^# forlorngenius 发表于 2008-08-05 15:05

apile

UID: 42255
帖子: 66
积分: 151
在线时间: 6 小时

4^# apile 发表于 2008-08-05 15:06

locate java
分析回传值....

afeiguo

UID: 41187
帖子: 3
积分: 6
在线时间: 10 分钟

5^# afeiguo 发表于 2008-08-05 15:36

>>> 写一个 hello world 然后编译、运行，我认为这样子比较靠谱。

用JAVA写一个hello world, 然后编译运行？

afeiguo

UID: 41187
帖子: 3
积分: 6
在线时间: 10 分钟

6^# afeiguo 发表于 2008-08-05 15:39

感觉好麻烦
还是运行，然后查看返回值吧

ulmer

UID: 6072
帖子: 148
积分: 340
在线时间: 1 天 6 小时

7^# ulmer 发表于 2008-08-05 15:42

try to use shell command in Perl:

QUOTE:

:~/$ which java
/usr/bin/java
:~/$ type java
java is /usr/bin/java
:~/$ type jav
bash: type: jav: not found
:~/$ which jav
:~/$ perl -le '$pgm="java"; $res=`which $pgm`; ($res) ? print 1 : print 0'

hdc1112

UID: 2620
帖子: 83
积分: 190
在线时间: 9 小时

8^# hdc1112 发表于 2008-08-06 08:18

locate java你知道返回值多大不

我建议用java -version的返回值分析判断，能执行表示path里有java，而且顺便获取版本号

hfahe

UID: 36097
帖子: 160
积分: 368
在线时间: 1 天 11 小时

9^# hfahe 发表于 2008-08-06 09:39

java -version

apile

UID: 42255
帖子: 66
积分: 151
在线时间: 6 小时

10^# apile 发表于 2008-08-06 09:54

QUOTE:

原帖由 hdc1112 于 2008-8-6 08:18 发表
locate java你知道返回值多大不

我建议用java -v的返回值分析判断，能执行表示path里有java，而且顺便获取版本号

java -v 要有结果, 先决条件是java的path要在环境变量PATH 里面....

如果今天有个java不是安装在缺省得路径..也没有写进PATH中....

这个要不要算？

Linux的located 会把所有路径存入DB...所以这个才是最准确的....当然要定期更新他的db...

求教： 如何在perl里检测一个可执行程序是否存在？

求教： 如何在perl里检测一个可执行程序是否存在？

求教：如何在perl里检测一个可执行程序是否存在？

求教：如何在perl里检测一个可执行程序是否存在？