#!/usr/bin/perl -w@array = qw(a b c d);foreach (@array) { print $_," ";}例子的作用就是定义一个数组并把其中的元素打印出来，这里需要注意的是foreach循环部分，foreach循环的标准格式应该是：foreach $ele...
分类：
其他好文 时间：
2014-10-11 00:42:14
阅读次数：
243
最近在实习，看着公司有些脚本是perl写，久闻perl处理文本还是很强大的，趁着周末扫了一般这本书~记录下了~
undef 默认未定义字符，perl里面没有NULL，defined($x)函数：如果参数为undef返回false
qw(cs phy geo) 类似于 （“cs”, "phy", "geo"）列表可以赋值给数组@array
数组操作符：pop,push操作末尾，sh...
分类：
其他好文 时间：
2014-08-03 18:07:25
阅读次数：
228
use Time::HiRes qw(time);use POSIX qw(strftime);my $t = time;my $date = strftime "%Y%m%d %H:%M:%S", localtime $t;$date .= sprintf ".%03d", ($t-int($t)...
分类：
其他好文 时间：
2014-07-22 22:57:34
阅读次数：
179
my $line; my $content; open (FN,"D:\\PerlDemo\\parse.xml") or die "not found $!"; while($line=){ next if $. < 5; last if $. >10; $content.=$line; } close(FN); print "$content \n"; my $K=; my @R =qw...
分类：
其他好文 时间：
2014-07-22 22:37:53
阅读次数：
225
官方网址：http://search.cpan.org/~stbey/Date-Calc-6.3/lib/Date/Calc.pod#___top use Date::Calc qw( Days_in_Year Days_in_Month Weeks_in_Year ...
分类：
其他好文 时间：
2014-06-28 21:46:03
阅读次数：
506
Perl数组的声明方式
Perl使用"@"符号声明一个数组：@array；
使用"()"或"qw()"声明数组中元素；
一个完整的声明方式为：
@array = (12,"123","abc",$var);......方法一
或者
@array = qw(12 123 abc); ............方法二
或者
@array = (1..10).................
分类：
其他好文 时间：
2014-06-16 18:50:39
阅读次数：
182
使用m//匹配//这是m//（模式匹配）的一种简写。同qw//操作一样，可以使用任何成对的分隔符。因此，可以使用m(fred), m, m{fred}, m[fred]，或者m,fred,, m!fred!, m^fred^，其它非成对的分隔符也可以不区分大小写：/iif(/yes/i) {#大小写...
分类：
其他好文 时间：
2014-06-15 20:27:15
阅读次数：
278
#include int main(void){int
num;scanf("%d",&num);int
ww,qw,gw,sw;ww=num/10000;qw=num%10000/1000;gw=num%10;sw=num%100/10;if(ww==gw&&qw==sw){printf("这个数...
分类：
其他好文 时间：
2014-06-04 16:36:42
阅读次数：
184
在qt开发时，碰到的问题，usb输入设备（鼠标，usb 电容屏等）上电后会自动分配input节点，比如usb鼠标插着上电后，自动分配到/dev/input/event0 mouse0，插拔一次后，节点会自动往后增加，变为/dev/input/event1mouse1
对于鼠标类型的设备，/dev/input/mouseX 的所有消息都会汇总到/dev/input/mice，因此，qt的QW...
分类：
系统相关 时间：
2014-05-08 10:56:54
阅读次数：
677
