perl改写shell case

trt2008

大家好!请问如何用perl改写下面的shell语句,谢谢!
#!/bin/bash
  case $2 in
   
    start)
    echo "-----------------------------------"
    /usr/local/apache/bin/apachectl start
    /usr/local/nginx/sbin/nginx
    /usr/local/tomcat/bin/startup.sh
    echo "-----------------------------------"
    ;;

yigenjin

这个还是最好别用PERL了，shell更好些。

如果非要改，要么自己用LABEL伪造个switch语句，要么用if...else

如：

1. if ($ARGV[1] =~ /start/i) {
   
2.     echo "-----------------------------------"
   
3.     /usr/local/apache/bin/apachectl start
   
4.     /usr/local/nginx/sbin/nginx
   
5.     /usr/local/tomcat/bin/startup.sh
   
6.     echo "-----------------------------------"   
   
7. }
   
8. elseif (...) {
   
9. }

复制代码

注意shell里的$2到perl里应该是ARGV[1]了。

trt2008

谢谢yigenjin 的回复,有一个疑问，/usr/local/apache/bin/apachectl start 这些命令在perl中能直接执行吗?

climby

我来发个用SWITCH伪造的条件判断

1. 
   
2. #!/usr/bin/perl -w
   
3. 
   
4. die "Missing arguments!" unless ( $ARGV[1] );
   
5. SWITCH: for ( $ARGV[1] ) {
   
6. 
   
7.     /start/i && do {
   
8.         print "-" x (80) . "\n";
   
9.         `/usr/local/apache/bin/apachectl start`;
   
10.         `/usr/local/nginx/sbin/nginx`;
    
11.         `/usr/local/tomcat/bin/startup.sh `;
    
12.         print "-" x (80) . "\n";
    
13.         last SWITCH;
    
14.     };
    
15. }
    

复制代码

在perl中让命令行执行可以将命令行放到``中

yigenjin

回复 3# trt2008

不能，我只是给你个伪代码。

我觉得楼上给的反引号的用法应该不可以（没测试），因为`command`是得到程序输出，缺少左值。应该会报错吧。

我推荐使用system("command")，更规矩。

以及我不喜欢用LABEL伪造循环，原因跟大家一致摒弃的goto语句一样。

trt2008

多谢,看来想彻底抛开shell还是不行地.

yigenjin

回复 6# trt2008

适合什么就用什么。为什么非得抛弃？

fly183

顶5F，在perl里执行shell命令须按system(""