-
Perl Verify PMCoreBasedAD
所属栏目：[大数据] 日期：2020-12-16 热度：115
#!/usr/bin/perl -w use strict; use English; use Carp; ? ? ? ? ? ? ? ? use Getopt::Long; ? ? ?? use ReadConfFile; use PerformDBOperations; my ($confFile,$boolHelp) = (); my $boolError = GetOptions("c=s" = $confFile,? ? ? ? ? ? ? ? ? ? ? ?[详细]
-
Perl I/O Read & Write
所属栏目：[大数据] 日期：2020-12-16 热度：80
#!/opt/nokianms/bin/perl -w ? use strict; use English; ? use IO::File; ? my $FileContent; ? sub ReadRepXMLFile { ??? my ( $filename ) = @ARG; ? ??? undef $RS;?# for reading the file into one scalar ??? ??? my $ifh = IO::File-new( $filename[详细]
-
Perl different between numeric and string
所属栏目：[大数据] 日期：2020-12-16 热度：126
-
CPAN
所属栏目：[大数据] 日期：2020-12-16 热度：61
Perl到了第五版增加了模块的概念，用来提供面向对象编程的能力。这是Perl语言发展史上 ? 的一个里程碑。此后，广大自由软件爱好者开发了大量功能强大、构思精巧的Perl模块，极大地 ? 扩展了Perl语言的功能。CPAN（Comprehensive Perl Archive Network）是int[详细]
-
向脚本传递参数
所属栏目：[大数据] 日期：2020-12-16 热度：140
-- Start 在需要的时候我们可以向 Perl 脚本传递参数，Perl 会自动将所有的参数放到数组 @ARGV 中， 下面是一个简单的例子。 #!/usr/bin/perluse strict;if(@ARGV != 1) {# die 函数用来输出错误信息并退出程序# $0 中存储的是脚本的名字die "Usage: $0 name[详细]
-
六月总结
所属栏目：[大数据] 日期：2020-12-16 热度：132
???? 现阶段完成的一些工作 ???? 英语：继续单词和听力，写试卷，效果还不错，继续听一些VOA吧，英语总是有用的。 ???? 编程： perl看到perl intermediate ch8 ，继续看争取把OO看完。深感perl千变万化，细枝末节非常多，又觉得习题的解答飘逸灵动，自己要要[详细]
-
Perl ftp
所属栏目：[大数据] 日期：2020-12-16 热度：165
#!/usr/bin/perl use English; use strict; use warnings; use Net::FTP; my $ftp = Net::FTP - new("10.58.118.40",Debug = 0) or die $!; $ftp - login("SVFUNCFTPuser","dtb_dm#22") or die $!; my @list = $ftp - ls("/SNMPDC"); #$ftp - binary(); #$[详细]
-
Perl中our,my,local的区别与联系
所属栏目：[大数据] 日期：2020-12-16 热度：152
ur,"把名字限于某个范围“，其实就是明确声明一个"全局变量"，虽然是在某个模块或者函数里面定义的，外面的也可以访问，如果已经声明过了，再次用"our",表示此处用的是全局的那个，不是同名的私有或者局部变量 our $PROGRAM_NAME = "waiter"; { my $PROGRAM_[详细]
-
Perl Object
所属栏目：[大数据] 日期：2020-12-16 热度：168
==================================================================================== Perl Object Invoke: 1、使用$pkg_ref-method时，第一个参数是包的引用，随后才使在调用是客户代码传入的参数； 2、使用-w参数执行perl脚本或者在脚本中加入use warn[详细]
-
群发邮件的perl脚本程序
所属栏目：[大数据] 日期：2020-12-16 热度：70
#!/usr/bin/perl#open M,'../olympic_note/mail_template';open M,'tongzhi.txt';@t = M;close M;open(LIST,'liebiao.txt');#open(LOG,'havesend.olympic.080731');open(LOG,'sent.20100524.log');while(LIST) { s/[rn]//g;# ($username,$email) = split(/[详细]
-
Perl学习笔记（2）
所属栏目：[大数据] 日期：2020-12-16 热度：194
在本章中将要学习：(1)如何获得目录列表 (2)如何创建和删除文件 (3)如何创建和删除目录 (4)如何获取关于文件的信息。 一、获得目录列表 目录句柄与文件句柄的不同之处是：文件是通过读取文件句柄获得文件的内容，而目录是通过使用目录句柄来读取目录的内容。[详细]
-
通天塔导游 - 细数各种编程语言优缺点
所属栏目：[大数据] 日期：2020-12-16 热度：164
通天塔导游 - 细数各种编程语言优缺点 (译注：圣经记载：在远古的时候，人类都使用一种语言，全世界的人决定一起造一座通天的塔，就是巴别塔，后来被上帝知道了，上帝就让人们使用不同的 语言，这个塔就没能造起来。 巴别塔不建自毁，与其说上帝的分化将人类[详细]
-
perl学习(二)
所属栏目：[大数据] 日期：2020-12-16 热度：159
? ? ? ? ? ? ? ? ? 在perl中又两个必须搞清楚，就是标量值和标量变量，列表和数组。 ? ? ? ? ? ? ? ? ? 直接量就是数值在perl程序代码中的表现方式，就是直接写在程序里的数据，是标量值。如12，221.234，"China"等等。 ? ? ? ? ? ? ? ? ? 变量就是容器，用[详细]
-
perl 学习笔记(3)
所属栏目：[大数据] 日期：2020-12-16 热度：186
其他函数和运算符 在本章中学习：(1)如何对标量进行简单的字符串搜索 (2)如何进行字符替换 (3)如何使用print函数 (4)如何将数组用作堆栈和队列 一、搜索标量 ?用index进行搜索 index string,substring index("Pocket full of posies","ket")??????????? #?re[详细]
-
Hello World之Perl版
所属栏目：[大数据] 日期：2020-12-16 热度：107
Hello World之Perl版 Dennis Hu 2012-6-28 摘要 ：Hello World之Perl版，给Perl语言扫盲用。 环境 ：一般的Linux环境内置支持，windows环境这里不介绍。 程序编写 ：用vi或其他文件编辑工具将如下代码部分保存为hello.pl文件。 #!/usr/bin/perl print "Hello[详细]
-
LFS thrift IDL
所属栏目：[大数据] 日期：2020-12-16 热度：181
namespace cpp lfs namespace java lfs namespace perl lfs struct FileInfo { ? 1: i64 ID ? 2: i32 Size ? 3: i32 UsedSize ? 4: i32 ModifyTime ? 5: i32 CreateTime } struct? ReadBuf{ ?? ?1: string data; ?? ?2: i64 count; } service LfsService { ?[详细]
-
数据类型之哈希
所属栏目：[大数据] 日期：2020-12-16 热度：76
-- Start 学过 Java 的人应该对 hash 不陌生，所谓 hash 就是存储一对 key 和 value 的一种数据结构，它用来存储一种对应关系，如：省份证号和姓名，IP 地址和域名等等。在 Perl 中，key 必须是字符串，value 可以是任何标量。下面的例子演示如何使用hash。[详细]
-
perl学习(三)
所属栏目：[大数据] 日期：2020-12-16 热度：169
? ? ? ? ? ? ? ? ? ? ? 下面是我这几天学习perl写的练习。 use strict; sub total {#求和的子例程 ? ? my $sum = 0; ? ? foreach (@_) { ? ? ? ? $sum += $_; ? ? } ? ? return $sum; } sub average { #求平均的子例程 ? ? return total(@_)/$#_; } sub ?who[详细]
-
perl时间转换
所属栏目：[大数据] 日期：2020-12-16 热度：94
在使用perl进行脚本开发时，不可避免地需要进行时间转换，以下例子是将系统时间转换为标准时间： #!/usr/bin/perl use strict; use DBI; $|=1; my $username = "root" ; my $password = "123456"; my $dbhost = "db-server"; my $dbport = "3306"; my $now =[详细]
-
perl发送邮件（可带附件）
所属栏目：[大数据] 日期：2020-12-16 热度：164
作为软件开发人员，有时需要对服务器上的某些进程进行监控，以便掌握服务器的运行情况。因此当出现异常情况时，邮件提示是个不错的选择，可使开发维护人员及时进行维护处理。 1：利用Mail::Sendmail发送普通邮件 #!/usr/bin/perl use strict; use Mail::Send[详细]
-
perl脚本获取网络数据
所属栏目：[大数据] 日期：2020-12-16 热度：142
通过perl脚本调用url接口获取数据，可进行远程数据访问，相当方便： #!/usr/bin/perl #if error for simple please command 'cpan LWP::Simple' in shell use strict; use warnings; use LWP::UserAgent; use LWP::Simple; use utf8; use Encode; binmode(ST[详细]
-
Perl 学习笔记（4）
所属栏目：[大数据] 日期：2020-12-16 热度：134
使用CGI程序发送电子邮件 在本章将要学习：(1) 如何运行internet电子邮件特性 (2) 如何在UNIX和非UNIX系统下发送邮件 (3) 如何建立发送邮件的Web窗体 ? 一、Intenet邮件入门 目前最常用的是使用简单邮件传输协议（SMTP）将邮件发送出去和连接的目标端通常使[详细]
-
perl两个神奇的数组@-和@+
所属栏目：[大数据] 日期：2020-12-16 热度：113
[root@stationx ch2-regular]# cat perl-grep4.pl #!/bin/perl # perl-grep4.pl my $pattern = shift @ARGV; my $regex = eval { qr/$pattern/ }; die "Check your pattern! $@" if $@; while() ??????? { ??????? if(m/$regex/) ??????????????? { ????????[详细]
-
Perl 学习笔记（5）
所属栏目：[大数据] 日期：2020-12-16 热度：53
Perl的基本构件：数字和字符串 在本章中将要学习：（1）直接量数字和字符串 （2）标量变量 （3）运算符 一、直接量 数字直接量都是一些数字。 6????? 整型数 12.5???? 浮点数 15.0???? 浮点数 5_245_567?? 带有下划线而不是逗号的大数字 6.67E-33???? 科学记[详细]
-
Perl 学习笔记（6）
所属栏目：[大数据] 日期：2020-12-16 热度：107
控制程序流 本章中将要学习：语句块；运算符；循环；标号；程序执行后退出Perl 一、if语句 if (expressn) BLOCK if ($r == 5) { ???? print 'The value of $r is equal to 5.'; } 只有当表达式是真的时候，表达式后面的语句块才运行；如果表达式不是真，那么[详细]
