#!/usr/bin/perl #In order to make the code more robust ,to start every program with the following lines use strict; use warnings; #basic syntax over print "Hello , world/n"; print 'hello , world/n'; p

perl 读文件 open(FILE,"filename.txt"); my $record; while($record=<FILE>) { print("file record is : $record/n"); } close(FILE); perl 写文件 覆盖写入 open(FILE,">filename.txt"); syswrite(FILE,"This is my write fi

在Perl中可以用open或者sysopen函数来打开文件进行操作，这两个函数都需要通过一个文件句柄（即文件指针）来对文件进行读写定位等操作。 open函数为例: 一、打开、关闭文件     open的返回值用来确定打开文件的操作是否成功，当其成功时返回非零值，失败时返回零，因此可以如下判断：     if (open(MYFILE, "myfile"))     {         # here

seek 设置文件的当前位置！ 当一个文件非常大时可以从指定位置读起。 seek FILEHANDLE,POSITION,WHENCE 成功返回真，失败返回假。 POSITION 是读入的新位置（字节）。 WHENCE有3个值，0表示新位置是POSITION,1表示当前位置加上POSITION，2表示文件尾加上POSITION 例如：从file.txt的12字节开始读起并打印出来。 open (F

直接上代码，具体效果可以执行代码来看看： #!/usr/bin/perl -w   ##Code Begin##############   use strict;     print "方法一：中间数组+keys和values函数法\n";   my %hash = ("a"=>1000,"b"=>2000,"c"=>3000

      这一阵经常在TED.com上听讲座，但有时候网络状态不好，只好将视频下载过来听，下载的mp4却不带字幕，TED上也没提供字幕下载链接，还好找到这个网站。         http://tedtalksubtitledownload.appspot.com/         将TED讲座的链接输进去，就能找到字幕。   ==================================

perl 的智能匹配操作符号根据需要自己决定如何比较两端操作数。   使用方法 下表是智能匹配操作符对不同操作数的处理方式   例子 匹配方式 %a ~~ %b 哈希的键是否一致 %a ~~ @b 至少 %a 中的一个键在列表@b中 %a ~~ /Fred/ 至少一个键匹配给定的模式 %a ~~ 'Fred' 哈希中某一指定键$a{Fred}是否存在 $a{Fred} @a ~~ @b 数组是否相

given语句 Perl中的given-when控制结构能够根据given的参数，执行某个条件对应的语句块，其与C语言中的switch语句类似。只不过更具有Perl的色彩。看看下面的例子，其从命令行中取出第一个参数，$ARGV[0]，然后依次走一遍when条件判断，看是否找到了Fred。每个when语句对应不同的处理方式，判断的条件从最宽松的开始测试： 1 2 3 4 5 6 7 use 5.01

#!/usr/bin/perl -w use DBI; my $count = 0; my $dbh = DBI->connect("DBI:mysql:database=clientInfo;host=192.168.1.22", "wuwu", "123456", {'RaiseError' => 1}); #统计总人数 my $countsth = $dbh->prepare("select

          参见该网页：(点击此处)

有如下三组代码用大小进行排序 17 1000 04 1.50 3.14159 -10 1.5 4 2001 90210 666 9 0 2 1 0 2001 42 -40 98.6 2.71828 传统的sort排序只能按照ascii排序 不能按照数字的大小进行排序 用如下代码进行排序 #!/usr/bin/perl while (<>) { push @numbers,split;       

用《Learning Perl》上的一段代码来说明实现： #!/usr/bin/perl -w   use strict;   foreach(1 .. 10){     print "Iteratin number $_.\n\n";     print "Please input the choice: last,

由于兴趣，决定提取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://ma

http://www.ibm.com/developerworks/cn/linux/theme/perl/index.html

  变量 一. 直接量---常量 perl中常量和其他语言例如C语言没什么太大区别。所以在下面指出一些与其他语言不相同的地方。 1.1 数字常量   在perl中可以表示八进制和十六进制。八进制以0打头，十六进制以0x打头。   例如 ＄a=010 ---八进制        ＄b=0x10---十六进制 为了不跟八进制的数字混淆，数字直接量均不以0打头。对于大数字，通常会加逗号或下划线加以区分p

列表和数组 数组跟C语言中有相同之处,但是处理起来更加灵活.而列表 C语言中是没有这个概念的. 一. 列表 首先我们来看一个列表的例子. 例如 {"abc",48,＄a,3.14} perl提供一个机制可以简便列表的写法----qw,上面的例子可以写成如下的形式: qw(abc 48 ＄a 3.14) 每个元素用空格分开,显然这样的写法就不适用于有空格的元素的列表.针对列表的元素在某一个范围时,p

操作符perl的操作符大部分跟C语言相同，所以下面还是介绍一些不相同的地方。一。 操作符1。乘幂 **例如 2**3 ----8乘幂不可以超过系统的表示范围否则报错。2。数字比较<=>例如 a<=>b若 a>b  返回值 1若 a=b 返回值 0若 a<b 返回值 -13。逻辑运算符 &之所以把它提出来讲是这个运算符不能应用于负整数，否则会把负数转换为无符号数。4。字串比较符号。lt   小于 　

流程控制程序perl中也有C语言中if，while等流程控制程序，但是细节上还是有所不同，另外perl中还存在unless和until一些语句。还有就是perl中是没有switch语句的.一 if语句与C语言中不同的有如下几点：1。 perl中采用elsif而不是C中的else if2。 perl中的真假情况如下数字0为假。空的字符串（“”）和字符串“0”为假。未定义值undef为假。其他东西均为

函数perl中的函数基本上跟C语言中相同，只是在声明和调用方式有些差别.没有C语言那么严格.一 声明和调用声明 sub function_name{}调用 do function_name     &function_name如果先声明则不用&     二 局部变量   my ＄a   my(＄a,＄b)   local(＄a)   其区别是：my定义的变量只在该子程序中存在；而local定义的变

 文件和文件夹一 打开/关闭文件    open(file_handle,"file_path")    close(file_handle)     二 读文件 语句＄line = <MYFILE>;从文件中读取一行数据存储到简单变 量＄line中并把文件指针向后移动一行。 语句@array = <MYFILE>;把文件的全部内容读入数组@array， 文件的每一行(含回车符)为@array的一

  格式化输出 在一个perl中可以有多个format。 一 打印的基本步骤 1、将系统变量＄~设成所要使用的格式       2、调用函数write      函数write将结果输出到标准输出文件STDOUT，我们也可以使它将结果  输出到任意其它的文件中。最简单的方法就是把文件变量作为参数传递给write      例如 write (MYFILE); 也可以通过如下方式      例如 s

  命令行工具debug可以帮助我们很好的review我们的代码。类似于VC中的 debug可以step by step的调试程序，同样可以设置断点。可以在debug 过程中改变某个变量的值。例如 DB<1> ＄a=5 另外如果想查看某个变量的值可以用print命令 DB<1>print ＄a 一 开始debug及相关的指令 perl -d script_name 如果你的脚本的语法或函数拼写没有

     特殊变量一 缺省变量和参数 变量名  英文名称  说明  ＄_  ＄ARG  全局标量充当函数参数以及模式寻找空 间的缺省变量 默认的输入/输出和格式匹配空间  @_  n/a  存储数组参数，访问方式: ＄_[num]  传给子程序的参数列表 @ARGV  n/a  脚本的命令行参数  ＄ARGV  n/a  当从空文件头<>读取时，它包含了当前文件的文件名  从默认的文件句柄中读取时

    模块  这里的模块感觉上相当于一个类库。我们可以调用这个 类库里的函数。我们也称之为package即包。 一 如何使用模块  使用如下的命令： use MODULE_NAME   例如  use Cwd 位置随便放,不过就像C语言中一样最好是放在程序的最开始. 对模块中某个函数的引用   $MODULE_NAME::FUNCTION_NAME     例如 $file::copy  这个有

2011-02-17 wcdj   (1) 模式分组 (2) 择一匹配 (3) 字符集 (4) 字符集简写 (5) 反义简写 (1) 模式分组 圆括号 —— 用来分组，也是元字符。 print "模式分组/n"; $_ = "wcdj"; if (/wcdj+/) {# +表示>=1个j字符 print "It matched!/n";# 输出此句 } else { print "n

perl中的DBI（数据库接口，Database Interface）是个对数据库操纵很强大的东西，这次正好工作中用到了他的一点皮毛所以做个记录。 具体情况就是插入多条记录 #!/usr/bin/perl use DBI; open AA,"c1"; my $dbname="sverlog"; my $location="localhost"; my $port="3306"; my $datab

 在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');

perl在网页中抓取图片 binmode     今天在天涯上闲逛的时候，突然一个网页上面楼主贴了很多图片，都是满漂亮的，于是就想把这些图片都下载到本地的电脑上。以前用perl的LWP::Simple模块主要是提前里面的一些文本信息，基本上没碰到过什么障碍，不过这次下载图片可是第一次。利用以前下载文本信息的程序处理时，发现得到的图片内容都是二进制类型的，也就是这些get($url)出的结果是二进制

官方的例子：  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"}]

open操作 4个注意事项： （1）使用三参数的open;（2）使用my声明的局部变量代替裸文件句柄；（3）追加是">>"而不是">";（4）每个open都要判断执行结果（or die）。