一个perl b脚本调用另一个perl a脚本，如何在b脚本中获取a脚本的返回值
[问题点数：80分，结帖人yunming314]
一个perl b脚本调用另一个perl a脚本，如何在b脚本中获取a脚本的返回值
[问题点数：80分，结帖人yunming314]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
匿名用户不能发表回复！|Perl&脚本简单应用实例&（转载）
脚本简单应用实例-MySQL备份
原创作品，允许转载，转载时请务必以超链接形式标明文章
、作者信息和本声明。否则将追究法律责任。
脚本主要功能：
1.备份数据
2.记录操作日志
3.数据滚动备份
#!/usr/bin/perl
# Description& MySQL Backup
Ver&&&&&&&&&
# Define some variables
my $BACKUP_DIR= "/data";& #
指定备份路径
my $DATA_DIR& = "$BACKUP_DIR/data";
my $BACKUP_LOG = "$BACKUP_DIR/backup.log";
my $DB_HOST&& = "
";& # 数据库IP
my $DB_USER&& = "
";& # 数据库用户名my
$DB_PASS&& = " "; # 数据库密码
@DB_LISTS&&&&&&&
= (" "," ");& # Databases which are needed to
# MySQL Backup Detail
open(LOGFILE,"&& $BACKUP_LOG");
print LOGFILE ("-----------------------------------\n");
print LOGFILE (`date +'%Y-%m-%d %H:%M:%S'`);
print LOGFILE ("--------------------------\n");
my $CURRENT_DATE = `date +'%Y%m%d'`;
chomp($CURRENT_DATE); # clear& "\n"
# Function stat summary:
# stat()函数返回一个数组，下面是数组各个元素的含义：
设备号 驱动器号（C：通常是2，D：通常是3，等等）
索引节号 总是0
文件的方式 无
nlink&&& 链接号
通常为0；Windows NT；文件系统允许链接
文件所有者的用户ID（UID）总是0
文件所有者的组ID（GID）总是0
特殊文件信息 驱动器号（重复）
文件大小（以字节计）文件大小（以字节计）
atime&&& 上次访问的时间
上次访问的时间
mtime&&& 上次修改的时间
上次修改的时间
Inode修改时间 文件的创建时间
blksz&&& 磁盘块的大小
blocks&& 文件中的块的数量 总是0
# 获取某个文件的创建时间和最后一次修改时间，
#&& my @array =
stat("a.html");
#&& print "$array[9]\n"; #
输出a.html文件上次修改的时间
foreach my $db (@DB_LISTS){
# DB Backup
if (! -e "$DATA_DIR/$db"){
&&&&&&&&&&&&&&&
mkdir("$DATA_DIR/$db");
`mysqldump -h $DB_HOST& -u $DB_USER -p$DB_PASS
--databases $db &
"$DATA_DIR/$db/${db}_${CURRENT_DATE}\.sql"`;
print LOGFILE ("Backup $db successfully!\n"); #将备份操作写入日志
# Del outdated database file
my @db_file = &$DATA_DIR/$db/*.*&; #
&$DATA_DIR/$db/*.*& 表示匹配该目录下*.*模式的文件
foreach my $db_file (@db_file){
&&&&&&&&&&&&&&&
my @f_info = stat($db_file); # array,9 meant mtime
&&&&&&&&&&&&&&&
if (time() - $f_info[9] & (60*60*12*5)){ # 60*60*60*5
表示5天的总秒数
&&&&&&&&&&&&&&&&&&&&&&&
unlink $db_ #删除文件
&&&&&&&&&&&&&&&&&&&&&&&
print LOGFILE ("Delete OldFile $db_file successfully!\n");
#将删除操作写入日志
&&&&&&&&&&&&&&&
close(LOGFILE);
本文出自 “”
博客，请务必保留此出处
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。python 如何做到同时只运行一个程序
[问题点数：50分，结帖人qq_]
python 如何做到同时只运行一个程序
[问题点数：50分，结帖人qq_]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2009年7月 总版技术专家分月排行榜第二2009年3月 总版技术专家分月排行榜第二2009年1月 总版技术专家分月排行榜第二2005年7月 总版技术专家分月排行榜第二2005年5月 总版技术专家分月排行榜第二2005年3月 总版技术专家分月排行榜第二
优秀小版主2015年8月优秀小版主2015年9月优秀小版主2015年5月优秀小版主2015年2月论坛优秀版主
匿名用户不能发表回复！|如何在Perl脚本里同时发起多个程序运行？_百度知道
如何在Perl脚本里同时发起多个程序运行？
例如：同时发起：{launch exe1；launch exe2；launch exe3；}launch exe4;我想让exe1、exe2、exe3同时被launch，等他们运行完后在运行exe4.谢谢大侠！
我有更好的答案
$t1 = threads -& create( sub { `calc` } ) ; # launch exe1$t2 = threads -& create( sub { `notepad` } ) ;# launch exe2$t3 = threads -& create( sub { `explorer` } ) ;# launch exe3$t1-&join(); $t2-&join(); $t3-&join();print `dir`; # launch exe4
采纳率：73%
来自团队：
fork();# Does NOT work too concurrently well on Windows
为您推荐：
其他类似问题
您可能关注的内容
perl的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。帐号:密码:下次自动登录{url:/nForum/slist.json?uid=guest&root=list-section}{url:/nForum/nlist.json?uid=guest&root=list-section}
贴数:7&分页:dajiangyouha发信人: dajiangyouha (dajiangyouha), 信区: Perl
标&&题: 请教一下，linux下如何打包多个perl脚本为一个可执行文件？
发信站: 水木社区 (Thu Oct 11 10:46:41 2012), 转信 &&&& 建了个perl工程
里面perl脚本比较多
有什么办法可以将这些脚本打包成一个linux下的可执行程序呢？ && -- && ※ 来源:·水木社区 ·[FROM: 124.65.151.*]
dajiangyouha发信人: dajiangyouha (dajiangyouha), 信区: Perl
标&&题: Re: 请教一下，linux下如何打包多个perl脚本为一个可执行文件？
发信站: 水木社区 (Thu Oct 11 11:13:24 2012), 转信 &&&& 能详细点说说吗？ && 【 在 vimer (换个昵称。) 的大作中提到: 】
&& -- && ※ 来源:·水木社区 ·[FROM: 124.65.151.*]
炒瓜子发信人: apo (炒瓜子), 信区: Perl
标&&题: Re: 请教一下，linux下如何打包多个perl脚本为一个可执行文件？
发信站: 水木社区 (Thu Oct 11 11:20:31 2012), 转信 && rpm/deb打包，或者用shell写个install.sh一起打个tgz之类的包。
不都是法子么。 && 你要是打算转成binary的独立程序，就找找perlcc，perl2exe之类的工具。 && 【 在 dajiangyouha (dajiangyouha) 的大作中提到: 】
: 标&&题: Re: 请教一下，linux下如何打包多个perl脚本为一个可执行文件？
: 发信站: 水木社区 (Thu Oct 11 11:13:24 2012), 转信
: 能详细点说说吗？
: 【 在 vimer (换个昵称。) 的大作中提到: 】
: ※ 来源:·水木社区 ·[FROM: 124.65.151.*]
Software Is Hareder Than Hardware! &&&& ※ 来源:·水木社区 newsmth.net·[FROM: 114.251.188.*]
消失的密室发信人: skycreative (消失的密室), 信区: Perl
标&&题: Re: 请教一下，linux下如何打包多个perl脚本为一个可执行文件？
发信站: 水木社区 (Thu Oct 11 11:35:06 2012), 转信 && 用shell脚本调用你的各个perl程序就可以了。
【 在 dajiangyouha (dajiangyouha) 的大作中提到: 】
: 建了个perl工程
: 里面perl脚本比较多
: 有什么办法可以将这些脚本打包成一个linux下的可执行程序呢？
: ...................
&& -- && 天破雨如注，人懒床作舟 &&&& ※ 来源:·水木社区 newsmth.net·[FROM: 211.99.222.*]
dajiangyouha发信人: dajiangyouha (dajiangyouha), 信区: Perl
标&&题: Re: 请教一下，linux下如何打包多个perl脚本为一个可执行文件？
发信站: 水木社区 (Thu Oct 11 11:47:37 2012), 转信 &&&& 谢谢 && 【 在 apo (炒瓜子) 的大作中提到: 】
: rpm/deb打包，或者用shell写个install.sh一起打个tgz之类的包。
: 不都是法子么。
: 你要是打算转成binary的独立程序，就找找perlcc，perl2exe之类的工具。
&& -- && ※ 来源:·水木社区 ·[FROM: 124.65.151.*]
壹隻憂鬱臺灣烏龜尋釁幾羣骯髒變態囓齒鱷!发信人: kjeldahl (哈哈。), 信区: Perl
标&&题: perl转二进制咋样 ？
发信站: 水木社区 (Thu Oct 11 12:23:57 2012), 转信 && 有时间上的提升不？
最近看到xsub了，这个东西有啥 好的地方 不。。
【 在 apo (炒瓜子) 的大作中提到: 】
: rpm/deb打包，或者用shell写个install.sh一起打个tgz之类的包。
: 不都是法子么。
: 你要是打算转成binary的独立程序，就找找perlcc，perl2exe之类的工具。
: ...................
以前： 看到个心动又敢行动的女生 ！！！
现在： 生活准备中。。。 &&&& ※ 来源:·水木社区 newsmth.net·[FROM: 211.99.222.*]
炒瓜子发信人: apo (炒瓜子), 信区: Perl
标&&题: Re: perl转二进制咋样 ？
发信站: 水木社区 (Thu Oct 11 12:56:12 2012), 转信 && 个人觉得在linux下这么干纯属脱裤子放屁。 && 你要是为了简单快速搞个小工具，放到windows平台上跑，可以干干。 && 【 在 kjeldahl (哈哈。) 的大作中提到: 】
: 标&&题: perl转二进制咋样 ？
: 发信站: 水木社区 (Thu Oct 11 12:23:57 2012), 转信
: 有时间上的提升不？
: 最近看到xsub了，这个东西有啥 好的地方 不。。
: 【 在 apo (炒瓜子) 的大作中提到: 】
: : rpm/deb打包，或者用shell写个install.sh一起打个tgz之类的包。
: : 不都是法子么。
: : 你要是打算转成binary的独立程序，就找找perlcc，perl2exe之类的工具。
: : ...................
以前： 看到个心动又敢行动的女生 ！！！
现在： 生活准备中。。。
※ 修改:·apo 于 Oct 11 12:56:45 2012 修改本文·[FROM: 114.251.188.*]
: ※ 来源:·水木社区 newsmth.net·[FROM: 211.99.222.*]
Software Is Hareder Than Hardware! &&&& ※ 来源:·水木社区 newsmth.net·[FROM: 114.251.188.*]
文章数:7&分页: