转载：http://blog.csdn.net/jallin2001/archive/2009/11/13/4808618.aspx   大家经常使用正则表达式的字符集从字符串中抽取或排除中文字符，但是这样做很费事，效果也并不是很理想。实际上Perl从5.6开始已经开始在内部使用 utf8编码来表示字符，也就是说对中文以及其他语言字符的处理应该是完全没有问题的。关键在于目前使用的编辑器以及文件格式

#!/usr/bin/perl use Encode; $^I = ""; #open TEST_A, ">file1.txt"; while (<>) {  print $_;    $AAA = encode("ISO-8859-1", decode("utf8",$_));  print $AAA;   #$AAA = encode("gb2312", decode("utf8",$_));

perl的读写文件非常简单，闲话不多说，直接上代码就能体会到了。   #!/usr/bin/perl -w use strict; unless (open (MYFILE, "<file1")) { die ("cannot open input file file1/n"); }else{ while(<MYFILE>) {print

  转自： http://xiaofeng1982.blog.163.com/blog/static/3157245820106234343371/ @       数组                            $x{}   x名字前面是美元符号($),后面是花括号({}),则其为 hash 元素 %       要引用整个 hash,使用百分号(“ )作为前缀。前面几页中使用的 h

符号->，=>和::分别表示什么意思？ 　　‘- >’符号是“插入式解引用操作符”（infix dereference operator）。换句话说，它是调用由引用传递参数的子程序的方法（当然，还有其它的作用）。正如我们上面所提到的，在调用Perl/Tk的函数的时候，大部分参数都是通过引用传递的。Perl中的‘->’功能就和它们在C或C++中一样。（大部分原始的组件都是Tk中的Perl类的元素。）

主要缘由是今天看代码的时候看到了grep，自己不是很熟悉，学习下 先看grep中的文档：     * grep BLOCK LIST     * grep EXPR,LIST       This is similar in spirit to, but not the same as, grep(1) and its relatives. In particular, it is not lim

在P e r l中，d i e函数可以用来在出现错误的时候停止解释程序的运行，并输出一条有意义的 出错消息。正如你在前面已经看到的那样，只要调用d i e函数，就能够输出类似下面的消息：    died at scriptname line xxx d i e函数也可以带有一系列的参数，这些参数将取代默认消息而被输出。如果消息的后面 没有换行符，那么消息的结尾就附有at scriptname li

$#作为一个变量表示打印数字时默认的数字输出格式，后面加上ARGV又表示什么意思呢？ 遇到perl的问题首先查perldoc，在perlvar里查到关于@ARGV的一条：       The array @ARGV contains the command-line arguments intended for the script. $#ARGV is generally the number

perl中的unlink: * unlink Deletes a list of files. On success, it returns the number of files it successfully deleted. On failure, it returns false and sets $! (errno): 1. my $unlinked = unlink 'a', 'b',

参考链接： http://stackoverflow.com/questions/841785/how-do-i-include-a-perl-module-thats-in-a-different-directory http://stackoverflow.com/questions/185114/how-do-i-use-a-perl-module-in-a-directory-not-in

ace for wince compile: ----------------------   1. Get ACE: ----------- ACE src: http://download.dre.vanderbilt.edu/previous_versions/ACE-6.0.1.zip 2. Create project file for wince: ------------------

1.在单引号里，\n不是换行，只是反斜线和字母n两个字符 2.2**3表示2的三次方 3.<STDIN>让perl程序读取从键盘输入的值 4.<STDIN>返回的字符串，一般都会在最后跟有一个换行符，用chomp能移除换行符，举例： #!/usr/bin/perl chomp($c=<STDIN>);  if($c eq "a"){ print "match\n"; } else{ print "

哈希表的定义：    %a = ();    定义哈希表%a, 并初始化为空。    %a = {"a"=>1, "b"=>2};    定义哈希表%a, %a中有两个键(key)和键值(value)的对应关系。哈希表的访问：    $a{"a"};    哈希表的访问类似于数组的访问，但是哈希表的索引是key。需要注意在访问哈希表中的元素时需要使用标量的引导符$。清空哈希表    undef %

Perl has two operators <=> and cmp, which are very useful when wishing to sort arrays. $a <=> $b returns -1 if $a is numerically lesser than $b, 1 if it's greater, and zero if they are equal. cmp does

比如，你需要从一个文件或者是从console输入一堆单词，你需要查看这堆单词里某些你需要的单词们出现了次数。我分别用数组和hash表来处理这种情况：我假设我是从console输入一堆单词的，并且我需要查出首字母大写的单词   数组版： #!/usr/bin/perl -w use strict; while(my $var = <STDIN>){ my @wordlist = (

原作者：Dave Cross 翻译者：sql (http://www.s8s8.net) 正文 让你的perl代码看起来更像perl代码，而不是像C或者BASIC代码，最好的办法就是去了解perl的内置变量。perl可以通过这些内置变量可以控制程序运行时的诸多方面。 本文中，我们一起领略一下众多内置变量在文件的输入输出控制上的出色表现。 行计数 我决定写这篇文章的一个原因就是，当我发现很多人都不知

Perl中的变量作用范围 local, my, our与全局变量 很 古老很古老以前......嗯，不用老到白垩纪，那时候的Perl是自由射击的。没有什么定义变量的说法，所有的变量都是全局变量，也不需要任何 定义就可以使用。后来就出现了local, 再后来出现了use strict 'vars'和my, 再后来又有了our......所以今天的Perl大陆就有了崇山巨岭，一些变量就被限制在盆地里，

Perl的历史 Perl ：Practical  Extraction  Report  Language,实用报表提取语言，于1986年，Larry  Wall创建，是一门解释性语言。（最初的作用是从文件中提取信息，并产生报表） 系统管理员们发现perl很适合Web编程，就利用Perl语言进行CGI编程。如今Perl 可以完成C语言所能做的一切事情。 （注： Common Gateway Int

这个变量很神奇。 @_ is the list of incoming parameters to a sub. So if you write a sub, you refer to the first parameter in it as $_[0], the second parameter as $_[1] and so on. And you can refer to $#_ as th

在perl中， join()和 split()的功能是相反的。 一.join函数   1.作用：把数组元素或者几个字符串通过分隔符连接成单个字符串   2.格式：join(DELIMITER，ARRAY或string[1,2,3...])   3.实例：#join $name="Tom"; $birth="01/02/86"; $addr="chengdu.sichuan"; $info=join

常量          在程序运行中，其值不能改变且为一定值的量称为常量。PERL的常量有两种：数字常量和字符串常量。、   标量：单件事物。数字，字符串 可以用操作符对标量进行操作，结果通常也是一个标量。   常量用途： 1．  给变量赋值。 2．  作参数传递给函数。 数字常量 数据标量： PERL里，总是按“双精度浮点数”来保存和运算。不存在整数。所谓整数，其实也是双精度浮点数。   Per

一、打开、关闭文件   语法为open (filevar, filename)，其中filevar为文件句柄，或者说是程序中用来代表某文件的代号，filename为文件名，其路径可为相对路径，亦可为绝对路径。     open(FILE1,"file1");     open(FILE1, "/u/jqpublic/file1");   打开文件时必须决定访问模式，在PERL中有三种访问模式：读、

Perl中的一个非常有用的函数是split - 把字符串进行分割并把分割后的结果放入数组中。这个函数使用规则表达式（RE），如果未特定则工作在$_变量上。 split函数可以这样 使用： $info = "Caine:Michael:Actor:14, Leafy Drive"; @personal = split(/:/, $info); 其结果是： @personal = ("Caine",

PERL中对SHELL命令的调用细节分析 本文将一步一步介绍为什么perl的system函数不能运行shell的builtin命令 ###################################################################### PERL中对SHELL命令的调用细节 在PERL开发中，通常可以用system函数或 ``操作符来执行系统命令，但注意对 al

    经常会在网上下载一些软件，而很多这些软件是由perl写的，在使用这些软件的过程中，会发现很多问题，我最经常碰到的就是缺少perl模块。而安装perl模块就成了经常需要的操作。     之前的安装方法是通过yum或下载tar包来进行安装，总会发现不尽人意，老是不易安装好。最后发现了cpan这个工具，Comprehensive Perl Archive Network，真是相见恨晚的，使用cp

某日，与公司海外推广部MM聊天。MM在与我一边聊天的同时，还一边处理着手头上的工作。于是，我好奇的问了一下MM的工作情况。她告诉我她现在正在处理一个excel文件，此文件中密密麻麻的记录着一些信息。有一列中完全是公司某一网站的的url,类似于这样 她说，她要逐个点击其中的url地址，并在IE中查看该url中下面项的值 当Wholesale price （如上图）所在行的us$后面值大于20时，就将

为了在第一时间知道这几天的天气状况（家里有baby，所以需要每天的天气状态），我参考网上和自己的一些想法，写了下面的脚本。 #!/usr/bin/perl use strict; use warnings; use URI; use Web::Scraper; use URI::Escape; use LWP::Simple; my $url = "http://www.tianqiyubao.o

 PHPIDS缺省支持的邮件报警存在一些不足之处： 1、对页面的访问速度有一定影响。 2、邮件发送以一条告警日志为单位，如果日志比较多的话，我们可能会收到上百封邮件。（可能有某个选项可以设置，但我没找到） 设计一个perl脚本来发送邮件，原理如下： 首先读取phpids的log文件（tmp/phpids_log.txt）,然后利用正则对日志内容进行简单的格式话，最后把格式化的内容发送出去。

 perl检测网站首页状态代码，随便写的，一起交流 #!/usr/bin/perl -w    use strict;  use LWP::UserAgent;  use Net::SMTP;  use POSIX qw/strftime/;    print <<EOF;  +--------------------------------------+  +----made by Henry

标量数据   chop():去掉最后一个字符。返回删桌的那个字符。     chomp():是去掉字符串中的最后一个特殊字符。返回1   $/   $INPUT_RECORD_SEPARTOR    输入记录分隔符 ############################# $char = "look this way!"; $/ = " this way!"; chomp($char); pri