全部博文(626)
分类: PERL
2013-11-07 17:15:43
原文见:http://www.programcreek.com/2012/09/10-minutes-perl-tutorial-for-java-developer/
本文并非Java语言和Perl语言的比较文,而是为Java程序员写的快速Perl入门。下面介绍一些要点。
与Java不同,Perl中没有main方法这样的入口点,要运行下面的Perl程序,比如:
# comment starts with "#" # the name is hello.pl print "Hello Perl!";只需执行:
perl hello.pl
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"; }
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"; }
下面的例子说明了如何从文件中读取内容,以及如何向文件写入内容。
要注意“>”和“>>”的不同,前者是创建新文件,后者是向文件添加内容。
#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;
要使用正则表达式,主要会用到2个函数:m和s。
下面的代码讲述了用正则表达式匹配字符串$str:
$str =~ m/program(creek|river)/假设字符串$str的值为“programcreek”,上面的表达式返回true,可用作条件表达式或循环的条件。
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);
1)通过字符串的每个字符进行循环
my @lineCharArray = split('',$aline); foreach my $character (@lineCharArray){ print $character."\n"; }
my @charArray = ('a'..'z' ); my @twoCharArray = ('aa'..'zz');