随笔分类 -  perl 脚本

摘要：安装SQLite3 可使用 Perl DBI 模块与 Perl 进行集成。Perl DBI 模块是 Perl 编程语言的数据库访问模块。它定义了一组提供标准数据库接口的方法、变量及规则。下面显示了在 Linux/UNIX 机器上安装 DBI 模块的简单步骤：$ wget http://search.... 阅读全文

摘要：CGI.pm manual documentCGI LibraryAS OF 10 FEBRUARY 2005 (CGI.pm VERSION 3.06) THIS DOCUMENT IS NO LONGER BEING MAINTAINED. PLEASE CONSULT THE CGI POD DOCUMENTATION USING "perldoc CGI"AbstractThis perl 5 library uses objects to create Web fill-out forms on the fly and to parse their content 阅读全文

摘要：简单的单词匹配最简单的正则就是一个单词,或者更通用一点,一个字符序列.一个仅包含某个单词的正则可以匹配包含那个单词的任意字符串:"Hello World" =~ /World/; # 匹配成功在这条语句中,World就是一个正则,/World/两边的双斜杠//告诉Perl这是一个正则表达式.运算符=~会把任意的字符串传递给该正则表达式,如果正则匹配成功,则返回真,如果匹配失败,则返回假.在上面的例子中,World刚好匹配了字符串"Hello World"中的第二个单词,所以该表达式返回的值为真.类似的这种表达式经常会被用在条件判断语句中:print &q 阅读全文

摘要：在Perl中，字符串比较和数字比较是由不同的运算符来完成的：数字比较运算符： , =, ==, !=字符串比较运算符： lt, gt, le, ge, eq, necmp： 比较字符串，返回 -1, 0 或者 1。： 比较数字，返回 -1, 0 或者 1。=~：用正则表达式来匹配，匹配的话返回True。!~：和 =~ 相反，不匹配返回True。例子#!/usr/bin/envperlusestrict;usewarnings;my$num1=1;my$num2=1.0;my$two_numbers="$num1and$num2";my$str1="1abc&quo 阅读全文

摘要：Perl流程控制语句条件选择语句1if(条件表达式){语句块1;}else{语句块2;}条件选择语句2unless(判别运算式){语句2;}else{语句1;}if条件语句嵌套if(条件表达式1){语句1}elsif(条件表达式2){语句2}elsif(条件表达式3){语句3}else{语句4}例：#!/usr/bin/Perl-w print "input?\n"; $name=; chop ($name); if($name eq "bo") { print"my name is $name\n"; }elsif($name eq 阅读全文

摘要：举个例子：file1是这样的：11111111111111222222222222225555555555555566666666666666file2是这样的：33333333333333444444444444447777777777777788888888888888而我想得到的结果file3是：1111111111111122222222222222333333333333334444444444444455555555555555666666666666667777777777777788888888888888程序举例：openIN1,'',$file_out;my 阅读全文

摘要：关于学习PerlPerl是一门很有用的语言，可以用它来做很多事。然而，它也仅是一门语言，掌握了Perl，你只是掌握了Computer领域的一小块知识。在学习Perl前，请明确你的学习目的，并采用正确的学习方法和资源。（一）学习目的你学Perl的目的是什么？要实现你的目的，光有Perl够吗？让偶帮你分析看看。1. 我想当一名System Administrator,并将Perl用于SA工作。想法很好，优秀的SA，Perl能力必备。Perl自身的灵活语法，强大的正则表达式，良好的shell结合能力，以及CPAN的众多模块，会使你的SA 工作如鱼得水，工作量倍减。然而，SA工作的本质还在于Syste 阅读全文

摘要：Practical Extraction and Report LanguagePerl 最初的设计者为拉里·沃尔（Larry Wall），它于1987年12月18日发表。Perl借取了C、sed、awk、shell scripting以及很多其他程序语言的特性。Perl 一般被称为“实用报表提取语言”（Practical Extraction and Report Language），虽然有时被称做“病态折中垃圾列表器”(PathologicallyEclectic Rubbish Lister)。它是术语，而不仅仅是简写，Perl的创造者，LarryWall提出第一个，但很快又扩 阅读全文

摘要：个人常用正则表达式：去除前导空格s/^\s+//去除尾部空格s/\s+$//去除前后空格s/^\s+|\s+$//g匹配任意字符/.*/s这里/s表示连换行符也匹配，因为.是不匹配换行符的，所以上面的表达式匹配任意字符。下面看第二种方法，perl中的元字符.能匹配所有单个字符，但是不能匹配换行符，如果要匹配的文本含有换行符，那么.将无法胜任，比如下面的xml文件。Response> Code>200Code> Description>SuccessDescription>Response>如果想取得Response结点中的内容，那么下面的表达式无法完成工作， 阅读全文