为 Java 程序员准备的 10 分钟 Perl 教程

来源：互联网发布：网络电视能看新闻吗编辑：程序博客网时间：2024/05/16 07:17

英文原文：10 minutes Perl tutorial for Java developer

这10分钟教程并不是Java和Perl的比较。目标是探索作为Java开发人员如何快速学习Perl。以下是一些从我的角度来看的关键笔记。

1.从基础开始

不像java，Perl不需要“main”方法作为入口点。要运行一个简单的Perl程序如下:

1# comment starts with "#"
2# the name is hello.pl
3print "Hello Perl!";

1perl hello.pl

2. 日期类型

在Perl中的日期类型是非常简单，它有3种类型：标量，数组和Hash。

标是一个单值，它基本上可以是任何其他比数组或哈希。
数组是一个数组，可以包含不同类型的元素，如整数，字符串。

哈希基本上是像Java的HashMap中。

将下面的代码结合所有的使用情况。

01#claim a hash and assign some values
02my %aHash;
03$aHash{'a'}=0;
04$aHash{'b'}=1;
05$aHash{'c'}=2;
06$aHash{'d'}=3;
07$aHash{'e'}=4;
08  
09#put all keys to an array
10my @anArray = keys (%aHash);
11  
12#loop array and output each scalar
13foreach my $aScalar (@anArray){
14    print $aScalar."\n";
15}

输出结果：

1e
2c
3a
4b
5d

如果你想对数组进行排序，你可以简单地使用类似下面的排序功能：

1foreach my $aScalar (sort @anArray){
2    print $aScalar."\n";
3}

3. 条件、循环表达式

Perl为条件和循环语句准备了if, while, for, foreach等关键字，这与Java非常类似（switch除外）。

详情请见下面的代码：

01#if my $condition = 0;
02if( $condition== 0){
03    print"=0\n";
04}
05elsif($condition== 1){
06    print"=1\n";
07}
08else{
09    print "others\n";
10}
11  
12  
13#while while($condition < 5){
14    print $condition;
15    $condition++;
16}
17for(my$i=0; $i< 5; $i++){
18    print $i;
19}
20  
21#foreach my @anArray = ("a", 1, 'c');
22    foreach my $aScalar (sort@anArray){
23        print $aScalar."\n";
24}

4.文件的读写

下面这个例子向我们展示了如何读写文件。这里请注意">"和">>"之间的区别，">>"在文件末尾追加内容，">"创建一个新的文件储存信息。

01#read from a file
02my $file= "input.txt";
03open(my $fh, "<", $file) or die"cannot open < $file!";
04while ( my $aline = <$fh> ) {
05    #chomp so no new line character
06    chomp($aline);
07    print $aline;
08}
09 
10close $fh;
11  
12# write to a file
13my $output= "output.txt";
14open (my$fhOutput, ">", $output) or die("Error: Cannot open $output file!");
15print $fhOutput"something";
16close $fhOutput;

5.正则表达式

Perl中有两种使用正则表达式的方法：m和s。

下面的代码在$str上应用了正则表达式。

1$str =~ m/program<span>(</span>creek|river)/

如果$str的内容是“programcreek”，表达式将会返回true。这也可以被用于条件判断或循环。

6.传值/引用的语法

在Perl中没有必要定义方法/函数，但如果你这么做了，那将大大提高代码的模块化和可充用性。但我们需要对参数的传递非常小心。

你可以直接传递一个标量，但如果传递的是数组或哈希类就需要特别的当心。

数组：

01my @testArray = (1, 3, 2);
02  
03#In sub sub processArrayByReference($) {
04    my $arrayref= shift;
05    my @array    = @$arrayref;
06    #...
07}
08  
09#In sub processarray: sub processArrayByValue($){
10    my @array = @_;
11    #...
12}
13 
14processArrayByValue(@testArray);
15processArrayByReference( \@testArray );

哈系类：

1subprintHash($) {
2my %hash= %{ shift() };
3for my $key ( sort keys %hash) {
4    my $value= $hash{$key};
5    print "$key => $value\n";
6}
7}
8  
9printHash(\%twoLettersCount);

7.一些实例

1).遍历字符串中的每个字符。

1my @lineCharArray= split('',$aline);
2foreach my $character(@lineCharArray){
3    print $character."\n";
4}

2).创建一个包含26个字母的数组。

你可以简单地实现这个功能并且无需循环26次。

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