[解决]请教各位大大判断库的方法

hyoryeo

1. 
   
2.         if (defined $ARGV[0]) {
   
3.                 print "here\n";
   
4.         } else {
   
5.                 print "there\n";
   
6.                 use lib "/usr/lib/system/";
   
7.                 use header;
   
8.         }
   

复制代码

请问各位大大,怎样才能先判断参数再判断所需要使用的库..

Monox

回复 1# hyoryeo
据我所知，是不可以的，因为参数是在运行时传入的，use 语句是在编译时调用的。
不过，使用 eval 的话，或许可以办到。

yybmsrs

可以放在BEGIN里面

Monox

回复 3# yybmsrs

刚才突然下意识的认为  ＠ARGV 不能在 BEGIN 里使用。

dugu072_cu

require

hyoryeo

require
dugu072_cu 发表于 2010-09-10 14:03

这可以吗??因为HEADER库是内部库哦..

dugu072_cu

回复 6# hyoryeo


    你试一下不就知道了？

hyoryeo

回复  hyoryeo


    你试一下不就知道了？
dugu072_cu 发表于 2010-09-10 14:12

    早上已经试过了..

dugu072_cu

回复 8# hyoryeo


    我不知道你说的这个内部库，redhat 下看了下，也没有，但是 use 无论对什么库而言，都是在编译阶段执行的，而 require 是running time 才会编译后执行的，这点肯定没有问题……
贴下你试验的代码，及过程吧

hyoryeo

回复  hyoryeo


    我不知道你说的这个内部库，redhat 下看了下，也没有，但是 use 无论对什么库而言 ...
dugu072_cu 发表于 2010-09-10 14:24

嗯..可能是我有些语误..我说这是公司的内部库...

其实现在

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. if (exists $ARGV[0]) {
   
5.         use lib "/usr/lib/system/";
   
6.         no header qw( :ui :log :validation );
   
7.         no backup qw( :standard );  
   
8.         print "bac";
   
9. } else {
   
10.         use lib "/usr/lib/system/";
    
11.         use header qw( :ui :log :validation );
    
12.         use backup qw( :standard );
    
13. }
    
14. 
    
15. exit;

复制代码

运行结果:若使用了use header就错误...只是我已经用了参数了.)

1. 
   
2. [root@-s admin]# ./backup.img 55
   
3. Status: 302 Moved
   
4. Location: /cgi-bin/login.cgi?
   

复制代码