-
用Perl语言登录Cisco PIX防火墙修改配置
所属栏目：[大数据] 日期：2020-12-16 热度：167
################################################### Open the internet connection for an ip address.# Usage: inet_conn.pl [-e | -d ] ip_address################################################### 应该对IP地址进行测试sub print_usage{print "Us[详细]
-
用Perl语言读取网络设备SNMP信息
所属栏目：[大数据] 日期：2020-12-16 热度：123
#!/usr/bin/perluse strict;use Net::SNMP;my ($session,$error) = Net::SNMP-session( -hostname = shift || '133.109.9.78',-community = shift || 'public',-port = shift || 161 );if (!defined($session)) { printf("ERROR: %s.n",$error); exit 1;}my[详细]
-
用Perl访问ftp服务器
所属栏目：[大数据] 日期：2020-12-16 热度：126
#!/usr/bin/perluse Net::FTP;$ftp = Net::FTP-new("133.109.9.1",Debug = 0)or die "Cannot connect to some.host.name: $@";$ftp-login("ftpuser",'ftppwd')or die "Cannot login ",$ftp-message;$ftp-cwd("/etc")or die "Cannot change working directory[详细]
-
用Perl访问华为交换机配置示例
所属栏目：[大数据] 日期：2020-12-16 热度：143
#!/usr/bin/perl -wuse lib '../hwlib';use Net::Telnet;use Time::Local;use POSIX qw(strftime);use HWNET;use Net::Ping;my $p = Net::Ping-new();my $host='10.49.64.1';if(!$p-ping($host)){ print STDERR "Can NOT ping '$host' !"; goto r2;}my $hw =[详细]
-
Perl访问华为系列交换机路由器配置参数模块
所属栏目：[大数据] 日期：2020-12-16 热度：143
#包名：HWNET 功能：对华为交换机和路由器进行自动维护的包 引用方法：use HWNET;#package HWNET;use strict; use Data::Dump qw(dump); use Net::Telnet; use POSIX qw(strftime);use Net::Ping;## 用于测试的子程序#sub test{#读取子程序参数my $this = sh[详细]
-
Perl中的map和grep
所属栏目：[大数据] 日期：2020-12-16 热度：162
http://www.cnblogs.com/softwaretesting/archive/2011/11/28/2266349.html[详细]
-
Perl中的map和grep
所属栏目：[大数据] 日期：2020-12-16 热度：143
http://www.cnblogs.com/softwaretesting/archive/2011/11/28/2266349.html[详细]
-
Perl 语言的重要价值体现
所属栏目：[大数据] 日期：2020-12-16 热度：183
尽管媒体们如此关注Java和ActiveX，但真正“让英特网活起来”的却应该是Perl，一种专业技术分析家们视而不见，但是却出现在所有网络管理员、系统管理员或程序员脑中的语言。他们每天的工作包括建立常规的网络应用，或是把不同的程序粘起来，以实现它们的设计[详细]
-
perl中的trim函数
所属栏目：[大数据] 日期：2020-12-16 热度：160
? sub?trim? {? ????????my? $string ?=?shift;? ???????? $string ?=~?s/^s+ //; ? ???????? $string ?=~?s/s+$ //; ? ???????? return ? $string ;? }?[详细]
-
用perl语言求1到100之间的偶数,奇数及素数
所属栏目：[大数据] 日期：2020-12-16 热度：128
?一、求1到100之间的偶数： #!/usr/bin/perl -w for (1..100){ ? if (($_%2 eq 0)){ ? ? print "$_ "; ? } } 二、求1到100之间的奇数： #!/usr/bin/perl -w for (1..100){ ? if (($_%2 ne 0)){ ? ? print "$_ "; ? } } 三、求1到100之间的素数： #!/usr/bin/[详细]
-
Perl中定时器alarm的die与kill
所属栏目：[大数据] 日期：2020-12-16 热度：198
在perl中运行一些独立的程序时可能会挂起会处理较长时间，这种情况下可以使用alarm #!/usr/bin/perl -W? $timeout=5; eval { ????????local $SIG{ALRM} = sub { die "$timeout second,run alarmn" };#定义alarm运行的程序，这里设定为die并打印信息。 ?????[详细]
-
Perl profiling笔记
所属栏目：[大数据] 日期：2020-12-16 热度：156
项目背景 ? 在一个庞大的代码自动生成项目中，需要通过对C/C++头文件的扫描分析并记录 所有public类型的函数原型及参数类型。 在XML script中，显式使用C函数和参数。用户可以自行编写xml测试脚本来运行C/C++代码。 上述过程都通过perl script自动生成并编译[详细]
-
perl map函数
所属栏目：[大数据] 日期：2020-12-16 热度：66
Perl里面的map,是一种道具，可以让你的函数或者表达式，很方便地施用到一系列对象上去。 1. 让我们先看map的语法 map BLOCK LIST map EXPR,LIST BLOCK是一个用{}包围的代码块。EXPR可以是子函数名、正则表达式等。LIST是输入列表。 简单地说，map就是起了一[详细]
-
[转 - 改] Perl初级教程 （一）
所属栏目：[大数据] 日期：2020-12-16 热度：172
?【原文地址】 Perl初级教程 ? 注-- 本文UNIX系统环境为 SunOS 5.1 Generic? # uname -a ? 1.?? 创建UNIX文件 touch PerlFile ? 2.?修改UNIX文件的存取权限 ??chmod 777 PerlFile ? chmod ? 600 ?×××?（只有所有者有读和写的权限） ?? chmod ? 644 ?××[详细]
-
[转 - 改] Perl初级教程 （二）
所属栏目：[大数据] 日期：2020-12-16 热度：82
【 对于字符串】 $b = 'BB'; $c = 'CC'; $a = 'AA'; ? $a = $b . $c; # Concatenate $b and $c = BBCC $a = $b x $c; # $b repeated $c times ? 【 Perl的赋值语句】 $a = $b; # Assign $b to $a $a += $b; # Add $b to $a （算数运算） $a -= $b; # Subtrac[详细]
-
[转 - 改] Perl初级教程 （三）
所属栏目：[大数据] 日期：2020-12-16 热度：116
【 文件处理 】 下面是一个简单的perl程序，与UNIX中cat命令对某个文件的操作相同。 #!/usr/local/bin/perl## Program to open the password file,read it in,# print it,and close it again. $file = '/export/home/dwei/ProgramScriptFolder/TextFile';# N[详细]
-
[转 - 改] Perl初级教程 （四）
所属栏目：[大数据] 日期：2020-12-16 热度：169
【 字符串匹配 】 ? 则表达式-regular expression ? 规则表达式包含在斜线内，匹配通过=~操作符进行。如果字符串the出现在变量$sentence中，则下面的表达式为真： ? $sentence =~ /the/ RE是大小写敏感的，所以如果 $sentence = "The quick brown fox"; 那么[详细]
-
Perl 基于 Windows 环境 搭建
所属栏目：[大数据] 日期：2020-12-16 热度：137
1.?下载Perl 的安装包 ActivePerl. 2.?运行安装文件. 3. 创建一个perl 脚本文件,执行语句. ? c : Perl bin perl . exe?e : David PerlTemp Hello?World . ? 4. 如正常执行,则Perl在windows下安装成功. 5. 将Perl 加为环境变量.[详细]
-
Perl Scalar
所属栏目：[大数据] 日期：2020-12-16 热度：153
1.? Perl 的标量表达式。 ? ?[详细]
-
Perl初级教程 （5） 遍历文件夹内指定扩展名文件，查找匹配关键
所属栏目：[大数据] 日期：2020-12-16 热度：184
#!/usr/bin/perl -W # # File: find.pl # License: GPL-2 use strict; use warnings; use File::Find; ? #定义要匹配的关键字 my $str1="20090414095014"; my $str2="Report"; #定义键盘接收输入，第一个为文件夹路径，第二个为文件扩展名。 die "Usage: $0[详细]
-
详解Perl字符串比较和整数比较的区别
所属栏目：[大数据] 日期：2020-12-16 热度：163
本文向大家介绍一下Perl字符串比较和整数比较. Perl语言中Perl字符串可分为单引号和双引号字符串,那么如何进行Perl字符串比较呢, 请看本文详细介绍: 本文和大家重点讨论一下Perl字符串比较和整数比较, 算术运算符的比较有大于，小于，等于，不等于等关系, 而[详细]
-
Perl字符串处理函数大全
所属栏目：[大数据] 日期：2020-12-16 热度：188
本文重点讨论Perl字符串处理函数的用法,每种函数都有各自的特点和作用, 下面请看本文详细介绍. Perl字符串处理函数 1. index 语法: position=index(string,substring,position); 语义: 返回子串substring在字符串string中的位置,如果不存在则返回-1。 参数po[详细]
-
perl里q,qq,qw等的用法
所属栏目：[大数据] 日期：2020-12-16 热度：145
? 从网上看到的一篇文章，觉得不错，转过来了。 在perl语言中，几个特殊而常用的符号：??? q??是单引号?? qq?是双引号?? qw?单词列表引号?? qr?正则表达式引号?? qx?反引号?? 其中qq，qw又较为常用。?? qq{foobar}的意思为意思为双引号字符串，可内插变量,相[详细]
-
解决perl: warning: Setting locale failed.
所属栏目：[大数据] 日期：2020-12-16 热度：98
perl: warning: Setting locale failed. perl: warning: Please check that your locale settings: LANGUAGE = "zh_CN:zh", LC_ALL = (unset), LC_PAPER = "zh_CN", LC_ADDRESS = "zh_CN", LC_MONETARY = "zh_CN", LC_NUMERIC = "zh_CN", LC_TELEPHONE = "zh[详细]
-
畅谈Perl时间处理函数用法
所属栏目：[大数据] 日期：2020-12-16 热度：125
本文重点讨论Perl时间处理函数的概念,Perl能在绝大多数操作系统运行,可以方便地向不同操作系统迁移,并且Perl借取了C、sed、awk、shellscripting以及很多其他程序语言的特性。 一. Perl时间的表示函数 1. 表示日期的方式多种多样: "18Jan1973"; "18/01/1973";[详细]
