perl編程

㈠ 誰知道perl編程里的s/^\s+//; 這個語句是什麼意思

正則里，
^
匹配行首（字元串開始位置）
\s
匹配任意的空白符，包括空格，製表符(Tab)等
+
表示重復前一個字元至少1次（1次或多次）
s/A/B/
結構將正則A匹配到的內容替換為B。
所以，這里的意思大致就是：去除行首的所有空白符。

㈡ perl 編程問題

我用的方法比較土， 你試試看吧。期待後面更精彩的
#!/usr/bin/perl
use warnings;

open (INPUTF, $ARGV[0]) or die "can not open $ARGV[0] file";
open (OUTPUTF, ">$ARGV[1]") or die "can not open $ARGV[1] file";
$i=0;
while ( <INPUTF> ) {
last if ( $ARGV[2] == $i );
$i++;
}
if ( $ARGV[2] == $i ) {
@cons=split(/(?=[\w\W])/);
if ( @cons > $ARGV[3] ) {
printf(OUTPUTF "%s", $cons[$ARGV[3]-1]);
} else {
print "the $ARGV[2] lines do NOT have $ARGV[3] characters!\n"
}

} else {
print "$ARGV[0] do NOT have $ARGV[2] lines\n";
}
close INPUTF;
close OUTPUTF;

㈢ 編程初學者適不適合學perl

語言都是相通的，任何語言學會一門在學另外一門就簡單多了，所以初學者以什麼語言開始都沒有問題，因為對你來說任何一門語言都是新的，區別就是學習時間長短的問題，有基礎就學的快一些

㈣ 哪位發明了Perl編程語言

Larry Wall
Larry Wall是一名程序員，語言學家，作者，出生於1949年3月10日，出生地：加拿大卑斯省的鄧肯市，眾所周知的是它在1987年發明了Perl計算機語言。Larry Wall是Perl的創造者，也是其他一些流行的Unix自由軟體的作者，包括rn新聞閱讀器和無處不在的patch程序。從學歷來看，Larry實際上是一位語言學家，是加州大學伯克利分校和洛杉磯分校的畢業生。在這些年中，他在Unisys、JPL、NetLabs和Seagate工作過，做的事情從離散事件模擬器到網路管理系統，偶爾還搞過宇宙飛船。正是在Unisys工作的期間，在他試圖把一個跨東西海岸的配置管理系統用一個1200波特的加密鏈路、和一個經過修改的Netnews粘合起來時，Perl誕生了。Larry目前為O'Reilly公司工作。

㈤ perl語言高手請進 求個簡單編程

#!/usr/bin/perl -w

use strict;

my @lines;

while (<STDIN>) {
chomp;
last if /^(?:quit|exit)$/i;
push @lines, $_;
}

print "Name\t", "Total\n";

for (@lines) {
next unless /\d/;
my @temp = split /\s+/;

print $temp[0], "\t", $temp[1]+$temp[2], "\n";
}

㈥ Perl入門教程

2樓真是的，人家還沒入門，你直接整個文件操作幹嘛？
什麼是Perl？

Perl 是一種最初開發用於文本操作的編程語言。現在它能應用於廣泛的任務，包括系統管理、 web 開發、 網路編程、 GUI 開發和更多的普通用途。

這個語言以實用性為目標（易用、高效、完整）寧願失去美麗（小巧、優雅、迷你）。它使用方便，且支持面向過程和面向對象編程，內置強大的文本處理支持，並有世界上最令人印象深刻的第三方模塊的集中營。
運行Perl程序

在Unix命令行運行Perl程序：

perl progname.pl

另一種方法是，把這個放到你的腳本第一行：

#!/usr/bin/env perl

然後用/path/to/script.pl運行。當然，首先得讓它能執行，你得chmod 755 script.pl（Unix下）。

（這里的第一行假設你有env程序。你也可以直接把你的perl解釋器的路徑直接放到第一行，比如#!/usr/bin/perl）
安全保障

默認情況下，Perl非常隨意。為了使它更強健建議每個程序由下列行開始：

1. #!/usr/bin/perl
2. use strict;
3. use warnings;

附加的兩行從perl中捕獲您的代碼中的各種常見的問題。它們檢查不同的事情，所以你需要兩個都加上。一個潛在的問題通過use strict;捕獲，一旦它捕獲到問題，會馬上讓你的程序停止運行。當然使用use warnings;時，僅僅出現警告（就好像命令行的-w選項）並不會停止程序。
基本語法概述

一個Perl腳本或程序包含一條或多條語句。這些語句只需直接寫在腳本中，而不需要像main()這樣的東西作為程序入口。

Perl語句以分別結束：

print "Hello, world";

以星號（#）開始的語句是注釋：

# This is a comment（這是一條注釋）

空白字元會被Perl忽略：

1. print
2. "Hello, world"
3. ;

……引號里的字元串除外：

1. # this would print with a linebreak in the middle
2. print "Hello
3. world";

字元串使用雙引號或單引號：

1. print "Hello, world";
2. print 'Hello, world';

然而，只有雙引號會「插入」變數值和像換行符（\n）這樣的特殊字元（轉義字元）：

1. print "Hello, $name\n"; # works fine
2. print 'Hello, $name\n'; # prints $name\n literally

數字不需要引號：

print 42;

你可以使用或省略括弧來傳遞函數的參數。它們只是在偶爾要改變或明確優先順序的時候必須使用。

1. print("Hello, world\n");
2. print "Hello, world\n";

Perl變數類型

Perl有3種主要的變數類型：標量（scalars）、數組（arrays）和哈希（hashes）。

* 標量（Scalars）

一個標量表示只有一個值：

1. my $animal = "camel";
2. my $answer = 42;

標量的值可以是字元串、整數或浮點數，並且Perl會在需要的時候自動轉換。你不需要預先聲明你的變數類型，但是你需要在第一次使用它們的時候，使用my來聲明它們。（這是use strict;所要求的）

標量可以用不用的方式使用：

1. print $animal;
2. print "The animal is $animal\n";
3. print "The square of $answer is ", $answer * $answer, "\n";

有大量的「魔法」標量的名稱看上去像標點或線路噪音。這些特殊的變數用於各種目的。現在你只要知道其中一個，這就是「默認變數」$_。它被許多Perl的函數用作默認的參數，並且它被隱式設置到某些循環結構中。

print; # prints contents of $_ by default（默認列印$_的內容）

* 數組（Arrays）

數組用於表示一些值的列表：

1. my @animals = ("camel", "llama", "owl");
2. my @numbers = (23, 42, 69);
3. my @mixed = ("camel", 42, 1.23);

特殊變數$#array將返回數組最後一個元素的索引：

print $mixed[$#mixed]; # last element, prints 1.23

你可能想使用$#array + 1來得到這個數組的元素個數。別急，這很容易。在Perl預想找到一個標量值的時候（「在標量上下文」），使用@array會得到數組的元素個數：（譯註：「上下文」是Perl很重要的特性之一，請查閱相關文檔或在無憂Perl搜索相關內容）

if (@animals < 5) { ... } #譯註：當@animals數組的元素個數少於5個的時候

當我們從數組獲得元素值的時候，需要使用$，因為我們只要獲取數組里的一個值；你請求一個標量，然後會獲得一個標量。

從數組里獲取多個值：

（譯註：獲取多個值，使用@，因為我們要獲取數組里的幾個值（列表）。）

1. @animals[0,1]; # gives ("camel", "llama");
2. @animals[0..2]; # gives ("camel", "llama", "owl");
3. @animals[1..$#animals]; # gives all except the first element

這叫「數組切片」。

你可以在列表裡幹些有意義的事情：

1. my @sorted = sort @animals;
2. my @backwards = reverse @numbers;

有兩個特殊的數組，一個是命令行傳到你腳本的參數@ARGV；另一個是傳遞給子程序的參數@_。
* 哈希

哈希用來表示鍵/值對：

1. my %fruit_color = ("apple", "red", "banana", "yellow");

你可以使用空白字元和=>操作符來美化上面的代碼：

1. my %fruit_color = (
2. apple => "red",
3. banana => "yellow",
4. );

獲取哈希元素：

1. $fruit_color{"apple"}; # gives "red"

你可以通過keys()和values()來獲取鍵列表和值列表。

1. my @fruits = keys %fruit_colors;
2. my @colors = values %fruit_colors;

哈希沒有特定的內部排序，然而你可以對鍵進行排序來遍歷它。

和特殊的標量、數組一樣，哈希也有特殊的。我們現在只要知道哈希%ENV包括所有環境變數

。

更復雜的數據類型可以使用引用來構造，允許你把列表和哈希放到另一個列表和哈希中。

引用是一個標量值，它可以引用任何其它的Perl數據類型。通過把引用存儲為數組或哈希的元素值，你可以輕松創建列表/哈希中的列表/哈希。

以下示例演示了使用匿名哈希引用實現的兩級哈希結構

1. my $variables = {
2. scalar => {
3. description => "single item",
4. sigil => '$',
5. },
6. array => {
7. description => "ordered list of items",
8. sigil => '@',
9. },
10. hash => {
11. description => "key/value pairs",
12. sigil => '%',
13. },
14. };
15.
16. print "Scalars begin with a $variables->{'scalar'}->{'sigil'}\n";

變數作用域

上面所有的例子都使用這種語法：

1. my $var = "value";

實際上，my不是必須的。你可以省略：（譯註：前提是，你沒有使用「use strict;」語句）

1. $var = "value";

但是，上面的用法將創建一個全局變數，這是一個很差的編程實踐。my創建一個詞法作用域變數，這個變數只在定義它們的語句塊中可見（比如一段包在大括弧里的語句）。

1. my $x = "foo";
2. my $some_condition = 1;
3. if ($some_condition) {
4. my $y = "bar";
5. print $x; # prints "foo"
6. print $y; # prints "bar"
7. }
8. print $x; # prints "foo"
9. print $y; # prints nothing; $y has fallen out of scope

結合使用my和在Perl腳本開頭使用use strict，解釋器將捕獲常見的編程錯誤。比如，在上面的例子中，最後的print $y將引發一個編譯時錯誤並阻止程序運行。強烈建議使用use strict語句！
條件和循環語句

Perl有許多常用的條件和循環語句。Perl 5.10甚至提供了分支語句（拼作given/when）。

條件可以是任何Perl表達式。比較和布爾條件語句中常用的邏輯運算符，請參閱有關信息的下一節中的運算符的列表。

* if

1. if ( condition ) {
2. ...
3. } elsif ( other condition ) {
4. ...
5. } else {
6. ...
7. }

還有否定版本的：

1. unless ( condition ) {
2. ...
3. }

這個否定版比if (!condition)更易讀。

注意，大括弧是必須的，即使代碼塊中只有一行。不過，這里有一個方法可以讓你通過類似英語的語法來實現單行條件語句：

1. # the traditional way
2. if ($zippy) {
3. print "Yow!";
4. }
5.
6. # the Perlish post-condition way
7. print "Yow!" if $zippy;
8. print "We have no bananas" unless $bananas;

* while

1. while ( condition ) {
2. ...
3. }

為了和unless同樣的理由，也有一個否定版本：

1. until ( condition ) {
2. ...
3. }

你也可以在後置條件里使用while：

print "LA LA LA\n" while 1; # loops forever

* for

跟C語言一樣：

1. for ($i = 0; $i <= $max; $i++) {
2. ...
3. }

自然Perl提供了更友好的列表遍歷循環foreach以後，C語言風格的for循環在Perl幾乎不需要了。
* foreach

1. foreach (@array) {
2. print "This element is $_\n";
3. }
4.
5. print $list[$_] foreach 0 .. $max;
6.
7. # you don't have to use the default $_ either...
8. foreach my $key (keys %hash) {
9. print "The value of $key is $hash{$key}\n";
10. }

內置操作符和函數

Perl 附帶了各種各樣的內置函數。我們已經看到的幾個，包括print，sort和reverse。

Perl常見操作符（運算符）

* 算術

1. + 加法
2. - 減法
3. * 乘法
4. / 除法

* 數字比較

1. == 等於
2. != 不等於
3. < 小於
4. > 大於
5. <= 小於等於
6. >= 大於等於

* 字元串比較

1. eq 等於
2. ne 不等於
3. lt 小於
4. gt 大於
5. le 小於等於
6. ge 大於等於

（為什麼數字和字元串的比較運算符不同？因為我們沒有不同的變數類型，並且Perl需要知道是以數字進行排序（99小於100）還是以字母進行排序（100在99前面））
* 邏輯

1. && and 和
2. || or 或
3. ! not 否

* 混合

1. = 賦值
2. . 字元串連接
3. x 字元串乘法
4. .. 范圍 (建立一個列表)

一些操作符可以和=結合，像這樣：

1. $a += 1; # same as $a = $a + 1
2. $a -= 1; # same as $a = $a - 1
3. $a .= "\n"; # same as $a = $a . "\n";

文件和I/O

你可以使用open()函數來打開一個文件，用於輸入或輸出：

1. open(my $in, "<", "input.txt") or die "Can't open input.txt: $!";
2. open(my $out, ">", "output.txt") or die "Can't open output.txt: $!";
3. open(my $log, ">>", "my.log") or die "Can't open my.log: $!";

你可以使用<>操作符從打開的文件句柄中讀數據。在標量上下文中，它從文件句柄中讀取一行；在列表上下文中，它讀取整個文件，並將每一行作為列表的元素。

1. my $line = <$in>;
2. my @lines = <$in>;

一次性把整個文件讀完，叫做「啜食（slurping）」。它能讓人滿意，但它可能是內存吞噬者。大多數文本文件處理可以通過Perl的循環結構，一行一行地完成。

<>操作符經常出現在while循環里：

1. while (<$in>) { # assigns each line in turn to $_
2. print "Just read in this line: $_";
3. }

我們已經看到了如何使用print()在標准輸出里列印。但是，print()還能通過第一個可選參數指定一個文件句柄來列印（譯註：將內容輸出到指定的文件句柄中，即寫入到文件句柄相關聯的文件中）

1. print STDERR "This is your final warning.\n";
2. print $out $record;
3. print $log $logmessage;

當你完成了對文件句柄的操作之後，你應該使用close()來關閉文件句柄。（老實說，如果你忘記關閉了，Perl會幫你處理。）

close $in or die "$in: $!";

正則表達式

Perl對正則表達式的支持寬廣而深入：

* 簡單匹配

1. if (/foo/) { ... } # true if $_ contains "foo"
2. if ($a =~ /foo/) { ... } # true if $a contains "foo"

//匹配操作符（譯注，完整的應該是：m//）默認操作$_，或者使用=~來綁定其它變數進行操作。
* 簡單置換

1. s/foo/bar/; # replaces foo with bar in $_
2. $a =~ s/foo/bar/; # replaces foo with bar in $a
3. $a =~ s/foo/bar/g; # replaces ALL INSTANCES of foo with bar in $a

* 更復雜的正則表達式

你不僅能匹配固定的字元串。其實，你可以匹配任何你能想到的復雜正則表達式。

1. . 單個任意字元（默認不包含\n）
2. \s 一個空白字元 (空格, tab, 換行, ...)
3. \S 一個非空白字元
4. \d 一個數字 (0-9)
5. \D 一個非數字
6. \w 一個能組成單詞的字元 (a-z, A-Z, 0-9, _)
7. \W 一個不能組成單詞的字元
8. [aeiou] 匹配中括弧內的任意一個字元
9. [^aeiou] 匹配除了中括弧內列出的字元之外的任意一個字元
10. (foo|bar|baz) 匹配foo或bar或baz
11.
12. ^ 匹配開頭
13. $ 匹配結尾

量詞可用來指定數量：

1. * 零個或任意多個
2. + 至少一個
3. ? 零個或一個
4. {3} 3個
5. {3,6} 3到6個
6. {3,} 至少3個

一些簡單的例子：

1. /^\d+/ 以一個或多個數字開頭
2. /^$/ 空的，沒有任何東西
3. /(\d\s){3}/ 3個帶空白字元的數字
4. (比如 "3 4 5 ")
5. /(a.)+/ 匹配最少一次，含有a和任意字元
6. (比如 "abacadaf")
7.
8. # 從STDIN循環讀入，並列印出非空白行:
9. while (<>) {
10. next if /^$/;
11. print;
12. }

* 圓括弧捕捉

括弧的另一個用法是分組。它可以用來捕捉最後使用的正則表達式匹配的結果。這些結果用$1、$2……表示。

1. # a cheap and nasty way to break an email address up into parts
2.
3. if ($email =~ /([^@]+)@(.+)/) {
4. print "Username is $1\n";
5. print "Hostname is $2\n";
6. }

子程序

寫一個子程序是很容易的：

1. sub logger {
2. my $logmessage = shift;
3. open my $logfile, ">>", "my.log" or die "Could not open my.log: $!";
4. print $logfile $logmessage;
5. }

現在我們可以像使用其它內置函數一樣，使用該子程序了：

1. logger("We have a logger subroutine!");

什麼是shift？傳遞給子程序的參數保存在@_數組中。shift函數的默認參數是@_。所以my $logmessage = shift;去掉第一個參數，並將其賦值給$logmessage。

可以通過別的方法操作@_：

1. my ($logmessage, $priority) = @_; # common（通用）
2. my $logmessage = $_[0]; # uncommon, and ugly（不通過，並且很醜陋）

子程序可以返回值：

# sub square {
# my $num = shift;
# my $result = $num * $num;
# return $result;
# }

然後像這樣使用它：

1. $sq = square(8);

Perl面向對象

Perl面向對象相對比較簡單，這是實現使用引用什麼樣的對象知道自己是在Perl的概念為基礎的封裝。

剛開始進行Perl編程，你最常使用的Perl面向對象將是使用第三方模塊，參見下文。
使用Perl模塊

Perl 模塊提供了一系列的功能，可幫助您避免重復勞動，它們可以通過CPAN（www.cpan.org）下載。許多流行的模塊都已經包含在了Perl發行包中。

本文由無憂Perl（www.51perl.com）翻譯，轉載請註明本文鏈接：www.51perl.com/perl-brief-introction/

水平有限，錯誤難免，歡迎指正，並以原文為准。原文地址：http://perldoc.perl.org/perlintro.html

希望對你有用

㈦ perl 編程中 my $obj = ... 和 my ($obj) = ... 有什麼區別

這個問題，其實是有區別的，但實際使用時，可能沒有區別。為什麼這么說呢？

my $obj 這樣使用，是要返回一個scalar變數。my ($obj)這樣呢，是要返回一個 array。

我們都知道，perl里的變數類型轉換很方便，方便到你都感覺不到。

為了便於理解，寫一個例子：

usestrict;

my$a=getdata();
print"$a
";
my($b)=getdata();
print"$b
";

subgetdata
{
return123;
}

這個程序，a和b的輸出結果都是123。其中a是要一個變數，返回值剛好是一個變數，沒有類型轉換，就是123。b是要一個數組，返回值是一個變數，就會進行類型轉換，轉成了(123)這樣只有一個元素的數組，再賦值給($b)數組，$b得到該數組中的第一個值，所以還是123。

再舉一個例子：

usestrict;

my$a=getdata();
print"$a
";
my($b)=getdata();
print"$b
";

subgetdata
{
return(123,456);
}

這樣會輸出什麼呢？a是要一個變數，返回的是一個數組，所以它接收到最後一個數據，也就是$a=456。b是要一個數組，返回的是一個數組，所以直接得到了該數組，然後$b得到了該數組的第一個元素，也就是123。

好多模塊要編寫時，就考慮到了這種情況，在它們的模塊里，有判斷需要什麼返回的語句：wantarray。

wantarray
gforalistvalue..(voidcontext).

舉個例子：

my$a=getdata();
print"$a
";
my($b)=getdata();
print"$b
";

subgetdata
{
returnwantarray?(123):456;
}

這個函數的返回值就好理解了。函數問你想要什麼樣的值，如果想要array就給你返回(123)這個數組，否則就返回456這個值。所以這段代碼的輸入分別是456和123。

㈧ 哪位發明了Perl編程語言

Perl的作者是Larry Wall , 曾經貢獻過好幾個很有用的
程式給大家(public domain)使用，包括patch和rn。他設計perl時的哲學是以
實用為第一優先，(所謂的實用就是語言容易使用, 有效率, 而且完整)，而不是設
計一個看起來很漂亮的語言。(漂亮就是程式非常的小，語法幽雅，而且只由
最少的語法基本元素構成)。Perl包含了C, sed, awk,和sh這幾個工具最好(作
者(Larry) 說的) 的特色，而且主要的語法很接近C 語言， 對原本熟悉C 語言
的人來說非常容易上手。

㈨ perl語言編程怎麼回事

Perl，其他的您別想，她就是一門語言。然後呢，因為很爽，所以現在主流的Linux平台都提供Perl，有一些開源程序（包括我知道有一個WOW插件）是Perl寫的，有一些包是用Perl去build的。可以不嚴格地說，Perl是Linux事實上的系統語言之一。純種的UNIX我不熟，不清楚情況。

Perl曾經是CGI事實上的指定語言，但因為Perl的缺點——對於寫CGI來說過於強大，殺雞用牛刀——所以現在用Perl寫CGI的不多了，php、JSP比較多，要用CGI的話直接考慮C/C++的也不少。

Perl還有一個重要用途，就是在生物信息學上。她有一個開源模塊叫BioPerl，這個倒是可以做個類比：BioPerl在生物信息學的地位就像MatLab在數學中的地位一樣。

Perl的模塊非常神奇，經過長年發展，已經號稱「幾乎可以完成任何你想得到的功能」。你想做什麼的話，直接上CPAN搜模塊就行了，這也是她能迅速成為一個實用工具的原因。

我很喜歡Perl，因為這個語言很自由。用C寫程序我會覺得我在工作，但用Perl寫程序我會覺得我在和電腦說話，這種感覺很舒服。但是，您不要迷信Perl，因為純Perl效率絕對不高；你可以喜歡她，但她不是神，就這么個概念。也有很多人也鄙視Perl，覺得這是個怪胎、邪教；但我就要說，我鄙視正統，我喜歡歪門邪道。

另外，關於Perl的名字，不要理會什麼實用抽取與報告。這就是LW為了湊pearl（珍珠）這個詞深造的……

㈩ Perl是什麼

發明perl的larry wall就說過：「perl可能不好看或者不好聞，但是它能完成任務」。 perl是文本處理語言，它最初就是為了這個目的設計的。 perl是網路編程語言，它內置了socket/client-server協議。 perl是系統管理語言，全球網路很多伺服器上就運行著它的腳本。很多時候是單行的腳本。 perl是web腳本編寫語言。至今它仍然是最流行的幾種web腳本編寫語言之一。 perl還可以： 用perl生成代碼 用perl(調用tk)編寫gui程序。 在c/c++中進行perl編程，在perl中進行c/c++編程 用perl過濾郵件 用perl數據倉庫編程 在web上進行搜索 有人說perl無所不能。 ----------------------------------------------------------------------------------------------------- 我個人覺得perl的文本處理能力是無以替代的。它的正則表達式功能之強大是其他編程語言無法達到的。 即使微軟的jscript/vbscript在正則表達式這項功能努力仿照和追趕perl，但仍然有很大的差距。 perl裡面的哈希結構也是一個十分有趣的東西，vbscript裡面對應的是dictionary,但是dictionary有欠直觀。 如果你對照一下perl和php,會發現兩者程序之間有很多類似的地方，php在產生的時候受到了perl很多的影響， 說php來源於perl也不為過。 perl甚至和vbscript/jscript一樣可以編寫asp程序。但同時，perl又不僅僅只有web腳本的功能。。。。但我 們很多web程序員用asp/php/jsp在編寫基於web的聊天室，用隱藏楨刷新聊天內容的老土辦法的時候，實際perl 寫的基於socket的chat server程序早就存在了。你甚至不需要用c/c++來做這些復雜的事情，一個perl一百行 代碼就可以做到了。 perl一直以來是一個免費的語言。你不用任何費用就可以獲得perl世界裡面的代碼包括perl本身。perl不是由 某個公司大力推廣而得到發展的，正如java那樣。perl用它自身的力量來發展自己。當我們發現perl的開發調 試工具就可以用perl來寫作，就不能不為它的神奇而感動。perl的世界是一個真正的自由的世界。 更多的時候，我覺得看一下perl，也是有很多地方值得借鑒的。有一些編程的方法就可以學過來，然後放到你所