如何实现用PERL脚本+配置文件运行程序

i57110403

小弟有个问题：
我用PERL写了一个脚本，功能是执行一个TOOL，但这个TOOL 有许多参数(比如参数有-A  -B  -C  -D  -E 等)。例如
简单举例：TOOL  -A
               TOOL  -B
               TOOL  -C
               TOOL  -D
               TOOL  -E
当运行完“TOOL -A”后就开始运行“TOOL  -B”，运行完“TOOL  -C”后就开始运行“TOOL  -C”。。。。

所以在写的时候把参数都固定的写在里面。这样扩展性较差，不利于维护与修改。
我想能不能把所有的参数都写在一个配置文件里面，用PERL脚本加配置文件实现。
     不知道这样能否实现，希望高手指点一二。

yigenjin

cpan Config::Std

iakuf

YAML
可以给你想要存的使用东西,写成 YAML后，使用 FileLoad 读进来，这样可以象操作一个普通引用一样使用它。非常方便

yaoliwei

不用模块感觉也不难啊，两步，
1， 读取文件，
2， 依次执行文件中的执行信息。

shileiadmin

这样？[tmn@linuxserver tmp]$ perl lx.pl prin.pl log
Hello A
Hello B
Hello C
Hello D
Hello E

1. [tmn@linuxserver tmp]$ cat lx.pl
   
2. #!/usr/bin/perl -w
   
3. 
   
4. use strict;
   
5. 
   
6. my $ur_program = shift;
   
7. my $ur_data = shift;
   
8. open(INPUT_FD,"$ur_data")||die "Can't open $ur_data $!\n";
   
9. my $args="";
   
10. while( defined($args=<INPUT_FD>) )
    
11. {
    
12.         chomp $args;
    
13.         system("perl $ur_program -$args");
    
14. }
    
15. 
    
16. close(INPUT_FD);

复制代码

1. [tmn@linuxserver tmp]$ cat prin.pl
   
2. #!/usr/bin/perl -w
   
3. 
   
4. use strict;
   
5. 
   
6. my $args = shift;
   
7. $args = substr($args,1,1);
   
8. print "Hello ${args}\n";
   

复制代码

1. [tmn@linuxserver tmp]$ cat log
   
2. A
   
3. B
   
4. C
   
5. D
   
6. E

复制代码