Perl

網上搜了一下，發現了這個文檔，其他基本就不用再看了：http://search.cpan.org/~gbarr/libnet-1.22/Net/FTP.pm為方便查閱，截取部分如下：use Net::FTP; $ftp = Net::FTP->new("some.host.name", Debug => 0) or die "Cannot connect to some.host.name: $@";

大家有時候執行一個指令碼，因為指令碼中有些程式的假死和逾時，影響了我們對下一步的判斷。隨意我們有必要設定對函數和進程的逾時設定，讓他在一段時間沒有反應後，return一個狀態。在命令參數裡ssh -o ServerAliveInterval=60

 　　這篇文章主要介紹了Perl中捕獲警告資訊、異常資訊並寫入日誌詳解,本文分別給出了捕獲警告--不處理、捕獲警告--並轉換成異常、捕獲警告--並寫入日誌、捕獲並寫日誌的完整例子等實用執行個體,需要的朋友可以參考下　　雖然建議在每個Perl指令碼和模組中開啟警告，可是你又不想使用者看到Perl發出的警告。　　一方面你想在代碼前面使用use warnings作為你的安全網，另一方面，通常警告會出現在螢幕上。多數情況下，客戶不知道如何處理這些警告。如果幸運的話這些警告僅僅讓客戶驚訝一下，

packge Mule;use base ("Horse", "donkey"); # 聲明一個超類它是下面東西的縮寫：package Mule;BEGIN {our @ISA = ("Horse", "Donkey");require Horse;require Donkey;}Horse 類 :[root@wx03 test]# cat Horse.pm package Horse;BEGIN {our

1.@_ 是函數傳參時放置參數的數組，可以從中取實參，比如 my($para1,$para2...)=@_, 函數調用時填了幾個參數，便可以從該數組中取到幾個參數。2.$_ 是預設參數的意思，指的是在不指定的情況下，程式處理的上一個變數，比如open(IN,"<file.txt")while(<IN>){ print $_;}close(IN); 這個例子是開啟一個文字檔，讀取每一行，在沒有指定參數的情況下，$_當時指向了從檔案中讀取的每一行。

Perl 最初的設計者為拉裡·沃爾(Larry Wall)，它於1987年12月18日發表。Perl借取了C、sed、awk、shell scripting以及很多其他程式語言的特性。Larry Wall在新聞群組comp.sources.misc發布了Perl指令碼語言1.0版，當時他是Unisys公司的一名程式員。Perl借鑒了sh、Awk和Sed等指令碼語言的特性，試圖成為一個能簡化報告處理的通用 Unix指令碼語言。Perl 2在1988年發布，增加了更多特性，擁有更好的Regex引擎。

一．資料類型(Data type)： Perl 的資料類型大致分為四種：Scalar（變數）、Scalar Array（數組）、Hash Array（散列）、References（指標），看起來雖少但用起來卻綽綽有餘。尤其在寫Perl程式時可以不必事先宣告變數，這一點對剛學程式語言的人甚為方便，不過為了以後程式除錯和維護方便，我建議你還是養成事先聲明變數的習慣比較好。1 Scalar（純量變數）：

NULL值的判斷 $t{type1id} = $$pref{dbh}->selectrow_array("SELECT type1id FROM enq1 WHERE id = 3"); if ( $t{type1id} == 0 ) { print "Type1id is NULL\n"; } ==>不是數值項的話,這個語句有問題。數值項專用。 if ( length($t{type1id}) == 0 ) { print "Type1id is NULL\n"; } ==>

內建變數 $_：先來看一個例子：複製代碼 代碼如下:#!/usr/bin/perl -w@array = qw(a b c d);foreach (@array) { print $_," ";}例子的作用就是定義一個數組並把其中的元素列印出來，這裡需要注意的是foreach迴圈部分，foreach迴圈的標準格式應該是：複製代碼 代碼如下:foreach $element

假如有這樣的一段序列：1 2  1 2  2 1  1 3  1 4  1 5  4 1 我們需要得到如下的結果：1 3  1 5  2 1  4 1 那麼，請藉助以下的perl指令碼來實現。代碼一：複製代碼 代碼如下:#!/bin/perluse strict;  use warnings;  my $filename;  my %hash;  my

我們在linux常常用到一個程式需要加入參數,現在瞭解一下 perl 中的有關控制參數的模組 Getopt::Long ,比直接使用 @ARGV 的數組強大多了.我想大家知道在 Linux 中有的參數有二種形式.•長參數  –help•短參數   -h也就是-和–的分別.–表示完整參數.-表示簡化參數.在 Perl 的這個模組中也支援這二種方法.這要介紹的二 Getopt 其實有二個模組,一個叫 Getopt::Long 一個叫

這是去年年前寫的一個perl指令碼 哎 年後都沒看過perl了。複製代碼 代碼如下:#!/usr/bin/perluse LWP::Simple;open (FILE,”<file”);while(<FILE>){s/^IP1.*//g;my @file =split(/\,|\s+/,$_);my @file1=”$file[0] $file[1]“;my $IP =”$file[1]” ;my $domain=”$file[0]“;my $url=”http://ip138

一、開啟、關閉檔案     open的傳回值用來確定開啟檔案的操作是否成功，當其成功時返回非零值，失敗時返回零，因此可以如下判斷：    if (open(MYFILE, "myfile"))     {        # here is what to do if the file opened

1. 用grep函數 函數名 grep 調用文法 @foundlist = grep (pattern, @searchlist); 解說 與同名的UNIX尋找工具類似，grep函數在列表中抽取與指定模式比對的元素，參數pattern為欲尋找的模式，傳回值是匹配元素的列表。 例子 @list = ("This", "is", "a", "test"); @foundlist = grep(/^[tT]/, @list); 結果 @foundlist = ("This", "test"); 2.

perl有最好的文本資料處理能力.這是大家都知道的.在perl本身有一個別的軟體沒有的小功能,就是Perl格式.它相當於簡單的命令列報表和圖表輸出.這個需要先聲明格式.建立格式的檔案控制代碼.然後由@,^,<,>,|這樣的字元構成所謂的”報表”來輸出圖表.這樣可以指定出行的外觀.後面接資料項目,最後用write來顯示格式化的內容.範例:輸出紀錄格式輸出象下邊一樣定義：format NAME =FORMLIST.第一部分,聲明.如上.如果省略 NAME，上面的代碼將定義格式輸出

chomp是用來刪除分行符號. 複製代碼 代碼如下:#!/usr/bin/perl $c="abcde"; chomp($c); print "$c\n"; [root@ak]# perl a.pl abcde chop是用來刪除最後一個字元. 複製代碼 代碼如下:#!/usr/bin/perl $c="abcde"; chop($c); print "$c\n"; [root@ak]# perl a.pl abcdchomp與chop的用法

一個轉換程式，簡單的把DNA序列中的A轉變成T，第一種情況沒有使用私人變數。複製代碼 代碼如下:#!/bin/perl#下面是一段DNA序列  $DNA=ATTATATAT;#這裡是我們的序列  $result=A_to_T($DNA);  print "I changed all $DNA A to T, and the we get the result $result\n\n";  sub A_to_T   { 

複製代碼 代碼如下:#!/bin/perlprint "please input some lines,then press Ctrl+Z. \n";  chomp(@s=<STDIN>);  print "1234567890"x 3 ."\n";#做為輸出結果的一個尺規  foreach $s(@s)  {  printf "%20s\n",$s;#輸出的格式為靠右對齊，所佔空間為20個字元  }

在perl語言中，有兩個特殊而常用的符號qq qw,分別解釋如下： qq{foobar}的意思為意思為雙引號字串，可插入變數 相當於 "foobar" qw{foo bar}的意思為用空格分解字串，得到列表，相當於如下語句 split(' ','foo bar') 得到的結果是'foo','bar' 字串比較等於用 eq q運算子對'號轉義的方式 $someword = 'i \'ve some money';

標籤：字串   多行   換行   tab   一維數組   問題：   版本   相同   類型   help(dit.keys) ---使用協助，查看字典類型中keys函數的說明關於print python ---