-
perl数据结构的应用
所属栏目:[大数据] 日期:2020-12-16 热度:147
最简单的数据结构的应用,把相同id的行合并,涉及引用等知识: #!/usr/bin/env perluse warnings;use strict;my %hash;open FA,$ARGV[0] || die $!;while (FA){chomp;my @tmp = split;my $string = "$tmp[1]t$tmp[2]t$tmp[3]t$tmp[4]t$tmp[5]";push @{$h[详细]
-
Perl Tip
所属栏目:[大数据] 日期:2020-12-16 热度:144
perl one line iconv perl -mEncode -npe 'Encode::from_to($_,"utf-8","gbk")' perl -mEncode -npe '$_=Encode::encode("gbk",Encode::decode("utf-8",$_))' ? ------------------------------------------------------------------------------ use Encode[详细]
-
perl 基本语法介绍
所属栏目:[大数据] 日期:2020-12-16 热度:101
一.数据类型(Data type): ? Perl 的数据类型大致分为四种:Scalar(变量)、Scalar Array(数组)、Hash Array(散列)、References(指针),看起来虽少但用起来却绰绰有余。尤其在写Perl程序时可以不必事先宣告变量,这一点对刚学程序语言的人甚为方便,[详细]
-
perl_Script_nagios_自定义插件
所属栏目:[大数据] 日期:2020-12-16 热度:141
今天要监控一个服务的进程___xl2tpd;该服务有几个IP就会有几个进程; 本来是想利用nagios的check_nrpe插件取值,然后判断报警,脚本写好了,本地测试正常,可是部署上去发现每次都取得反值,比如,现在有2个进程(2个IP),结果监控端取到值就是crit;郁闷啊[详细]
-
perl 匹配嵌套括号问题
所属栏目:[大数据] 日期:2020-12-16 热度:96
? Text? as follows: (1+2(123+(888)3)ddf)wwww(sdf(sdfdsf)gggg) Match: 1+2 123+ 888 3 ddf sdf sdfdsf gggg ? ? #!/usr/bin/perl? use?strict;? use?warnings;? use?re? 'eval' ;? my?$str=? '(1+2(123+(888)3)ddf)wwww(sdf(sdfdsf)gggg)' ;? my?@arr;?[详细]
-
perl example!
所属栏目:[大数据] 日期:2020-12-16 热度:84
example3:my a=OFC33L40.0perl '/(d+)(?=D)/ and print $1' $example4:#!/opt/exp/bin/perluse strict;while(){# s/Q[0-9]E(?:[^+*/])/[0-9]+/g; s/[0-9](?:[^+*/])/[0-9]+/g; print;}#!/opt/exp/bin/perluse strict;my $line = 0;while(){ $line++;[详细]
-
perl 基本语法
所属栏目:[大数据] 日期:2020-12-16 热度:138
Perl的基本語法 前言: 這篇文章是花了我很多時間、費了我很多心血才完成的,雖然連我自己都覺得無法達到盡善盡美的境界,但希望能幫助大家入門,稍微了解到Perl到底是個什麼樣的東西,Perl到底有那些強大的功能,那麼這篇文章的目的就達到了。我分做資料型[详细]
-
Perl 内部结构详解
所属栏目:[大数据] 日期:2020-12-16 热度:53
PerlGuts Illustrated 直接命令行的方法查看:perl -MDevel::Peek -e "$a = 123; Dump $a" 简单的例子用来查看变量内部结构: use?Devel::Peek;?? ?? $a??=?123;?? @a?=?1..10;?? %a?=?1..10;?? ?????????? Dump?$a;?? Dump?@a ;?? Dump?%a;?? 标量: SV?=[详细]
-
Perl 的 chomp 命令用法
所属栏目:[大数据] 日期:2020-12-16 热度:83
Perl 的 chomp 命令用法 ?? 1?????? ?#!/usr/bin/perl 2?????? ?print "Please enter first number:n"; 3????? ? $number1=STDIN; 4????? ??chomp $number1; 5 6???? ? print "Please enter second number:n"; 7???? ??chomp($number2=STDIN); 8 9?? ??? $[详细]
-
perl的老地方$_
所属栏目:[大数据] 日期:2020-12-16 热度:135
foreach 省略了控制变量,Perl就使用他的老地方变量$_代替。 [root@Master perl]# less LaoDiFang.pl #!/usr/bin/perl foreach (1..10) { ? print "I can count to $_!n"; } [root@Master perl]# perl LaoDiFang.pl I can count to 1! I can count to 2! I[详细]
-
perl模块安装
所属栏目:[大数据] 日期:2020-12-16 热度:70
今天在机器装了一个模块,提示依赖什么需要其他的模块,因为我一般来说都是手动安装的 下载;解压;perl Makefile.pl; make; make test; make install 即可 依赖``的话 那就直线自动安装吧: 1、perl -MCPAN -e shell (执行) ? ? ? ?cpan -i 模块名? 也可[详细]
-
perl web框架
所属栏目:[大数据] 日期:2020-12-16 热度:164
http://mojo.php-oa.com/perldoc/Mojolicious/Lite[详细]
-
perl_Net::SCP::Expect实现批量分发文件
所属栏目:[大数据] 日期:2020-12-16 热度:69
今天要在大量机器同一目录分发同一个文件,下面是脚本: 已经打通ssh通道(不打通也可以,因为我是使用指定用户执行的,不然老提示yes/no) #!/usr/bin/perl use strict; use Getopt::Std; use Net::SCP::Expect; use vars qw($opt_f $opt_l $opt_t $opt_h); g[详细]
-
两个半小时的 Perl 之旅
所属栏目:[大数据] 日期:2020-12-16 热度:157
英文原文:http://qntm.org/files/perl/perl.html 译文原文:http://www.oschina.net/translate/learn-perl-in-2-hours 两个半小时的 Perl 之旅 Perl 语言是一门高级解释型动态语言,它的许多数据类型是运行时才确定的,并且经常和 PHP 和 Python 相提并论。[详细]
-
两个半小时的 Perl 之旅
所属栏目:[大数据] 日期:2020-12-16 热度:108
两个半小时的 Perl 之旅 http://www.oschina.net/translate/learn-perl-in-2-hours 英文原文:Learn Perl in about 2 hours 30 minutes 标签: Perl 115 人收藏此文章, 我要收藏 沙枣 推荐于 10天前 (共 36 段,翻译完成于 03-20) ( 26评) 参与翻译 (6人) :[详细]
-
使用 Perl 脚本实现交互式命令行程序的管理与测试自动化
所属栏目:[大数据] 日期:2020-12-16 热度:157
http://www.ibm.com/developerworks/cn/linux/l-cn-perl-expect/ ? 使用 Perl 脚本实现交互式命令行程序的管理与测试自动化 袁 麟,软件工程师,IBM 中国软件开发中心 袁麟,软件工程师,2009 年加入 IBM 中国开发中心,关注软件全球化与本地化、测试自动化等[详细]
-
perl模块安装
所属栏目:[大数据] 日期:2020-12-16 热度:200
? 转自:http://www.mike.org.cn/blog/index.php?load=readid=643 ? Perl 到了第五版增加了模块的概念,用来提供面向对象编程的能力。这是 Perl 语言发展史上的一个里程碑。此后,广大自由软件爱好者开发了大量功能强大、构思精巧的 Perl 模块,极大地扩展了[详细]
-
Perl资料
所属栏目:[大数据] 日期:2020-12-16 热度:133
? 一 官网 ?http://www.perl.org/ ? 二 编辑器 notepad++:http://notepad-plus.sourceforge.net? (编辑perl文件) komodo edit:?http://www.activestate.com (编辑和运行perl文件) perl-express: http://perl-express.com/ (可以调试perl) EPIC - Perl Ed[详细]
-
Perl IDE之Perl Express和Eclipse+EPIC+PadWalker
所属栏目:[大数据] 日期:2020-12-16 热度:56
一 初级 1)Notepad++ (编辑和查看Perl) 2)Komobo Edit (编辑和执行Perl) ? 二 高级 A? Perl Express 主页:http://www.perl-express.com/ 使用: 很简单 B Eclipse+EPIC+PadWalker a) 下载解压Eclipse b)下载EPIC插件之设置 (help-install new softwa[详细]
-
perl正则表达式[转]
所属栏目:[大数据] 日期:2020-12-16 热度:77
一、简介 二、匹配操作符 三、模式中的特殊字符 1、字符 2、字符 []和[^] 3、字符 +,*和? 4、转义字符 5、匹配任意字母或数字 6、锚模式 7、模式中的变量替换 8、字符范围转义前缀 9、匹配任意字符 10、匹配指定数目的字符 11、指定选项 12、模式的部分重用[详细]
-
Perl基础
所属栏目:[大数据] 日期:2020-12-16 热度:121
? 一 perl文件 1)文件第一行#!/usr/bin/perl,用来在类Unix系统上指定perl执行程序; 2)#开始的行表示注释; 3)use strict;对perl进行额外的检查,强迫你使用my定义变量,字符串必须使用单引号或双引号,引用其他的package的变量时变量前加package名字;[详细]
-
perl的subroutines
所属栏目:[大数据] 日期:2020-12-16 热度:93
? 一 subroutines 1)定义 sub NAME {...} . 不需要指定参数和返回值。函数内使用@_来访问函数传入的参数,一般函数内使用local( $var,$var2,$var3) = @_或my( $var,@vars) = @_;来访问函数的传入参数。如果没有使用return的话,默认地最后一条语句的值作为[详细]
-
perl的package和module
所属栏目:[大数据] 日期:2020-12-16 热度:73
? 一 package 1) package 相当于C++中的namespace,不同的package下可以定义相同的变量和subroutines; 2)在一个程序中可以定义多个package,每个package有一个单独的symboltable,每个symboltable中包含了此package中的变量和subroutines; 3)?package my[详细]
-
perl读写文件和命令行解析
所属栏目:[大数据] 日期:2020-12-16 热度:98
? 一 读写文件 实例:?? use ?strict; use ?warnings; sub ?open_display_file { ?? # ?the?filename?should?be?passed?in?as?a?parameter ?? my ? $filename ? = ? shift ; ?? # ?open?file?to?the?handle?FILE ?? open (FILE , ? $filename )? || ? die ?[详细]
-
perl的array和map/hash
所属栏目:[大数据] 日期:2020-12-16 热度:190
? 一 array 1)实例 use ?strict; use ?warnings; my ? @myarray ? = ?( 123 , " hello " , ? 456 , ? ' guy ' ); foreach ( @myarray ) { ???? print ? " $_? " ?; } print ? " n " ; foreach ? my ? $item ?( @myarray ) { ???? print ? " $item? " ?; }[详细]
