Chinaunix首页 | 论坛 | 博客
  • 博客访问: 4109005
  • 博文数量: 626
  • 博客积分: 10
  • 博客等级: 民兵
  • 技术积分: 11080
  • 用 户 组: 普通用户
  • 注册时间: 2012-08-23 13:08
文章分类

全部博文(626)

文章存档

2015年(72)

2014年(48)

2013年(506)

分类: PERL

2013-11-07 17:15:43

 《写给Java开发者的10分钟Perl指南》

 原文见:http://www.programcreek.com/2012/09/10-minutes-perl-tutorial-for-java-developer/

 本文并非Java语言和Perl语言的比较文,而是为Java程序员写的快速Perl入门。下面介绍一些要点。

1、基础

与Java不同,Perl中没有main方法这样的入口点,要运行下面的Perl程序,比如:


# comment starts with "#"
# the name is hello.pl
print "Hello Perl!";
只需执行:
perl hello.pl

2、日期类型

Perl语言中的日期类型非常简单,只有3种类型:Scalar、Array和Hash。

Scalar类型即标量,是单个的值,它基本上是除了Array和Hash类型的所有一切。
Array类型是一个数组,可以包含不同类型的元素,比如它可以同时包含整数元素和字符串元素的数组。
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
b
d
如果想对数组排序,可以简单的使用sort函数,如下:
foreach my $aScalar (sort @anArray){
	print $aScalar."\n";
}

3、条件语句和循环语句

Perl语言的条件语句和循环语句有if、while、for、foreach等关键字,它们和Java语法中的对应关键字很相似。

下面的例子说明了这一点:


#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、正则表达式

要使用正则表达式,主要会用到2个函数:m和s。

下面的代码讲述了用正则表达式匹配字符串$str:


$str =~ m/program(creek|river)/
假设字符串$str的值为“programcreek”,上面的表达式返回true,可用作条件表达式或循环的条件。

6、值传递或引用传递

Perl程序中无需定义方法或函数,但是呢,定义方法或函数可以改进代码的质量,提高代码的重用性。因此,我们需要关心参数传递。
可以直接传递标量Scalar,但是当涉及到数组或Hash时,需引起注意。


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 );
Hash

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个字母的数组


my @charArray = ('a'..'z' );
my @twoCharArray = ('aa'..'zz');


阅读(3114) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~