-
perl入门教程
所属栏目：[大数据] 日期：2020-12-16 热度：177
第一节： 基本上，简单变量就是一个数据单元，这个单元可以是数字或字符串。 一、整型 1、整型 PERL最常用的简单变量，由于其与其它语言基本相同，不再赘述。 例： $x = 12345; if (1217 + 116 == 1333) { # statement block goes here } 整型的限制： PERL[详细]
-
使用perl接口书写vim插件
所属栏目：[大数据] 日期：2020-12-16 热度：70
首先需要再编译vim的时候enable perl； Perl接口的使用 *perl-using* *:perl* *:pe* :pe[rl] 执行Perl命令。当前包是“main”。:pe[rl] 执行Perl脚本。 不能有任何前导空格。如果忽略了， 就会像|:append|和|:insert|命令那样默认到达一个点'.'。 |:perl|命[详细]
-
运算符
所属栏目：[大数据] 日期：2020-12-16 热度：151
-- Start Perl 除了支持其他语言都支持的运算符外，它还支持一些特殊的运算符。 算术运算符 #!/usr/bin/perl$x = 2;$y = 3;$r = $x + $y; #加print "$rn";$r = $x - $y; #减print "$rn";$r = $x * $y; #乘print "$rn";$r = $x / $y; #除print "$rn";$r =[详细]
-
总结常用perl或awk命令行
所属栏目：[大数据] 日期：2020-12-16 热度：107
过滤重复字符 perl -e '$_=STDIN; @in = split; if (@in 100){ @out = grep {! $hash{$_}++ } @in; print join "n",@out;}' 统计全文单词数 （同 awk?'{for?(i=1;i=NF;i++){a[$i]++}}?END{for?(b?in?a)?print?b":?"a[b]}'?input ） perl -ne 'map {++$hash{[详细]
-
perl类似于shell_date的功能
所属栏目：[大数据] 日期：2020-12-16 热度：139
话说shell脚本格式化输出时间非常容易比方输出，20120620 ? 如果是perl那就需要加载这个函数use POSIX qw( strftime ); perl date.pl 这个函数的变量跟date的几乎一样。[详细]
-
Schwartzian Transform(施瓦茨变换)
所属栏目：[大数据] 日期：2020-12-16 热度：130
先普及下概念，看http://en.wikipedia.org/wiki/Schwartzian_transform? 或者 看IntermediatePerl 中的9.4 在平时工作中，我们会经常接触到一些对文件内容做排序的工作。 像一般的升序排序，我会用sort命令来完成。 但是有些复杂的排序，比如，按第一列升序[详细]
-
数据类型之列表与数组
所属栏目：[大数据] 日期：2020-12-16 热度：81
-- Start 对于下面的 Perl 语句，等号左边的$name 被称为标量，等号右边的"尚波" 被称为字符串常量，它的意思是把字符串常量"尚波"赋给变量$name。 $name = "尚波"; 对于下面的 Perl 语句，等号左边的@names 被称为数组，等号右边的被称为列表，它的意思是把[详细]
-
Perl 模块
所属栏目：[大数据] 日期：2020-12-16 热度：136
1.? File::Find 模块 use File::Find???? 使用该模块，这时一个find的新函数就可以使用了 find? subref,dirlis????? find的第二个参数是要搜索的目录。第一个参数是子例程引用。 $File::Find::name?? 当前路径名，包括目录和文件名 $File::Find:dir???????[详细]
-
使用perl批量卸载软件
所属栏目：[大数据] 日期：2020-12-16 热度：171
?昨天晚上下载了wine，用了用很不爽，打算卸载掉，使用yum remove wine后，发现还有好多wine相关程序没有卸载掉。剩下的我是使用下列方法弄得 1.使用rpm -aq | grep wine ./uninstall 查看剩余wine相关程序，并将结果到处到本地目录uninstall文件中 [root@lo[详细]
-
perl学习(一)
所属栏目：[大数据] 日期：2020-12-16 热度：94
? ? ? ? ? ? ? ? ? ? ?决定学习一门脚本语言，选择了perl ? ? ? ? ? ? ? ? ? ? ?虽然是现在是期末复习的时候，可是还是在百忙之中开始了perl的学习，今天是第一天。 ? ? ? ? ? ? ? ? ? ? ?因为Linux默认安装perl，所以直接用就行了，省了编译安装的麻烦。 ?[详细]
-
Perl 引用变量传入函数中的行为
所属栏目：[大数据] 日期：2020-12-16 热度：158
程序中遇到一个问题，一个引用变量传入函数中，如果赋值一个新的引用，则外部引用没有改变，如果更改引用内容，则变量随之改变，做个记录，下次注意。 如下为示例： sub test1{my $x = shift;$x = {left=undef,right=undef,key=123,parent=undef,};}sub test[详细]
-
Perl 学习笔记（1）
所属栏目：[大数据] 日期：2020-12-16 热度：71
在本章将要学习：（1）system()函数 （2）捕获输出 （3）代码的移植性 一、system()函数 ????? 若要运行非perl的命令，最简单的方法是使用system（）函数。system()函数能够暂停perl程序，运行外部命令，接着在运行你的perl程序。 ?????system("ls -l") ；sy[详细]
-
对目录下文件进行简单批处理的脚本
所属栏目：[大数据] 日期：2020-12-16 热度：144
::@echo offfor %%P in (70-79*.TRS) do (echo %%P file.lst)for /f "tokens=1,2* delims=. " %%A in (file.lst) do (perl Process.pl %%A.in %%A.out)del file.lstpause 先将文件夹下所有文件作为清单列出来，再依次处理清单中的文件，把处理后的文件再放[详细]
-
perl读书笔记
所属栏目：[大数据] 日期：2020-12-16 热度：146
1.在Perl 内部没有整数值，程序中的整数被当做等价的浮点数来处理。 2.Perl 允许用下划线来分隔整数，如：61298040283768==61_298_040_283_768；适用于非十进制数字表示中的整数部分，如16进制：0x5065727C==0x50_65_72_7C。 3.八进制以0 开头，十六进制以0x[详细]
-
函数
所属栏目：[大数据] 日期：2020-12-16 热度：123
-- Start 系统函数 Perl 提供了大量的函数供我们使用，详细列表见 perldoc 。 自定义函数 自定义函数又称子程序( subroutine )，子程序可以出现在程序的任何地方。一般放在程序的开始或结尾，下面是一个简单的例子。 #!/usr/bin/perl# 定义子程序sub max {my[详细]
-
perl语言入门(5)
所属栏目：[大数据] 日期：2020-12-16 热度：167
第六章 哈希 1.哈希 ? 哈希就是一种数据结构，可以容纳很多值，并随机存取.是很多的键值对，键是字符串且唯一，但是键可以对应多个值(值可以重复).键和值都是任意的标量. ? 值可以是数字，字符串，undef. 2.访问hash元素 ? $family_name{"fred"} 3.访问整个[详细]
-
perl入门教程:正则表达式
所属栏目：[大数据] 日期：2020-12-16 热度：198
1 正则表达式的三种形式 首先我们应该知道 Perl 程序中，正则表达式有三种存在形式，他们分别是： 匹配：m/regexp/ （还可以简写为 /regexp/ ，略去 m） 替换：s/pattern/replacement/ 转化：tr/pattern/replacemnt/ 这三种形式一般都和 =~ 或 !~ 搭配使用（[详细]
-
[转]perl里使用外部命令
所属栏目：[大数据] 日期：2020-12-16 热度：157
Perl调用 外部 命令 的方式和区别 转自： http://hi.baidu.com/develop_skill/blog/item/d69bc0cbf010da4ff31fe72b.html 主要的方式简述如下： 1. system("command"); 使用该 命令 将开启一个子进程执行引号中的 命令 ，父进程将等待子进程结束并继续执行下[详细]
-
Perl 模块(2)
所属栏目：[大数据] 日期：2020-12-16 热度：102
1.Net::telnet 模块 use Net::telnet; $telnet=Net::telnet-new(192.168.1.1); $telnet-login(user,pass); @lines=$telnet-cmd('ps -ef'); print @lines; ================================== 2. Net::SMTP_auth 模块 use Net::SMTP_auth; open(AI,'d:test.[详细]
-
perl: /i, /s, /x, /m
所属栏目：[大数据] 日期：2020-12-16 热度：94
/i: 一个大小写无关的模式。 ? /s: 默认情况下，点 (.) 不匹配换行符，这对于“单行中查找”的问题能很好解决。如果你的字符串中有换行符，并希望点 (.) 能匹 配它们，那可以使用 /s 这个修饰符。它将模式中点 (.) ◆的行为变成同字符类 [dD] 的行为类似：[详细]
-
perl: grep, map
所属栏目：[大数据] 日期：2020-12-16 热度：191
grep: my @odds = grep {$_ % 2} 1..10; ? my @lines = grep {/bfredb/i} FILE; my @lines = grep /bfredb/I,FILE; ? map: ? ? ? map 操作和 grep 非常类似，因为它们有相同类型的参数：一个使用 $_ 的块，以及一列需要处理的元素。它们处理的方式也 是[详细]
-
perl: $&, $@, $!, exit status
所属栏目：[大数据] 日期：2020-12-16 热度：168
$: 正则匹配中，将匹配的那部分字符串自动存储在 $ 中。 ? $@: 当执行 eval 块时发生了通常的严重错误， eval 块会停止执行，但程序不会崩溃。当 eval 结束时，你想知道它是正常结束的， 还是发生了严重错误。这些结果放在特殊变量 $@ 之中。如果 eval 为你[详细]
-
Perl Inherit Instance
所属栏目：[大数据] 日期：2020-12-16 热度：80
Person.pm: #!/usr/bin/perl-w ? package Person; ? use strict; use English; use warnings; ? sub new { ? my $self = {}; ? ? shift; ? my ($name,$age) =@_; ? ? $self-{name} =$name; ? $self-{age} =$age; ? ? bless ($self); } ? sub change_name { ?[详细]
-
Perl Perform DB Operations
所属栏目：[大数据] 日期：2020-12-16 热度：153
#!/usr/bin/perl -w package PerformDBOperations; use strict; use English; use Carp; use DBI; my $dbHandle = 0; sub new { ? ? my $class = shift(@ARG); ? ? ?? ? ? my $self = {}; ? ? ? ? ? ? ? ?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? $self-{[详细]
-
Perl Read Configuration File
所属栏目：[大数据] 日期：2020-12-16 热度：89
#!/usr/bin/perl -w use strict; use English; use Carp; ? ? ? ? package ReadConfFile; sub new { ? ? my $class = shift; ? ? my $self = {}; ? ? bless ($self,$class); ? ? ?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? ? ? return $self; ? ? ? ? ? ? ? ??[详细]
