perl脚本并发多条命令

最新推荐文章于 2025-03-23 00:56:11 发布
原创 最新推荐文章于 2025-03-23 00:56:11 发布 · 2.8k 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#perl #脚本 #parallel

#!/usr/bin/perl -w
use strict;
use Parallel::ForkManager;

my $MAX_PROCESSES = 100;

my $pm = new Parallel::ForkManager($MAX_PROCESSES);

my @exp = (
["expect /opt/agentc/temp/204064023_61_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_61_10.224.239.22_10.224.239.15   204064023_61_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_62_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_62_10.224.239.22_10.224.239.15   204064023_62_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_63_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_63_10.224.239.22_10.224.239.15   204064023_63_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_64_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_64_10.224.239.22_10.224.239.15   204064023_64_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_65_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_65_10.224.239.22_10.224.239.15   204064023_65_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_66_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_66_10.224.239.22_10.224.239.15   204064023_66_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_67_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_67_10.224.239.22_10.224.239.15   204064023_67_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_68_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_68_10.224.239.22_10.224.239.15   204064023_68_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_69_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_69_10.224.239.22_10.224.239.15   204064023_69_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_70_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_70_10.224.239.22_10.224.239.15   204064023_70_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_7_10.224.239.22_10.224.239.15.exp   /opt/agentc  /opt/agentc/temp/204064023_7_10.224.239.22_10.224.239.15    204064023_7_10.224.239.22_10.224.239.15.txt "],
["expect /opt/agentc/temp/204064023_71_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_71_10.224.239.22_10.224.239.15   204064023_71_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_72_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_72_10.224.239.22_10.224.239.15   204064023_72_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_73_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_73_10.224.239.22_10.224.239.15   204064023_73_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_74_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_74_10.224.239.22_10.224.239.15   204064023_74_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_75_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_75_10.224.239.22_10.224.239.15   204064023_75_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_76_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_76_10.224.239.22_10.224.239.15   204064023_76_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_77_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_77_10.224.239.22_10.224.239.15   204064023_77_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_78_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_78_10.224.239.22_10.224.239.15   204064023_78_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_79_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_79_10.224.239.22_10.224.239.15   204064023_79_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_80_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_80_10.224.239.22_10.224.239.15   204064023_80_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_8_10.224.239.22_10.224.239.15.exp   /opt/agentc  /opt/agentc/temp/204064023_8_10.224.239.22_10.224.239.15    204064023_8_10.224.239.22_10.224.239.15.txt "],
["expect /opt/agentc/temp/204064023_81_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_81_10.224.239.22_10.224.239.15   204064023_81_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_82_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_82_10.224.239.22_10.224.239.15   204064023_82_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_83_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_83_10.224.239.22_10.224.239.15   204064023_83_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_84_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_84_10.224.239.22_10.224.239.15   204064023_84_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_85_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_85_10.224.239.22_10.224.239.15   204064023_85_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_86_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_86_10.224.239.22_10.224.239.15   204064023_86_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_87_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_87_10.224.239.22_10.224.239.15   204064023_87_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_88_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_88_10.224.239.22_10.224.239.15   204064023_88_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_89_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_89_10.224.239.22_10.224.239.15   204064023_89_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_90_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_90_10.224.239.22_10.224.239.15   204064023_90_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_9_10.224.239.22_10.224.239.15.exp   /opt/agentc  /opt/agentc/temp/204064023_9_10.224.239.22_10.224.239.15    204064023_9_10.224.239.22_10.224.239.15.txt "],
["expect /opt/agentc/temp/204064023_91_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_91_10.224.239.22_10.224.239.15   204064023_91_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_92_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_92_10.224.239.22_10.224.239.15   204064023_92_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_93_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_93_10.224.239.22_10.224.239.15   204064023_93_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_94_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_94_10.224.239.22_10.224.239.15   204064023_94_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_95_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_95_10.224.239.22_10.224.239.15   204064023_95_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_96_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_96_10.224.239.22_10.224.239.15   204064023_96_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_97_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_97_10.224.239.22_10.224.239.15   204064023_97_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_98_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_98_10.224.239.22_10.224.239.15   204064023_98_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_99_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_99_10.224.239.22_10.224.239.15   204064023_99_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204185217_0_10.224.239.22_10.224.239.15.exp   /opt/agentc  /opt/agentc/temp/204185217_0_10.224.239.22_10.224.239.15    204185217_0_10.224.239.22_10.224.239.15.txt "],
["expect /opt/agentc/temp/204064023_6_10.224.239.22_10.224.239.15.exp   /opt/agentc  /opt/agentc/temp/204064023_6_10.224.239.22_10.224.239.15    204064023_6_10.224.239.22_10.224.239.15.txt "],
["expect /opt/agentc/temp/204064023_61_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_61_10.224.239.22_10.224.239.15   204064023_61_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_62_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_62_10.224.239.22_10.224.239.15   204064023_62_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_63_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_63_10.224.239.22_10.224.239.15   204064023_63_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_64_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_64_10.224.239.22_10.224.239.15   204064023_64_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_65_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_65_10.224.239.22_10.224.239.15   204064023_65_10.224.239.22_10.224.239.15.txt"],
["expect /opt/agentc/temp/204064023_66_10.224.239.22_10.224.239.15.exp  /opt/agentc  /opt/agentc/temp/204064023_66_10.224.239.22_10.224.239.15   204064023_66_10.224.239.22_10.224.239.15.txt"]
);

foreach my $i (@exp) {
#print "@$i---"."\n";
  $pm->start and next;
  `@$i`;
  $pm->finish;
}
#$pm->wait_all_children;

 

23、使用扁平文件进行数据存储的 Perl 脚本实现
2w3e4r5t6y的博客
07-07 1
本文介绍了使用Perl脚本实现基于扁平文件的数据存储与管理，涵盖检索、插入、删除和修改记录的操作。重点讨论了文件锁定机制在并发访问中的重要性，并通过具体代码示例展示了如何在实际应用中处理数据库文件。同时，文章还分析了各脚本的关键技术点，并提出了优化建议，为构建简单高效的文件型数据管理系统提供了参考。
脚本语言：也称解释型语言，指运行时可以直接执行代码的语言。例如：JavaScript、PHP等。
AI天才研究院
07-29 1731
1995年，由美国计算机科学家Brendan Eich所提出的脚本语言概念被提出来。脚本语言的主要特点是能够让程序员在文本编辑器中创作脚本代码，然后由编译器或解释器运行，不需要编译成可执行文件。脚本语言带来的便利之处很多，例如可以自动化地处理大量数据，也可以用脚本语言开发游戏。但同时，脚本语言也存在一些弱点，例如易读性差、语法复杂、性能低下等。20多年过去了，随着互联网的飞速发展，脚本语言逐渐走向衰落。至今还有很多企业仍在继续使用脚本语言作为编程语言。因此，本文将讨论当前主流的脚本语言有哪些？
perl oracle动态更新多个字段,Perl DBI – 运行带有多个语句的SQL脚本
weixin_39903571的博客
04-07 246
数据库控制一次可以执行的语句数.我不记得Oracle是否允许每次准备多个语句(MysqL确实如此).尝试这个：my $dbh = DBI->connect("dbi:Oracle:dbname","username","password",{ChopBlanks => 1,AutoCommit => 1,RaiseError => 1,P...
Perl多线程目录扫描
weixin_30954607的博客
02-25 120
纯属手贱写着玩。。。这几天心情比较郁闷。 所以动手写了下。 #!/usr/bin/perl use HTTP::Request; use LWP::UserAgent; use Getopt::Long; use threads; use Thread::Semaphore; use Socket; print "-------------------\n"; prin...
Perl语言的并发编程
最新发布
2501_91195826的博客
03-23 322
并发编程是一种设计和实现程序的方式，让多个计算任务可以在同一时间段内执行。并发可以通过多个线程或进程来实现，能够在提高程序运行效率、减小执行时间等方面发挥重要作用。
修改mysql全日志中一个sql多行的perl脚本
u013660351的专栏
03-29 290
背景： 在排查mysql的锁等待，死锁和其他事务性相关的问题中，经常需要排查mysql，根据thread id 找到问题事务 #!/usr/bin/perl -w while(<>) { chomp($_); if($_ =~ m/(Query|Connect)/g){ print "\n",$_; next; }elsif($_ =~ m/^\s*$/g){
perl语言介绍
u012549548的专栏
12-18 1080
百度首页|登录注册 新闻网页贴吧知道音乐图片视频地图百科文库 帮助 百科年终礼，好礼送不停 首页 分类 自然 文化 地理 历史 生活 社会 艺术 人物 经济 科技 体育 特色百科 数字博物馆 城市百科 特色词条 历史上的今天 法院百科 用户 蝌蚪团 燃梦计划 百科任务 百科商城
【materials studio脚本开发】：三小时教你编写高效Perl脚本
[【materials studio脚本开发】：三小时教你编写高效Perl脚本](https://cdn.educba.com/academy/wp-content/uploads/2020/12/Perl-array-length.jpg) # 1. Materials Studio脚本开发基础 Materials Studio（MS）是...
Perl中的并发编程技术
而Perl作为一种功能强大的脚本语言，也提供了丰富的并发编程技术和工具。 ## 1.2 Perl中的并发编程的重要性 在现代计算机系统中，很多任务需要高效地处理大量的数据和复杂的计算。而串行执行这些任务往往效率低下...
libgfapi-perl：Perl 5的GlusterFS libgfapi绑定
02-06
6. **并发和性能优化**：GlusterFS 支持多线程和并行操作，因此在使用 libgfapi-perl 时，可以考虑如何有效地利用这些特性来提高程序性能。同时，理解 GlusterFS 的缓存策略和数据分布方式，有助于优化 I/O 操作。 ...
以太坊私有链的节点操作
u013783060的博客
12-23 857
系列文章目录 第一章 windows上搭建以太坊私有链记录 文章目录系列文章目录一.创建账户1.创建新账户2.查询账户余额二.挖矿1.查看矿工账户2.设置挖矿的账号3.开始挖矿4.停止挖矿三.查看区块高度1.查看区块数量2.查看具体某个区块的内容四.转账1.创建第二个账户2.查询账户余额 一.创建账户 首先要创建账户以后才能挖矿。 1.创建新账户 personal.newAccount("密码") 上一篇文章中已执行过 2.查询账户余额 eth.getBalance("账户地址") 二.挖矿 挖
Perl并发编程秘籍：线程间通信的艺术
2401_85742452的博客
07-20 1224
在Perl中，线程是通过threads模块实现的。每个线程都有自己的执行环境，但它们可以共享某些数据结构。线程间的通信主要涉及到共享数据的访问和同步。
Perl中对信号和并发的处理
my_avatar的专栏
10-15 642
Perl中对信号和并发的处理Jun 9th, 2009 Leave a comment | Trackback<br />转载本站文章请注明，转载自：扶凯[http://www.php-oa.com] <br />本文链接: http://www.php-oa.com/2009/06/09/perl_signal.html<br />linux中的信号<br />先了解在linux中的信号,信号其实就是编程里俗称的中断，它使监视与控制其他进程变为有可能。中断信号（signal，又简称为信号）用来通知进程发生
掌握Perl并发：线程与进程编程全攻略
2401_85743969的博客
06-23 1525
并发编程是让程序能够同时执行多个任务的编程范式。在Perl中，可以通过多线程和多进程两种方式实现并发。
Perl的并行任务管理模块使用方法
alaclp的专栏
12-28 2580
Perl的Parallel::ForkManager是用来管理进程创建的模块，据说它可以做到根据各个CPU当前的负载决定在哪颗CPU上fork进程。 #!/usr/bin/perl use strict; use warnings; use Parallel::ForkManager; use LWP::Simple; my @array = (
perl里想并行执行多个函数_IC入职新同学必备技能手册#6 - Perl (4) - 一次实战
weixin_39684228的博客
12-13 320
写在前面这是Perl的终结篇。原本是想从工作环境中拿出一个perl脚本，line by line地做注释。但是挑来挑去，并没有找到一个好的example code。不如这样根据perl在我日常工作中的使用情况，人为地编造一个实战文本处理题，然后对应写出一个perl脚本，comment line by line。首先，YAML格式这是一个nv内部特常用的“数据存储”格式。百度百科的解释是：YAML（...
Perl中Parallel::ForkManager模块的使用(翻译自官方文档)
CamelGem
05-08 2549
Parallel::ForkManager NAME Parallel::ForkManager - 一个简单的并行进程衍生(fork)管理器. VERSION version 2.02 SYNOPSIS use Parallel::ForkManager; my $MAX_PROCESSES = 10; # 指定需要fork出的子进程数量 my $pm = Parallel::ForkManager->new($MAX_PROCESSES); #实例化一个 DATA_LOOP: foreach
Perl 多线程模块 Parallel::ForkManager
GRC
07-27 4549
Perl 多线程模块 Parallel::ForkManager 一个简单的并行处理模块。这个是用来对付循环的多线程处理。 放在循环前面。 Table of Contents 1 Synops内容简介 1 Synops内容简介 程序的格式如下： use Parallel::ForkManager; $pm = Parallel::ForkManager->
Perl 多进程与多线程编程
热门推荐
海云之家
11-09 1万+
PERL 多进程与多线程编程能大大加快程序执行效率（将一个任务分割成若干小任务并行处理）。要进行多进程和多线程编程则分别需要两个模块, fork()和Threads，然而fork（）则为PERL内置函数，因此，只需安装Threads模块（如需变量共享，还需安装Thread::Shared模块）。安装方法如下：     1）Win+R， 打开运行：                    2）在
Perl语言入门学习资源大全
2. **数组和哈希**：Perl中的数据结构，用于存储和操作多条数据。 3. **文件操作**：如何打开、读取、写入和关闭文件，以及处理文件句柄。 4. **模块使用**：如何通过CPAN安装和使用第三方模块，增强Perl的功能。 5....
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值