欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2022-04-10 22:33:21
1.从基础开始 不像java,perl不需要“main”方法作为入口点。要运行一个简单的perl程序如下: 复制代码 代码如下:# comment starts w...

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分钟”,我还将根据评论持续更新本文。

原文见: