perl語言入門
linux系統一般自帶perl,可以在命令列執行。
1.Hello,World
#!/usr/bin/perl -w
print ("hello,world!
");
#print "hello,world!
"; 說明：
（1）第一行指定直譯器，-w參數列示提示警告（或者使用use strict命令，執行更嚴格的檢查）；
（2）第二行輸出hello, world!；
（3）如果習慣c的函式方式，print的引數可以打括號；
（4）第三行是註釋，註釋以#打頭；
（5）如果習慣shell的方式，print的引數可以沒有括號；
（6）雙引號內可以使用轉義字元；
不妨設檔名為helloworld.pm
程式的執行方法為：
（1）perl helloworld.pm
（2）chmod 755 helloworld.pm && ./helloworld.pm2.常量
2.1數字
（1）Perl內部總按照“雙精度浮點數”儲存數字並執行運算；
（2）0377=>八進位制；0xFF=>十六進位制；
2.2字串
（1）單引號表示字串，不轉義；
（2）雙引號表示字串，轉義且解釋變數；
2.3字串操作符
（1）拼接操作符：“.”=>拼接字串；
（2）重複操作符：“x”=>一個字串重複多次；
#!/usr/bin/perl -w
print ("hello,"."world!
");
print ("hello " x 3);輸出結果是：
hello,world!
hello hello hello最後要說明一點，Perl是弱型別語言，字串和數字會相互轉化，這一點和php一樣。
3.變數
（1）變數以$開頭，後接一個標示符；
（2）如何用變數獲取使用者輸入？
使用，它獲取使用者的輸入（一般以換行結束），可以使用chomp去除結尾的換行符。
#!/usr/bin/perl -w
$count = 0;
while($count<10)
{
chomp($input = <STDIN>);
print($input);
$count++;
} （3）未定義變數
未定義的變數會賦予undef值，它既不是數字，也不是字串；
它有可能被當做數字0使用；
使用define函式可以知道一個變數是否被定義；
#!/usr/bin/perl -w
$var = undef;
print($var);
if(defined($var))
{
print("defined!
");
}
else
{
print("undefined!
");
}
$var++;
print($var);它的輸出是：
Use of uninitialized value in print at undef.pm line 3.
undefined!
1（4）變數的作用域
my和our可以指定變數的作用域
my指定為區域性作用域；
our指定為全域性作用域（預設為our）；
#!/usr/bin/perl -w
our $g_one = "global_one
";
$g_two = "global_two
";
{
my $local_one = "local_one
";
print($g_one);
print($g_two);
print($local_one);
}
print($g_one);
print($g_two);
print($local_one); 輸出為：
global_one
global_two
local_one
global_one
global_two
Use of uninitialized value in print at our_my.pm line 13.4.陣列與列表
4.1陣列
和c的陣列使用非常類似：
$array[0]=”a0″;
$array[1]=”a1″;
$array[2]=”a2″;
4.2列表
圓括號內的一系列值，構成列表：
(1, 2, 3)
(“hello”, 4)
(“hello”, “world”, “yes”, “no”)
qw(hello world yes no)
(1..10)
說明：
（1）第一行，列表元素為1,2,3；
（2）第二行，列表元素為一個字串，一個數字；
（3）第三行，列表元素為4個字串，好多引號和逗號啊；
（4）第四行，qw操作符，用來建立字串列表，而不用輸入這麼多引號和逗號，效果同（3）；
（5）範圍操作符“..”，表示一個範圍，從左至右連續加一。
列表的賦值：
($v1, $v2, $v3) = qw(yes i am);
整個列表的引用，@操作符：
@list = qw(yes i am);
@none = ();
@huge = (1..5);
@stuff = (@list, @none, @huge);
pop和push操作符：
（1）pop彈出列表末端元素；
（2）push向列表末端壓入元素；
shift和unshift操作符：
（1）shift移出列表首部元素；
（2）unshift向列表首部壓入元素；
列表的輸出：
（1）列表輸出，只輸出列表，元素間不含空格；
（2）列表的字串化輸出，輸出列表，元素間加入空格；
（3）foreach控制結果，可以依次取得列表中各個元素
#!/usr/bin/perl -w
@list = qw(yes i am);
@none = ();
@huge = (1..5);
@stuff = (@list, @none, @huge);
$pop_last = pop(@stuff);
print($pop_last);
push(@stuff, "hello");
$shift_first = shift(@stuff);
print($shift_first);
unshift(@stuff, "world");
print(@stuff);
print("@stuff");
$element=undef;
foreach $element (@stuff)
{
print("$element!
");
} 輸出：
5
yes
worldiam1234hello
world i am 1 2 3 4 hello
i!
am!
1!
2!
3!
4!
hello!4.3預設變數$_
該使用變數的地方，如果省略變數，則會使用預設變數$_。
#!/usr/bin/perl -w
$_="hello,world！";
print(); 輸出是：
hello,world！5.函式
5.1函式定義與呼叫
（1）定義函式的關鍵字是sub；
（2）函式呼叫的關鍵字是&；
（3）可用return顯示返回，也可用一個數字隱式返回
#!/usr/bin/perl
$num=0;
sub sumAdd
{
$num+=1;
print("$num
");
#return $num; # 顯示返回
$num; # 隱式返回
}
&sumAdd;
&sumAdd;
print(&sumAdd); 執行結果為：
1
2
3
35.2函式的引數
（1）呼叫函式時可直接帶引數列表；
（2）函式定義處使用“預設變數”獲取引數列表；
#!/usr/bin/perl -w
sub max
{
return ($_[0]>$_[1]?$_[0]:$_[1]);
}
$big=20;
$small=10;
print(&max($big,$small)); 輸出為：
206.程式輸入輸出
上文已經介紹過標準輸入，下面介紹其他幾種常見的輸入輸出。
6.1Unix工具輸入輸出：<>
<>提供類似於Unix工具輸入輸出的功能，它提供的功能能夠很好的和cat/sed/awk/sort/grep等工具結合使用。
#!/usr/bin/perl -w
use strict;
while(<>)
{
chomp();
print("$_!!!
");
} 該指令碼的功能，是在輸入每行後面加上!!!，它幾處使用到了預設變數。
不妨設檔名為diamond.pm
不妨設hello.txt中有三行資料，分別是111,222,333
執行步驟：
（1）chmod 755 diamond.pm
（2）cat hello.txt | ./diamond.pm | cat
輸出結果：
111!!!
222!!!
333!!!
6.2格式化輸出：printf
#!/usr/bin/perl -w
$int_var = 2011;
$str_var = "hello,world";
printf("%d
%s
",$int_var,$str_var);輸出結果為：
2011
hello,world6.3檔案輸入輸出
Perl保留了6個檔案控制程式碼：STDIN/STDOUT/STDERR/DATA/ARGV/ARGVOUT
上述6.1中的程式還能這麼執行：
./diamond.pm out.txt
則輸出結果會重定向到out.txt中
輸入輸出到檔案中中，需要開啟、使用、關閉檔案控制程式碼
（1）開啟檔案控制程式碼：
open LOG, “>>log.txt”;
open CONFIG, ” （2）關閉檔案控制程式碼：
close LOG;
close CONFIG;（3）使用檔案控制程式碼：
print LOG (“hello,world!
”);
print STDERR (“yes i am!
”);
while()
{
chomp();
…
}也可以使用select關鍵字：
print(“to stdout1!”);
select LOG;
print(“to log1″);
print(“to log2″);
select STDOUT;
print(“to stdout2!”);#!/usr/bin/perl -w
$input_file = "hello.txt";
$output_file = "out.txt";
open INPUT, "<$input_file"; open OUTPUT, ">>$output_file";
while(
<input type="text">)
{
chomp();
print OUTPUT ("$_!!!
");
}
close OUTPUT;
close INPUT; 說明：他的功能和之前的diamond.pm是一樣的。
7.雜湊hash
7.1雜湊的存取
$key=”am”;
$hash_one{“yes”} = 3;
$hash_one{“i”} = 1;
$hash_one{$key} = 5;
print($hash_one{“am”});
$value = $hash_one{“hello”}; # undef7.2雜湊的引用
要引用整個雜湊，使用%操作符。
%hash_one = (“hello”,5,”world”,5);
print ($hash_one{“hello”});
%hash_two = %hash_one;
7.3雜湊的鬆綁
雜湊可以轉化為鍵值列表，稱為雜湊的鬆綁，轉化後不保證鍵的順序，但值一定在鍵的後面。
#!/usr/bin/perl -w
$input_file = "hello.txt";
$output_file = "out.txt";
open INPUT, "<$input_file"; open OUTPUT, ">>$output_file";
while(
<input type="text">)
{
chomp();
print OUTPUT ("$_!!!
");
}
close OUTPUT;
close INPUT; 輸出結果為：
5
yes 3 am 2 hello 5 world 5 i 17.4雜湊的反轉
建立值對應鍵的反轉雜湊。
%hash_reverse = reverse(%hash_one);
只有在鍵值一一對應的情況下才湊效，否則會有無法預期的覆蓋發生。
7.5雜湊的美觀賦值
雜湊的美觀賦值使用=>符號。
%hash_one = (“hello”,5,”world”,5,”yes”,3,”i”,1,”am”,2);
上面這種賦值方式很容易搞錯，特別是鍵值都是字串的時候。
%hash_one = (
“hello” => 5,
“world” => 5,
“yes” => 3,
“i” => 1,
“am” => 2,
);美觀賦值，是不是看起來更美觀，更容易區分哈什的鍵值呢。
7.6雜湊的遍歷
（1）keys和values函式能返回所有鍵與值的列表，但列表內順序不保證。
@k = keys(%hash_one);
@v = values(%hash_one);
（2）each函式能一一遍歷雜湊，返回鍵值對，非常適合於while等迴圈；
while(($key, $value) = each(%hash_one))
{
…
}
示例程式碼：
#!/usr/bin/perl -w
%hash_one = (
"hello" => 5,
"world" => 5,
"yes" => 3,
"i" => 1,
"am" => 2,
);
@k = keys(%hash_one);
@v = values(%hash_one);
print("@k
");
print("@v
");
$key = undef;
$value = undef;
while(($key, $value) = each(%hash_one))
{
print("$key=>$value
");
} 輸出結果為：
yes am hello world i
3 2 5 5 1
yes=>3
am=>2
hello=>5
world=>5
i=>17.7雜湊的查詢與刪除
（1）查詢一個鍵是否存在，使用exists函式；
（2）刪除一個鍵，使用delete函式；
#!/usr/bin/perl -w
%hash_one=(
"yes" => 3,
"i" => 1,
"am" => 2,
);
delete($hash_one{"yes"});
if(exists($hash_one{"yes"}))
{
print($hash_one{"yes"});
} 結果什麼也不輸出。
8.流程控制*（本節可跳過，都是些花哨的用法）
除了各語言常用的if/esle，for，while等流程控制外，Perl還有一些特有的控制語句，更人性化。
（1）unless控制結構
作用效果類似於if not，無效率上提升，只是使表達更自然，程式碼更容易理解。
（2）until控制結構
作用效果類似於while not
（3）條件修飾
判斷條件可以直接寫在語句的後面，以增加可讀性（habadog注：這是鬼扯）。
print (“$n”) if $n < 0; $i *= 2 until $i > 1024;
&sumAdd($_) foreach @num_list;（4）裸控制結構
只有一個花括號的結構，往往用來限制作用域，在各語言中都很常見。
{
$a = 1;
…
}
# $a失效了（5）last控制結構
相當於c中的break，立刻終止迴圈；
（6）next控制結構
相當於c中的continue，立刻開始下一次迴圈；
（7）redo控制結構
…獨有的，重新開始本次迴圈；
while(1)
{
# 跳到這裡
print (“hello”);
redo;
}9.高階特性
神奇的Perl還有正則、module、檔案、字串、智慧匹配、程式管理、執行緒支援等高階特性，就不在入門手冊裡介紹了。
相關文章
- Perl語言學習(四)Perl控制結構
- c語言入門C語言
- Prolog 語言入門教程
- R語言快速入門R語言
- Go語言快速入門Go
- Dart 語言入門 （四）Dart
- 【R語言入門】R語言環境搭建R語言
- ChainDesk : Go 語言入門指南AIGo
- R語言的入門教程R語言
- [翻譯] Go 語言入門Go
- C語言入門基礎C語言
- Dart 語言極簡入門Dart
- go語言快速入門教程Go
- [ Skill ] Cadence Skill 語言入門
- 1137: 分水餃(語言入門)
- 【Go語言入門系列】（八）Go語言是不是面嚮物件語言？Go物件
- Dart 語言基礎入門篇Dart
- GO 語言快速開發入門Go
- Go 語言入門教程：變數Go變數
- java語言的入門介紹Java
- Dart程式語言入門學習Dart
- 《C 語言入門教程》釋出了
- 還記得這門古老的程式語言麼，送你一份perl書單！
- 【Go 語言入門專欄】Go 語言的起源與發展Go
- 自然語言處理NLP快速入門自然語言處理
- C語言入門很簡單pdfC語言
- R語言入門與資料分析R語言
- C++語言菜鳥快速入門C++
- golang 快速入門 [3]-go 語言 helloworldGolang
- Go 語言基準測試入門Go
- Go語言程式設計快速入門Go程式設計
- Rust入門系列之語言特性 - 1Rust
- Go語言快速入門筆記01Go筆記
- 入門輸出Hello World!——C語言C語言
- 如何入門GO語言？這份GO語言超詳細入門教程你值得擁有-千鋒Go
- Perl常用語法
- Python語言如何入門？新手入門教程限時免費領Python
- [C語言] 第一章|C語言入門第一課C語言