论坛 › Perl › perl shell脚本互调

xiu12 发表于 2015-12-26 10:16:56

perl shell脚本互调

　　1 shell echo 命令会自动加入换行符
　　2. $?接受exit 返回值
　　3.变量等于`执行脚本` ，变量获取的值为脚本最后向STDOUT输出的值
　　例子如下
　　1. perl 调用shell
　　

1.sh中的内容　　#!/usr/bin/sh
echo `date`;
exit 1;
　　test.pl中的内容
　　1   use strict;
　　2 use warnings;                                                                                             
3 my $s=`sh 1.sh`;                                                                                       
4 print STDOUT "$s";                                                                                          
5 my $exitcode=$?>>8;                                                                                                            
6 print "$exitcode\n";
　　
　　2 shell调用perl
　　shell 脚本实例
　　#!/usr/bin/sh
s=`perl PrepareEnvironment.pl`
echo $?;
echo $s;
　　
　　3. perl中system命令，不能执行system("cd xxx");
　　ln -sf $s/good.dic../Dic/Dic/good.dic ln 命令在创建软连接时，第一个参数必须是绝对路径
　　touch a.txt ,当a.txt存在的时候，touch的作用仅是改变文件的时间戳标识。

查看完整版本: perl shell脚本互调