本月博客排行
-
第1名
龙儿筝 -
第2名
lerf -
第3名
fantaxy025025 - johnsmith9th
- zysnba
- xiangjie88
年度博客排行
-
第1名
青否云后端云 -
第2名
宏天软件 -
第3名
gashero - wy_19921005
- vipbooks
- benladeng5225
- e_e
- wallimn
- javashop
- ranbuijj
- fantaxy025025
- jickcai
- zw7534313
- qepwqnp
- 解宜然
- ssydxa219
- zysnba
- sichunli_030
- sam123456gz
- 龙儿筝
- arpenker
- tanling8334
- kaizi1992
- gaojingsong
- xpenxpen
- jh108020
- wiseboyloves
- ganxueyun
- xyuma
- xiangjie88
- wangchen.ily
- Jameslyy
- luxurioust
- lemonhandsome
- mengjichen
- jbosscn
- zxq_2017
- lzyfn123
- nychen2000
- forestqqqq
- wjianwei666
- ajinn
- zhanjia
- Xeden
- hanbaohong
- java-007
- 喧嚣求静
- kingwell.leng
- mwhgJava
- lich0079
最新文章列表
perl 小箭头的使用:->
转:
http://blog.sina.com.cn/s/blog_9da70e9c010109v7.html
-> 有两种用法,都和解引用有关。
第一种用法,就是解引用。
根据 -> 后面跟的符号的不同,解不同类型的引用,
->[] 表示解数组引用,->{} 表示解散列引用,->() 表示解子程序引用。
例子:
$arr_ref = @array;
$a ...
PERL的默认变量$_的使用
涉及到Scalar类型参数的地方,均可以省略变量的声明。PERL会使用默认变量$_
例如:
chomp
while(<>)
print
split(/ /, )
这种不显式声明变量的语句,在PERL中等价于下列:
chomp $_
while($_=<>)
print $_
split(/ /, $_)
学习正则表达式
《学习正则表达式》
基本信息
原书名:Introducing regular expressions
作者: (美)Michael Fitzgerald
译者: 王热宇
丛书名: 图灵程序设计丛书
出版社:人民邮电出版社
ISBN:9787115311498
上架时间:2013-3-31
出版日期:2013 年4月
开本:16开
页码:1
版次:1-1
所属分类:计算机 ...
perl在一个文件里搜索一个pattern
perl在一个文件里搜索一个pattern
#!/usr/bin/perl
open FH,'< ./input.file';
@lines = <FH>;
foreach $line (@lines)
{
print $line if $line =~ m/pattern/;
}
[perl]数据相关
perl变量:
$a 代表变量a
@a 代表数组a
数组的增删改查如下:
@a=("1" , "2" , "3");
可以如下表示:
@a=qw( 1 2 3 );
1-2操作都是针对数组的末端
1.取出数组最后一个元素:
@array=5..9;
$fred=pop(@array);
此时fred=9,@array=5..8;
2 ...
perl-opengl多边形近似球体
#!/usr/bin/perl -w
use strict;
use warnings;
use OpenGL qw/ :all /;
use OpenGL::Config;
glutInit();
glutInitDisplayMode(GLUT_RGB|GLUT_SINGLE);
glutInitWindowPosition(100,100);
glutIn ...
perl-opengl示例程序
#!/usr/bin/perl -w
use strict;
my $stat = `perl -v`;
our $IS_ACTIVEPERL = ($stat =~ m|ActiveState|s);
our $PERL_VERSION = $^V;
$PERL_VERSION =~ s|^v||;
use OpenGL qw/ :all /;
use OpenGL::Co ...
关于Perl的state
state的定义: 使用state操作符来声明变量,可以在子程序的多次调用期间保留变量之前的值,并将变量的作用域局限于子程序内部。
注意:使用state操作符时,一定要加上版本限制use 5.010,否则会失效.
How to invoke shell in perl and how to capture the error if any?
http://www.perlmonks.org/?node_id=57193
system("wc -l");
Will call the given command and return the return value of that command. This is usually not what you want, because most of the times ...
Perl Idioms Explained - my $string = do { local $/; <FILEHANDLE> };
http://www.perlmonks.org/index.pl?node_id=287647
open FILEHANDLE, 'somefile.txt' or die $!;
my $string = do { local $/; <FILEHANDLE> };
The above idiom is a consise way to "slurp" the ...
使用perl MIME::Lite模块发送html格式邮件
发现N久没写博文了,有什么笔记也直接记到evernote里了,也不知这是好习惯还是坏习惯鸟~
记得在哪看过说,perl语言精髓是达到一个目的可以有很多种方法。
这话说得挺对的,因为就光发送邮件,你也会发现TM方法太多了,还得google一下选个比较好的方法
最后选了使用MIME::Lite模块,感觉挺强大的,上手也快
代码如下
sub mail_list{
...
perl的多线程脚本示例
#!/usr/bin/perl -w
use strict;
use Data::Dumper;
use POSIX;
use Getopt::Long;
use threads ('exit' => 'threads_only');
use List::Util 'shuffle';
use Thread::Semaphore;
use threads::shared;
...
使用XML::Simple来读写XML文件
有时对于一个XML配置文件需要简单的将其load到内存生成perl的data structure,然后做了相应改动之后再写到文件中去, 用XML::Simple就比较方便。
但是在使用的过程中发现如果不小心很容易将原文件的结构跟最后dump出去的文件的结构变得不一致,此时要注意使用options。
以下使用example:
my $xml = XML::Simple->new();
my ...
PERL命令行下执行
1. 命令行下交互:ctrl + D,然后回车
perl
print "Hello, world!";
(或多行代码)
(ctrl+d, enter) 即看到结果:Hello, world!
2. perl xx.pl
编辑脚本文件xx.pl,然后打开cmd,进入当前目录:perl xx.pl。
或是在当前目录下写一个批处理文件(runxx. ...