-
Perl 常用函数集锦
所属栏目：[大数据] 日期：2020-12-16 热度：82
1 Perl 常用函数集锦 ? 最近在研究 Perl ，发现 Perl 的确如 Larry Wall 所说“是一门极其有趣的语言”，然而，Perl 的价值远不止于此 —— “Perl对真实生活的反映--他的人性特征--是内建于这门语言的深厚的哲学结构。”Perl是第一个后现代的计算机语言，Wa[详细]
-
perl笔记之ping批量检查IP是否连通
所属栏目：[大数据] 日期：2020-12-16 热度：197
由于有时候要批量的用ping检查服务器的IP是否可用，一个一个的ping太麻烦了，所以利用perl中的Net::ping模块，代码如下 use warnings; open AA,"ip"; use Net::Ping; chomp(@ARGV=AA); foreach $host (@ARGV){ $p = Net::Ping-new("icmp"); # print "$host i[详细]
-
perl学习
所属栏目：[大数据] 日期：2020-12-16 热度：168
IDE：Perl.Builder.v2.0h.Professional-SSG Task： There is a collection of files og gene summaries. Each one has a relevant file which contains a list of sentemces which can be the candidate of summary sentence. I have ranked them with the m[详细]
-
Perl语言之漫游正则表达式
所属栏目：[大数据] 日期：2020-12-16 热度：187
正则表达式 是Perl内嵌的、自成一体的微型编程语言。在Perl中常常叫做模式， 是一个匹配（或者不匹配）某字符串的模块。 注：必须用单引号将正则表达式括起来， 元字符：一些的特殊字符。 例如，(.)是任何单字符的通配符，不过（"/n"）除外。 注：在任何元字[详细]
-
PERL 语言中的q,qw,qr,qx,qq......符号用法总结
所属栏目：[大数据] 日期：2020-12-16 热度：200
在perl语言中，有两个特殊而常用的符号qq qw,分别解释如下：qq{foobar}的意思为意思为双引号字符串，可内插变量相当于 "foobar"qw{foo bar}的意思为用空格分解字符串，得到列表，相当于如下语句split(' ','foo bar') 得到的结果是'foo','bar'字符串比较等于[详细]
-
用PERL SOCKET
所属栏目：[大数据] 日期：2020-12-16 热度：163
使用PERL SOCKET API首先需要载入SOCKET模块。 ? use Socket; ? ====================================================================== ? socket(文件句柄,AF_INET,数据类型,协议类型); ? #建立套接字 文件句柄随便找个词就可以了。 ? AF_INET为域类型，[详细]
-
perl 中用shell.pm调用shell命令
所属栏目：[大数据] 日期：2020-12-16 热度：158
perl 中用shell.pm调用shell命令 code: #!/usr/bin/perl?-w? ? use?strict;? use?Shell?qw/webbench/;? ? my?@ array ?=?();? ? open?FILE,' ','url.txt'?or?die?"$!n";? ? while?( FILE )?{? ???????chomp;? ???????/(S+)/;? ???????push?@array,$1;? }?[详细]
-
Perl正则表达式(Regular Expression, regex)（转）
所属栏目：[大数据] 日期：2020-12-16 热度：100
Perl正则表达式(Regular Expression,regex) 本文转自：http://mach.debagua.net/2007/03/perlregular-expression-regex.html 如果要问我Perl语言的优点，我会说有三个半。前三个是正则表达式、哈希、引用，那半个是Map,因为还不大会用，不太说得出它的秒处，[详细]
-
新工作总结
所属栏目：[大数据] 日期：2020-12-16 热度：186
在新的公司工作有一个星期了，开始一直想上来写点什么，毕竟新的环境，总会有许多新的感慨，但后来不知道被自己什么情绪给慢慢磨灭掉了。 ? 到了新的公司，难免又是要适应这里的环境、工作模式和内容还有这里的人。 ? 不知道是刚来，还是因为全英文的环境，[详细]
-
perl 面向对象基础总结
所属栏目：[大数据] 日期：2020-12-16 热度：154
? 主要是基础，面向对象概念，约定和入门demo等 ? ? ? ? ? ? ? ? ?[详细]
-
Perl 怎么了？
所属栏目：[大数据] 日期：2020-12-16 热度：150
最近在看Greg London 的 Impatient Perl ，再次感受Perl 的奇怪（不过之前用过Ruby，有些东西也见怪不怪了）。 都说Perl 是以实用为第一设计准则的，这是否就是说它简单，限制很少，同时并不漂亮（统一的形式，更少的语法，比如Lisp），因为在现实中千奇百怪[详细]
-
使用 Perl 脚本实现交互式命令行程序的管理与测试自动化
所属栏目：[大数据] 日期：2020-12-16 热度：72
概述 交互式程序通常需要用户手动完成一些操作，因此常常会成为系统管理自动化和测试自动化中的障碍。最早出现在 Unix 上的 Expect 语言可以用来和 passwd/ssh/telnet/ftp 等命令行程序进行交互，将用户从这些手工操作中解放出来。作为 Tcl 语言的扩展，Expe[详细]
-
Perl默认的内部变量
所属栏目：[大数据] 日期：2020-12-16 热度：174
$- 当前页可打印的行数,属于Perl格式系统的一部分$! 根据上下文内容返回错误号或者错误串$” 列表分隔符$# 打印数字时默认的数字输出格式$$ Perl解释器的进程ID$% 当前输出通道的当前页号$ 与上个格式匹配的字符串$( 当前进程的组ID$) 当前进程的有效组ID$*[详细]
-
perl 开头格式
所属栏目：[大数据] 日期：2020-12-16 热度：100
#!/usr/bin/perl -w eval 'exec /usr/bin/perl -w -S $0 ${1+" $@"}' ??? if 0; # not running under some shell ? ? 当我们不确定perl安装目录的时候可以这么写 #!/usr/bin/perl -w eval “exec perl -w -S $0 $ @” ??? if 0; # not running under some sh[详细]
-
perl的学习 1
所属栏目：[大数据] 日期：2020-12-16 热度：179
1. With Perl,command-line arguments are stored in the array named @ARGV. #!/usr/bin/perl #---------------------# #? PROGRAM:? argv.pl? # #---------------------# $numArgs = $#ARGV + 1; print "thanks,you gave me $numArgs command-line argumen[详细]
-
perl language-1
所属栏目：[大数据] 日期：2020-12-16 热度：77
perl语言已经作为一种强大的数据处理工具走进office。所以考虑学习下。 学习perl前的注意事项： 1.Perl的理念-“There is more than one way to do it” 2.在Windows上，命令行不能使用单引号，用/来代替 3.perl脚本的第一句往往来表示使用什么样的方式和程[详细]
-
perl 字符串操作
所属栏目：[大数据] 日期：2020-12-16 热度：162
? ? 字符串数组元素赋值：@tmp=qw(aaa bbb kkk 9000);相当于@tmp= (“aaa”,“bbb”,“kkk”,“9000); ? ? ? ? 字符串比较，绝不能用==? ?,要用eq [macg@localhost perltest]$ vi tip.pl #!/usr/bin/perl print"input:"; while(chomp($input=)) { print"your[详细]
-
一个perl线程使用方法的简单演示
所属栏目：[大数据] 日期：2020-12-16 热度：174
? #!/usr/bin/perl?-w ? ? #?装载perl线程模块 ? use ?threads; ? use ?POSIX?qw( strftime ); ? ? sub?produce?{ ? ????my? $thread_name ?=?shift; ? ???? while (1)?{ ? ????????my? $r ?=?int(rand(100)); ? ? ????????#?获得本线程内当前时间 ? ???????[详细]
-
mysqlsla环境安装
所属栏目：[大数据] 日期：2020-12-16 热度：126
? mysqlsla环境安装 ? DBI和DBD::mysql的安装 perl -MCPAN -e shell ? install DBI ? force install DBD::mysql ? mysqlsla --user=root --password=root --socket=/data/mysql/mysql.sock --explain --databases testdb --log-type slow ./slow-time-1.log[详细]
-
管道、进程及其他
所属栏目：[大数据] 日期：2020-12-16 热度：174
原作者charlee、原始链接 http://tech.idv2.com/2008/09/04/perl-pipe-process-etc/ ? 昨天一个同事问我关于Perl中的 -| 描述符的问题。他的程序大概是这样的： unless (open FH,"-|") { exec "foo bar"; # 用exec执行另一个程序 exit;}while (FH) { ...}clo[详细]
-
MTK模拟器Could not run "cl.exe"错误
所属栏目：[大数据] 日期：2020-12-16 热度：142
?前段时间重新了一下系统，VC6没有安装在C盘，今天在公司拷了项目的代码，准备在家里弄一下，周一的时候把B7项目出版本，在编Modis的时候，报了如下错误： Could not run "cl.exe". Please check your PATH! 刚开始是怀疑环境变量的Path有问题，手动将cl.exe[详细]
-
快客电邮(QuarkMail)远程命令执行漏洞
所属栏目：[大数据] 日期：2020-12-16 热度：63
漏洞说明：快客电邮（QuarkMail）是北京雄智伟业科技公司推出的电子邮件系统，被广泛用于各个领域的电子邮件解决方案，其webmail部分使用perl cgi编写，但是80sec在其系统中发现一个重大的安全漏洞，导致远程用户可以在邮件系统上以当前进程身份执行任意命令[详细]
-
Perl的正则表达式笔记
所属栏目：[大数据] 日期：2020-12-16 热度：181
以前在网上搜Perl的正则表达式，搜到的大部分都是正则表达式的语法列表，而很少有提到实现这些正则表达式的函数。 Perl的正则表达式函数为 “=~“ $string = "I love my Boss not my boss. Boss is a cat"; $string =~ s/(Boss)/$1/; #这时候 $string中所有[详细]
-
perl 中 数组 与 列表的 区别
所属栏目：[大数据] 日期：2020-12-16 热度：93
列表是标量的集合，数组是存储列表的变量。举例子：（1，2，3，4）是一个列表可以赋值给一个数组@array=（1，2，3，4）（5，6，7，8）是一个列表也可以赋值给数组@array=（5，6，7，8）上面两个@array是同一个数组，但是（1，2，3，4）和（5，6，7，8）是不[详细]
-
特别的Perl
所属栏目：[大数据] 日期：2020-12-16 热度：179
标量是Perl里面最简单的一种数据类型。 在Perl内部，总是按“双精度浮点数”的要求来保持并进行运算。 ? 在Perl里絮语在整数直接量里插入下划线，将位数分开 12_345? 与 12345 实际上是同一数字，不用“，”分隔是因为在Perl里逗号已经有更重要的用途. ? 二[详细]
