-
perl rrdtoolIO 画图
所属栏目：[大数据] 日期：2020-12-16 热度：198
I0PS Throughput SvctmAwait Utilization 备图，留念![详细]
-
perl windows编码问题
所属栏目：[大数据] 日期：2020-12-16 热度：110
http://bbs.chinaunix.net/thread-1857627-1-1.html 同学们近期编码问题很多，稍微总结下。 Windows 的终端环境是GBK吧，读取UTF-8的 编码，自然会乱码。 比如 文件 abc.txt是UTF-8格式的，那么如何读取它 呢？ 第一种方式： 使用带encoding参数的open打开和[详细]
-
Perl语言简介
所属栏目：[大数据] 日期：2020-12-16 热度：131
????? Perl是一种通用编程语言。凡是其他编程语言能够使用的地方，都有它的用武之地。在各行各业中，它已经被用于你能够想像到的各种各样的任务的处理。Perl的用途之所以如此广泛，原因是Perl被称为是一种“胶水语言”。所谓胶水语言，也就是说它是可以用来[详细]
-
目前无法理解的命令行处理
所属栏目：[大数据] 日期：2020-12-16 热度：130
#!/usr/bin/env perl use warnings; use strict; use Getopt::Long qw(:config gnu_getopt); my %options = ( ??????? 'help' = +{spec = 'help|?|h',value = undef },??????? # default output is "short" options ??????? 'long' = +{spec = 'long-options[详细]
-
Perl Getopt::Long 多值命令行处理
所属栏目：[大数据] 日期：2020-12-16 热度：152
学习新的技术:Node.js家园 ? 一直想学习下Perl命令行选项的处理，今天花了点时间看了下，以下是多值命令选项的方法，使用了Getopt::Long模块。 比如你的命令行选项像下面这样，你将如何取得这些值呢？ command -opt 50 60 70 可以这样: 一：GetOptions("opt=[详细]
-
Perl递归目录
所属栏目：[大数据] 日期：2020-12-16 热度：82
一行代码搞定： perl -MFile::Find -E "find sub {say $File::Find::dir,'/',$_ },qq(c:/windows/)"[详细]
-
Perl不包含某个字符串的正则匹配
所属栏目：[大数据] 日期：2020-12-16 热度：163
一、几个问题 1.找出不包含"abc"的字符串 ? 测试用例1==abc(不符合) ? 测试用例2==xabc(不符合) ? 测试用例3==abcy(不符合) ? 测试用例4==xabcy(不符合) ? 测试用例5==xxxx xabcy(不符合) ? 测试用例6==xxx abcy dabc(不符合) ? 测试用例7==abcy(不符合) ?[详细]
-
解决Perl TK 中文输入，操作问题
所属栏目：[大数据] 日期：2020-12-16 热度：61
写一个tk测试玩意，读取用户输入，判断是否为目录。 代码如下： #!perl -wuse Tk;use strict;use Encode; my $mw = MainWindow-new;$mw-geometry("300x200");$mw-title("Entry Test");my $top_frame = $mw-Frame(-background = "white")-pack(-side = "top")[详细]
-
【总结】perl载入自己写的模块
所属栏目：[大数据] 日期：2020-12-16 热度：66
1. #!/usr/bin/perl use lib "/mylib"; 2. perl -I /mylib script.pl 3. #!/usr/bin/perl -I /mylib 4.Perl 将在 @INC 数组里面列出的每一个目录里面查找模块。因为 use 在编译的时候装载 模块，所以任何对 @INC 的修改都需要在编译时发生。你可以使用第三十[详细]
-
Perl打印文件中的某几行
所属栏目：[大数据] 日期：2020-12-16 热度：97
关注新的技术:Node.js家园 ? 如何用Perl打印文件中的某几行信息呢?假如你有一个文件，你只关心某一段文字，大概你会使用比较传统的文件行记数法，然后再来判断这个文件行的区间是否在我们预期的之内。其它这个工作，在Perl中是相当容易实现的。 如下： use s[详细]
-
Perl中的$/
所属栏目：[大数据] 日期：2020-12-16 热度：138
Perl中有很多种特殊变量，就像awk一样，它们用于文本处理。像什么记录输入/输出分隔符之类的。在Perl中，$/意即输入记录分隔符，代表着一个记录的结束和开始。 通常我们使用钻石操作符来从文件句柄中读取所需要的数据，默认它每次只读取一行？那么它是如何区[详细]
-
perl fork
所属栏目：[大数据] 日期：2020-12-16 热度：139
http://apps.hi.baidu.com/share/detail/33042153 ? Perl fork() ? Perl fork() Forking in perl is a nice thing to do,and for some it’s a hard thing to understand. It can be pretty easy to get lost especially since there are 100 ways to the sa[详细]
-
perl 内置变量介绍
所属栏目：[大数据] 日期：2020-12-16 热度：159
?$- 当前页可打印的行数,属于Perl格式系统的一部分 $! 根据上下文内容返回错误号或者错误串 $" 列表分隔符 $# 打印数字时默认的数字输出格式 $ Perl解释器的进程ID $% 当前输出通道的当前页号 $Content$amp; 与上个格式匹配的字符串 $( 当前进程的组ID $) 当[详细]
-
使用Config::IniFiles读写ini文件
所属栏目：[大数据] 日期：2020-12-16 热度：176
1. ppm install? Config::IniFiles ? ? 2.代码如下： ? #!perl -w# parse ini file using Config::IniFiles;use strict;use Cwd;use Config::IniFiles;my $dir = getcwd; my $file = $dir . $ARGV[0];my %ini;my $Section = 'target';my $Parameter = 'trg_t[详细]
-
perl子进程给父进程传数据
所属栏目：[大数据] 日期：2020-12-16 热度：112
pipe (FROM_PARENT,TO_CHILD) or die " pipe : $!"; pipe (FROM_CHILD,TO_PARENT) or die " pipe :$!"; select (( select (TO_CHILD),$| = 1))[0]); # 自动刷新 select (( select (TO_PARENT),$| = 1))[0]); # 自动刷新 if ($pid = fork ) { close FROM_PARE[详细]
-
Perl中定时器alarm的die与kill
所属栏目：[大数据] 日期：2020-12-16 热度：106
http://yusy1116.blog.163.com/blog/static/6467259220106110541149/ Perl中定时器alarm的die与kill 如果遇到这样的需求，要自动地运行一些相对独立的程序，而这些程序可能有些要挂掉，导致后 面的程序无法运行，要想看到一个完整运行的结果，这时候alarm就[详细]
-
practical Perl tools: be the browser
所属栏目：[大数据] 日期：2020-12-16 热度：51
In this article we're going to focus on using just the module WWW::Mechanize and the modules in its orbit. There are other modules out there for performing tasks like the ones we're going to explore,but I've not found one to date that I've[详细]
-
【总结】关于运行脚本问题
所属栏目：[大数据] 日期：2020-12-16 热度：84
???? 当我们有一个脚本test.pl放在/home/aaa/bbb下面时，我们运行它有两种方式： ???? 1.? cd /home/aaa/bbb;perl test.pl ???? 2.? perl /home/aaa/bbb/test.pl ? ???? 这个想必大家都知道，但是如果test.pl中嵌套调用了其他的脚本test2.pl，而其他的脚本te[详细]
-
Perforce Tip: how to apply my default change to the release
所属栏目：[大数据] 日期：2020-12-16 热度：100
Create the patch, p4 diff -du -db main-branch/... ~/mywork.patch Go to the work directory of release branch. cd dir-release-branch/ `p4 edit' the files I want to patch under release branch. Please note, `lsdiff' is from the package `patchu[详细]
-
Perl轻松分析数据两例
所属栏目：[大数据] 日期：2020-12-16 热度：154
某日在网上溜达，看见一网友博客（http://rainbird.blog.51cto.com/211214/165779）上的两道题，作者说没有两年linux道行,很难做出其中三道。这里我们看看这些题究竟有多难（仅针对脚本编程）。 第一道： 取出/etc/passwd中shell出现的次数? 顺便贴一下我的/[详细]
-
枚举变量扩展
所属栏目：[大数据] 日期：2020-12-16 热度：87
在很多配置文件中，都会牵涉到变量扩展，一个变量会有多少种可能的扩展结果，这在静态分析中非常重要。这里给出一个算法： 使用 perl 来表达(expand.pl)，变量引用使用统一的形式：${varname} Whoops,CSDN 竟然不支持 perl code,用 ruby 做高亮，可能会有点[详细]
-
perl 编写可移植平台注意事项
所属栏目：[大数据] 日期：2020-12-16 热度：57
1. 判断当前的操作系统类型 if ( $^O =~ /MSWin32/ ) {print "Windows/n";} elsif ($^O =~ /Linux/){print "Linux/n";}else{print "Others/n";}[详细]
-
Learning Perl 6
所属栏目：[大数据] 日期：2020-12-16 热度：84
?1. 常用的Perl命令行参数 -C 这个参数编译Perl程序但不会真正运行它.由此检查所有语法错误.每次修改perl程序之后我都会立刻使用它来找到任何语法错误. -w 等同于use warning; -e 从命令参数中的’’执行脚本，而非脚本文件 -n 如果需要遍历文件或者查找固定[详细]
-
[Perl]管道、进程及其他
所属栏目：[大数据] 日期：2020-12-16 热度：67
版权声明 ：可以任意转载，但转载时必须标明原作者charlee、原始链接http://tech.idv2.com/2008/09/04/perl-pipe-process-etc/ 以及本声明。 ? 昨天一个同事问我关于Perl中的 -| 描述符的问题。 他的程序大概是这样的： unless (open FH,"-|") { exec "foo b[详细]
-
Perl Module (Memcached 客户端) 安装
所属栏目：[大数据] 日期：2020-12-16 热度：88
? Active Perl 5.12.3 ? 1、Perl Package Manager ? 2、command line ? Cache::Memcached、Cache::Memcached::Fast、Cache::Memcached::libmemcached ? ? ? ? ? 重启机器： ? 安装成功。 ? 测试： ? memcacahed.pl ? #!/usr/bin/perluse strict;use warnings[详细]
