-
Perl脚本菜单的简单实现
所属栏目：[大数据] 日期：2020-12-16 热度：161
用《Learning Perl》上的一段代码来说明实现： #!/usr/bin/perl?-w ? use?strict; ? foreach( 1 ?..? 10 ){ ? ? print ? "Iteratin?number?$_.nn" ; ? ? print ? "Please?input?the?choice:?last,?redo,?next,?or?none?of?the?above?" ; ? ? chomp(my?$cho[详细]
-
发型提取脚本一条龙
所属栏目：[大数据] 日期：2020-12-16 热度：90
由于兴趣，决定提取http://magic.lady8844.com 下的全部发型。脚本搞起~~ ? ? 首先是在windows下弄的下载： @echo off for /L %%i in (1,1,5555) do curl -e "http://magic.lady8844.com/swf/hair.swf " -d "username=password=id=%%i" http://magic.lady884[详细]
-
perl ibm相关经典文档集合链接
所属栏目：[大数据] 日期：2020-12-16 热度：56
http://www.ibm.com/developerworks/cn/linux/theme/perl/index.html[详细]
-
perl学习笔记一----变量
所属栏目：[大数据] 日期：2020-12-16 热度：94
? 变量 一.?直接量---常量 perl中常量和其他语言例如C语言没什么太大区别。所以在下面指出一些与其他语言不相同的地方。 1.1?数字常量 ? 在perl中可以表示八进制和十六进制。八进制以0打头，十六进制以0x打头。 ? 例如?＄a=010?---八进制 ? ?????＄b=0x10---[详细]
-
perl学习笔记二----列表和数组
所属栏目：[大数据] 日期：2020-12-16 热度：65
列表和数组 数组跟C语言中有相同之处,但是处理起来更加灵活.而列表 C语言中是没有这个概念的. 一.?列表 首先我们来看一个列表的例子. 例如?{"abc",48,＄a,3.14} perl提供一个机制可以简便列表的写法----qw,上面的例子可以写成如下的形式: qw(abc?48?＄a?3.14[详细]
-
perl学习笔记三----操作符
所属栏目：[大数据] 日期：2020-12-16 热度：157
操作符 perl的操作符大部分跟C语言相同，所以下面还是介绍一些不相同的地方。一。?操作符1。乘幂?**例如?2**3?----8乘幂不可以超过系统的表示范围否则报错。2。数字比较=例如?a=b若?ab??返回值?1若?a=b 返回值?0若?ab 返回值?-13。逻辑运算符?之所以把它提出[详细]
-
perl学习笔记四----流程控制
所属栏目：[大数据] 日期：2020-12-16 热度：186
流程控制程序 perl中也有C语言中if，while等流程控制程序，但是细节上还是有所不同，另外perl中还存在unless和until一些语句。还有就是perl中是没有switch语句的.一?if语句与C语言中不同的有如下几点：1。?perl中采用elsif而不是C中的else?if2。?perl中的真[详细]
-
perl学习笔记六----函数
所属栏目：[大数据] 日期：2020-12-16 热度：59
函数 perl中的函数基本上跟C语言中相同，只是在声明和调用方式有些差别.没有C语言那么严格.一?声明和调用声明?sub?function_name{}调用?do?function_name?????function_name如果先声明则不用?????二?局部变量???my?＄a???my(＄a,＄b)???local(＄a)???其区别[详细]
-
perl学习笔记七----文件
所属栏目：[大数据] 日期：2020-12-16 热度：170
?文件和文件夹 一?打开/关闭文件 ???open(file_handle,"file_path") ???close(file_handle) ??? 二?读文件 语句＄line?=?MYFILE;从文件中读取一行数据存储到简单变 量＄line中并把文件指针向后移动一行。 语句@array?=?MYFILE;把文件的全部内容读入数组@arra[详细]
-
perl学习笔记八----格式化输出
所属栏目：[大数据] 日期：2020-12-16 热度：107
? 格式化输出 在一个perl中可以有多个format。 一?打印的基本步骤 1、将系统变量＄~设成所要使用的格式 ????? 2、调用函数write ?????函数write将结果输出到标准输出文件STDOUT，我们也可以使它将结果 ?输出到任意其它的文件中。最简单的方法就是把文件变量[详细]
-
perl学习笔记十----命令行
所属栏目：[大数据] 日期：2020-12-16 热度：142
? 命令行工具 debug可以帮助我们很好的review我们的代码。类似于VC中的 debug可以step?by?step的调试程序，同样可以设置断点。可以在debug 过程中改变某个变量的值。例如 DB1?＄a=5 另外如果想查看某个变量的值可以用print命令 DB1print?＄a 一?开始debug及[详细]
-
perl学习笔记九----特殊变量
所属栏目：[大数据] 日期：2020-12-16 热度：67
? ?? 特殊变量 一?缺省变量和参数 变量名? 英文名称? 说明? ＄_? ＄ARG? 全局标量充当函数参数以及模式寻找空 间的缺省变量 默认的输入/输出和格式匹配空间? @_? n/a? 存储数组参数，访问方式:?＄_[num]? 传给子程序的参数列表 @ARGV? n/a? 脚本的命令行参数[详细]
-
perl学习笔记十一-----模块
所属栏目：[大数据] 日期：2020-12-16 热度：60
? ? 模块 ?这里的模块感觉上相当于一个类库。我们可以调用这个 类库里的函数。我们也称之为package即包。 一 如何使用模块 ?使用如下的命令： use MODULE_NAME ??例如? use Cwd 位置随便放,不过就像C语言中一样最好是放在程序的最开始. 对模块中某个函数的引[详细]
-
Perl Learning (7_2) —— 漫游正则表达式王国
所属栏目：[大数据] 日期：2020-12-16 热度：75
2011-02-17 wcdj ? (1) 模式分组 (2) 择一匹配 (3) 字符集 (4) 字符集简写 (5) 反义简写 (1) 模式分组 圆括号 —— 用来分组，也是元字符。 print "模式分组/n";$_ = "wcdj";if (/wcdj+/) {# +表示=1个j字符print "It matched!/n";# 输出此句} else {print "[详细]
-
perl笔记之DBI操纵数据库
所属栏目：[大数据] 日期：2020-12-16 热度：113
perl中的DBI（数据库接口，Database Interface）是个对数据库操纵很强大的东西，这次正好工作中用到了他的一点皮毛所以做个记录。 具体情况就是插入多条记录 #!/usr/bin/perl use DBI; open AA,"c1"; my $dbname="sverlog"; my $location="localhost"; my $p[详细]
-
在perl中执行shell命令
所属栏目：[大数据] 日期：2020-12-16 热度：151
?在perl的模块库中有一个Shell.pm可以很方便地执行shell命令. use Shell qw(cat ps cp); $passwd = cat('/etc/passwd'); @pslines = ps('-ww'), cp("/etc/passwd","/tmp/passwd"); #面向对象方式 my $sh = Shell-new; print $sh-ls('-l'); 参考 http://searc[详细]
-
perl在网页中抓取图片 binmode（转帖）
所属栏目：[大数据] 日期：2020-12-16 热度：177
perl在网页中抓取图片?binmode ??? 今天在天涯上闲逛的时候，突然一个网页上面楼主贴了很多图片，都是满漂亮的，于是就想把这些图片都下载到本地的电脑上。以前用perl的LWP::Simple模块主要是提前里面的一些文本信息，基本上没碰到过什么障碍，不过这次下载[详细]
-
怎么设置easyui 的 combobox的默认值
所属栏目：[大数据] 日期：2020-12-16 热度：117
官方的例子： ? combobox_data.json： [{"id":1,"text":"Java"},{"id":2,"text":"C#"},{"id":3,"text":"Ruby", "selected":true //这一项是默认},{"id":4,"text":"Perl" },{"id":5,"text":"Basic"}][详细]
-
perl open操作总结（待续）
所属栏目：[大数据] 日期：2020-12-16 热度：183
open操作 4个注意事项： （1）使用三参数的open;（2）使用my声明的局部变量代替裸文件句柄；（3）追加是""而不是"";（4）每个open都要判断执行结果（or die）。[详细]
-
用Perl生成随机密码
所属栏目：[大数据] 日期：2020-12-16 热度：142
用Perl生成随机密码 『 更新时间：2008-4-6 』『 字体： 变小 变大 』『 作者：佚名 | 来源： 互联网 』 如果你是一名系统管理员或者Web开发人员，你可能已经知道强度不够的用户密码是最大网络安全风险之一。强度不够的密码——比如，使用用户的名字或者生日[详细]
-
获取不通Frame 和获取table
所属栏目：[大数据] 日期：2020-12-16 热度：133
? ??use?Win32::IEAutomation?;? ???use?Win32::IEAutomation::Table;? ???use?Win32::IEAutomation::Element;? ???use?Win32::IEAutomation::WinClicker;? ? ??my?$ ie ?=? Win32 ::IEAutomation?- ?new();? ???my?$ url_01 ?=? "http://192.168.204.105/ma[详细]
-
perl正则表达式递归
所属栏目：[大数据] 日期：2020-12-16 热度：95
??? 今天在chinaunix上看到有个贴，问 ??? 设最外层括号为第 1 层，请问怎么样能够除去 1 对第 2 层的括号，保留其他括号？ ??? 例如： (((1,2),3),4)? ?=??((1,3,4) ((1,(3,4))? ?=??((1,4) ? ?? ?? ?? ?? ?? ?? ?? ?or ? ?? ?? ?? ?? ?? ???(1,2,4)) ? ??[详细]
-
重新配置perl cpan
所属栏目：[大数据] 日期：2020-12-16 热度：125
本文转自 http://blog.chinaunix.net/space.php?uid=374372do=blogcuid=1272632 作者:冰雪?埃 Perl-gt;重新配置CPAN? CPAN是Comprehensive Perl Archive Network的缩写.。它是一个巨大的Perl软件收藏库，收集了大量有用的Perl模块(modules)及其相关的文件。[详细]
-
extman登录时验证码不显示问题？
所属栏目：[大数据] 日期：2020-12-16 热度：115
?关于extman登录时验证码不显示问题，进行如下操作： 验证是否安装perl-GD ？ ?rpm -qa | grep perl-GD?? 安装 yum?install?perl-GD??? 安装后即可正常显示 管理账号： root@extmail.org? 密码： extmail*123* 注意：如果总提示验证码错误，改一下时间，保证[详细]
-
perl 发送邮件
所属栏目：[大数据] 日期：2020-12-16 热度：98
用到的库：Net::SMTP;这个可以在cpan上找得到。 另外在windows下安装perl的库可以使用ppm方法。 在command line里面输入ppm会出现Perl Package Manager。 找到你所需要安装的库选择“File”-"Run task"就可以了。 ? 看个发送邮件的简单例子： sub SendEmail([详细]
