1.從基礎(chǔ)開(kāi)始
不像java，Perl不需要“main”方法作為入口點(diǎn)。要運(yùn)行一個(gè)簡(jiǎn)單的Perl程序如下:
復(fù)制代碼 代碼如下:
# comment starts with "#"
# the name is hello.pl
print "Hello Perl!";
只需執(zhí)行：
perl hello.pl
2. 日期類型
在Perl中的日期類型是非常簡(jiǎn)單，它有3種類型：標(biāo)量，數(shù)組和Hash。
標(biāo)是一個(gè)單值，它基本上可以是任何其他比數(shù)組或哈希。
數(shù)組是一個(gè)數(shù)組，可以包含不同類型的元素，如整數(shù)，字符串。
哈?；旧鲜窍馢ava的HashMap中。
將下面的代碼結(jié)合所有的使用情況。
復(fù)制代碼 代碼如下:
#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";
}
輸出結(jié)果：
復(fù)制代碼 代碼如下:
e
c
a
d
如果你想對(duì)數(shù)組進(jìn)行排序，你可以簡(jiǎn)單地使用類似下面的排序功能：
復(fù)制代碼 代碼如下:
foreach my $aScalar (sort @anArray){
print $aScalar."\n";
}
3. 條件、循環(huán)表達(dá)式
Perl為條件和循環(huán)語(yǔ)句準(zhǔn)備了if, while, for, foreach等關(guān)鍵字，這與Java非常類似（switch除外）。
詳情請(qǐng)見(jiàn)下面的代碼：
復(fù)制代碼 代碼如下:
#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.文件的讀寫
下面這個(gè)例子向我們展示了如何讀寫文件。這里請(qǐng)注意">"和">>"之間的區(qū)別，">>"在文件末尾追加內(nèi)容，">"創(chuàng)建一個(gè)新的文件儲(chǔ)存信息。
復(fù)制代碼 代碼如下:
#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.正則表達(dá)式
Perl中有兩種使用正則表達(dá)式的方法：m和s。
下面的代碼在$str上應(yīng)用了正則表達(dá)式。
復(fù)制代碼 代碼如下:
$str =~ m/programSPAN>(/SPAN>creek|river)/
如果$str的內(nèi)容是“programcreek”，表達(dá)式將會(huì)返回true。這也可以被用于條件判斷或循環(huán)。
6.傳值/引用的語(yǔ)法
在Perl中沒(méi)有必要定義方法/函數(shù)，但如果你這么做了，那將大大提高代碼的模塊化和可充用性。但我們需要對(duì)參數(shù)的傳遞非常小心。
你可以直接傳遞一個(gè)標(biāo)量，但如果傳遞的是數(shù)組或哈希類就需要特別的當(dāng)心。
數(shù)組：
復(fù)制代碼 代碼如下:
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 );
哈系類：
復(fù)制代碼 代碼如下:
sub printHash($) {
my %hash = %{ shift() };
for my $key ( sort keys %hash ) {
my $value = $hash{$key};
print "$key => $value\n";
}
}
printHash(\%twoLettersCount);
7.一些實(shí)例
1).遍歷字符串中的每個(gè)字符。
復(fù)制代碼 代碼如下:
my @lineCharArray = split('',$aline);
foreach my $character (@lineCharArray){
print $character."\n";
}
2).創(chuàng)建一個(gè)包含26個(gè)字母的數(shù)組。
你可以簡(jiǎn)單地實(shí)現(xiàn)這個(gè)功能并且無(wú)需循環(huán)26次。
復(fù)制代碼 代碼如下:
my @charArray = ('a'..'z' );
my @twoCharArray = ('aa'..'zz');
以上是第一個(gè)版本的“10分鐘”，我還將根據(jù)評(píng)論持續(xù)更新本文。
原文見(jiàn)：http://www.programcreek.com/2012/09/10-minutes-perl-tutorial-for-java-developer/
您可能感興趣的文章:- perl批量查詢ip歸屬地的方法代碼
- perl中my和our的區(qū)別分析
- 解析posix與perl標(biāo)準(zhǔn)的正則表達(dá)式區(qū)別
- Perl中的正則表達(dá)式介紹
- Perl內(nèi)置特殊變量總結(jié)
- Perl Sort函數(shù)用法總結(jié)和使用實(shí)例
- Perl調(diào)用shell命令方法小結(jié)
- perl 文件測(cè)試操作符匯總
- Perl使用nginx FastCGI環(huán)境做WEB開(kāi)發(fā)實(shí)例
- perl查找進(jìn)程PID的例子
- Perl一句話命令行編程中常用參數(shù)總結(jié)
- cpanm安裝及Perl模塊安裝教程
- Windows和Linux系統(tǒng)下perl連接SQL Server數(shù)據(jù)庫(kù)的方法
- 7個(gè)perl數(shù)組高級(jí)操作技巧分享
- Perl函數(shù)(子程序)學(xué)習(xí)筆記
- Perl Substr()函數(shù)及函數(shù)的應(yīng)用
