Perl的Hello World(以前的)

Perl的Hello World

Perl的原文:

perl是”Practical Extraction and Report Language”(實用性萃取及報表語言)

Perl的目的:

對程式設計師來說,常會遇到許多工作,雖然看似平常,但卻很難用 c 或其它unix常用語言寫程式解決。要不然,就是本身不適合用shell,或在可攜性上大有問題。協助程式設計師解決這樣的問題,就是Perl的設計理念。

Perl的第一行程式:

Explain

Hello,World

第一行表是它是個Perl程式

這裡我們用了-w,此時perl會對任何可能發生的潛在危險發出警告訊息

#! /usr/bin/perl/ -w

print (“Hello,world!\n”); (\n是換行符號)

有時print和其它函式會用「有括號」的方式呼叫,有時沒有。其實規則很簡單:在perl裡,所有的內建函式呼叫時都不需括號。有些甚至禁用;因此,你可以看情況決定要不要用。

Perl的執行過程:

當執行這段程式時,kernel會先載入perl解譯器,對整個程式(包括第一行註解)進行語意分析,然後執行編譯過的機器碼。之後,perl行程(process)會結束,並傳給shell成功執行的返回值。

怎麼來執行perl?

在現行的unix的系統下,幾乎都有perl的直譯器。在目錄下打 ./xxx (檔名)就可以執行了。

以下是另一段程式: Q:純量變數(scalar variable)=>是存放數值的方法之一。

Explain

詢問並記憶結果

發出詢問的方法,就是利用print這個函式,在這裡,我們加入新的敘述。

<STDIN>,抓入整行的輸入資料,將其值設給$name變數

chomp這個函式可以消除純量變數內的換行字完

#! /usr/bin/perl -w

print “What is your name? ” ;

$name = <STDIN>;

chomp($name);

print “Hello, $name!\n” ; (若想印出”$”,在前面加上反斜線就好)

 

加入選擇

現在假設,我們給Randal一點不一樣的問候語,而其他訪客仍看到一樣的問候語。

加入與c類似的if-else

if (條件) {

成立時執行

}else

不成立時執行

}

#! /usr/bin/perl –w

print “ what’s your name”;

$name = <STDIN>;

chomp($name);

if ($name eq “Randal”){

print “Hello , Randal! how good of you to be here!\n”

} else {

print “Hello , $name!\n”; #ordinary greeting(註解)

}