1.从基础开始
不像java,Perl不需要“main”方法作为入口点。要运行一个简单的Perl程序如下:
复制代码 代码如下:
# comment starts with "#"
# the name is hello.pl
print "Hello Perl!";
只需执行:
perl hello.pl
2. 日期类型
在Perl中的日期类型是非常简单,它有3种类型:标量,数组和Hash。
标是一个单值,它基本上可以是任何其他比数组或哈希。
数组是一个数组,可以包含不同类型的元素,如整数,字符串。
哈希基本上是像Java的HashMap中。
将下面的代码结合所有的使用情况。
复制代码 代码如下:
#claim a hash and assign some values
my %aHash;
$aHash{'a'}=0;
$aHash{'b'}=1;
$aHash{'c'}=2;
$aHash{'d'}=3;
$aHash{'e'}=4;
#put all keys to an array
my @anArray = keys (%aHash);
#loop array and output each scalar
foreach my $aScalar (@anArray){
print $aScalar."\n";
}
输出结果:
复制代码 代码如下:
e
c
a
d
如果你想对数组进行排序,你可以简单地使用类似下面的排序功能:
复制代码 代码如下:
foreach my $aScalar (sort @anArray){
print $aScalar."\n";
}
3. 条件、循环表达式
Perl为条件和循环语句准备了if, while, for, foreach等关键字,这与Java非常类似(switch除外)。
详情请见下面的代码:
复制代码 代码如下:
#if my $condition = 0;
if( $condition == 0){
print "=0\n";
}
elsif($condition == 1){
print "=1\n";
}
else{
print "others\n";
}
#while while($condition < 5){
print $condition;
$condition++;
}
for(my $i=0; $i< 5; $i++){
print $i;
}
#foreach my @anArray = ("a", 1, 'c');
foreach my $aScalar (sort @anArray){
print $aScalar."\n";
}
4.文件的读写
下面这个例子向我们展示了如何读写文件。这里请注意">"和""之间的区别,""在文件末尾追加内容,">"创建一个新的文件储存信息。
复制代码 代码如下:
#read from a file
my $file = "input.txt";
open(my $fh, "<", $file) or die "cannot open < $file!";
while ( my $aline = <$fh> ) {
#chomp so no new line character
chomp($aline);
print $aline;
}
close $fh;
# write to a file
my $output = "output.txt";
open (my $fhOutput, ">", $output) or die("Error: Cannot open $output file!");
print $fhOutput "something";
close $fhOutput;
5.正则表达式
Perl中有两种使用正则表达式的方法:m和s。
下面的代码在$str上应用了正则表达式。
复制代码 代码如下:$str =~ m/program<SPAN>(</SPAN>creek|river)/
如果$str的内容是“programcreek”,表达式将会返回true。这也可以被用于条件判断或循环。
6.传值/引用的语法
在Perl中没有必要定义方法/函数,但如果你这么做了,那将大大提高代码的模块化和可充用性。但我们需要对参数的传递非常小心。
你可以直接传递一个标量,但如果传递的是数组或哈希类就需要特别的当心。
数组:
复制代码 代码如下:
my @testArray = (1, 3, 2);
#In sub sub processArrayByReference($) {
my $arrayref = shift;
my @array = @$arrayref;
#...
}
#In sub processarray: sub processArrayByValue($){
my @array = @_;
#...
}
processArrayByValue(@testArray);
processArrayByReference( \@testArray );
哈系类:
复制代码 代码如下:
sub printHash($) {
my %hash = %{ shift() };
for my $key ( sort keys %hash ) {
my $value = $hash{$key};
print "$key => $value\n";
}
}
printHash(\%twoLettersCount);
7.一些实例
1).遍历字符串中的每个字符。
复制代码 代码如下:
my @lineCharArray = split('',$aline);
foreach my $character (@lineCharArray){
print $character."\n";
}
2).创建一个包含26个字母的数组。
你可以简单地实现这个功能并且无需循环26次。
复制代码 代码如下:
my @charArray = ('a'..'z' );
my @twoCharArray = ('aa'..'zz');
以上是第一个版本的“10分钟”,我还将根据评论持续更新本文。
原文见:http://www.programcreek.com/2012/09/10-minutes-perl-tutorial-for-java-developer/
Perl教程
《魔兽世界》大逃杀!60人新游玩模式《强袭风暴》3月21日上线
暴雪近日发布了《魔兽世界》10.2.6 更新内容,新游玩模式《强袭风暴》即将于3月21 日在亚服上线,届时玩家将前往阿拉希高地展开一场 60 人大逃杀对战。
艾泽拉斯的冒险者已经征服了艾泽拉斯的大地及遥远的彼岸。他们在对抗世界上最致命的敌人时展现出过人的手腕,并且成功阻止终结宇宙等级的威胁。当他们在为即将于《魔兽世界》资料片《地心之战》中来袭的萨拉塔斯势力做战斗准备时,他们还需要在熟悉的阿拉希高地面对一个全新的敌人──那就是彼此。在《巨龙崛起》10.2.6 更新的《强袭风暴》中,玩家将会进入一个全新的海盗主题大逃杀式限时活动,其中包含极高的风险和史诗级的奖励。
《强袭风暴》不是普通的战场,作为一个独立于主游戏之外的活动,玩家可以用大逃杀的风格来体验《魔兽世界》,不分职业、不分装备(除了你在赛局中捡到的),光是技巧和战略的强弱之分就能决定出谁才是能坚持到最后的赢家。本次活动将会开放单人和双人模式,玩家在加入海盗主题的预赛大厅区域前,可以从强袭风暴角色画面新增好友。游玩游戏将可以累计名望轨迹,《巨龙崛起》和《魔兽世界:巫妖王之怒 经典版》的玩家都可以获得奖励。
更新动态
- DzintraErliha-Dreamscape(2024)[24Bit-96kHz]FLAC
- 群星.1999-上华世纪国语总冠军4CD【上华】【WAV+CUE】
- 叶丽仪.1992-仙鹤神针电视剧原声音乐专辑【星传真】【WAV+CUE】
- 陈柏宇.2011-QUINQUENNIUM【SONY】【WAV+CUE】
- 《51首热门当红歌曲 十大顶级发烧女声 3CD》[WAV+CUE][1.6GB]
- 《赵传 深受摇滚迷青睐的台湾音乐人 约定》[WAV+CUE][320MB]
- 《庄心妍 实力唱将 发烧音乐精选集》[WAV+CUE][380MB]
- [音展纪念碟]2006年《TAA台湾第十六届国际HI-ENDHI-FI音响展》2cd[WAV]
- 中国音乐地图之听见西藏山歌牧歌酒歌2020[WAV分轨]
- 王宏伟2017-永远的红飘带[太平洋影音][WAV+CUE]
- 费翔.1997-NOW现在【第一中国】【WAV+CUE】
- 新格合唱团.1981-我唱你和2辑(滚石新格民歌系列)【新格】【WAV+CUE】
- 陈柏宇.2011-QUINQUENNIUM【SONY】【WAV+CUE】
- 雨果唱片-《金唛系列-蔷薇依韵琼瑶》WAV
- 陈百强《凝望(2012华纳LPCD45限量版)[DMI]》[WAV整轨]