Perl

Perl語言入門 前言 編譯指令 一標量 標量常量 數字 字串 數字和字串的轉換 標量變數 print輸出結果 比較操作符 擷取使用者輸入 undef值 標量上下文

    在文本處理時經常會碰到這樣的情況：有一批檔案需要修改裡面的內容，但是又希望保留原來檔案的內容。這個時候Perl提供了一個很方便的變數$^I，將需要備份檔案的尾碼儲存在該變數後，我們在修改檔案內容時，Perl會： 1、先將原檔案開啟並另存新檔以“原檔案名稱+$^I存放的尾碼字元”為檔案名稱的備份檔案。 2、在原檔案上修改。 例如下面一段程式，我要將所有.dat文本中的abc改為dfg，並備份成.bak的檔案

  use base 是物件導向編程時，用來描述“基類”的，其實說白了，use base somemodule;就相當於以下兩句的結合：BEGIN{    use somemodule ();    push @ISA, qw(somemodule);}也可以同時 use base 兩個或者兩個以上的模組，例如：use base qw(Foo Bar);就相當於：BEGIN {    use Foo ();  &

   perl作為一種解釋性的語言，很受廣大系統管理員的歡迎，好處麼就不多說了，壞處也有不少，例如對線程的支援，就一直不咋地，所以大多數情況下，我們都需要多個進程，來協助我們完成工作，閑話少說，上代碼。   #!/usr/bin/perl # test_proc.pl # test multi process # create by lianming: 2009

用perl調度sql指令碼，在開多個進程的時候，發現perl寫入的log檔案先後次序紊亂，又不想搞多線程編程那麼麻煩，我的處理方法，對應的檔案加鎖。perl提供flock函數對檔案控制代碼加鎖。 參考代碼： use Fcntl qw(:flock); my $sum; my $kk=$ARGV[0]; open wr , ">>/wls/dsadm/etl/test.txt" ; flock(wr, LOCK_EX); for($

  預設情況下，m//運算子嘗試匹配指定的模式和$_中的文本。 例如：在使用者輸入的文本中尋找字串exit（第二個反斜線之後的i修飾符是的模式比對不區分大小寫）。如果在$_中找到exit，則m//返回真； print"\n---------------------------(m//) Demo------------------------\n"; print "Enter:"; while(<>){ if(m/

[zhujiang@localhost git-2.5.2]$ make SUBDIR perl/usr/bin/perl Makefile.PL PREFIX='/usr' INSTALL_BASE='' --localedir='/usr/share/locale'Can't locate ExtUtils/MakeMaker.pm in @INC (@INC contains: /usr/local/lib64/perl5 /usr/local/share/perl5

在學習Perl的基礎之前，還是希望大家有空去看以下Perl的簡介。百度百科 一、Perl的基本類型 Per的基本類型分為兩種：數值型和字串型。 數值型可細分為 整數型。如123。 浮點型。如123.123、0.123456。 科學計數型。如1.23E2、1.23e2。 大數實值型別。如1_156_123_585_123。 字串型 字串。如“123456”，‘123’，qq(this is a string too!) 二、

轉自： http://bbs.chinaunix.net/thread-1191868-1-1.html#

Perl Debug [From] http://goldenink.com/perl/perldebug.html The concepts of the perl debug are familiar to most programmers. Trace, breakpoint, and conditional breakpoint (watchpoint) are effective means with which to find problems in your perl

#!/usr/bin/perl -w @lines = 'perdoc - u -fatan2'; //不要把反引號和單引號搞混 foreach(@lines) {     s/\w<(^>}+)>/\U$1/g;     print;     #print "Hello, world!\n" }

1.undef         undef是perl中變數未初始化時的預設值。當這個未初始化的變數被當做整型來使用時，那麼undef就是0；當這個變數被當做字串來使用時，那麼undef就是Null 字元串。所以當在perl中使用一個未經過初始化的變數時，程式的運行是沒有問題的。         例如： $sum += 1; #該語句第一次被執行時，sum變數預設為0

URL:http://www.xi-ju-an.com/date/2005/11/ < ![CDATA[perl 的編譯安裝/ perl 的源碼安裝相當簡單，而 perl 5.84 的安裝最快就是以下方式 rm -f config.sh Policy.sh sh Configure -de make make test make install 當然，我們還應該更多的實際情況/ 下面的我在 perlchina 伺服器上的安裝情況/ 1. 安裝環境與源碼下載/

依據個人經驗，不說兩者的好劣，只說兩者的異同。 1、變數名 Perl變數名的定義有三種，以$、%及@開頭，分別代表一般變數、雜湊變數及陣列變數。而PHP則所有變數統一用$開頭，這一點，PHP似乎更簡潔一些。並且PHP的雜湊數組，本身就是已經排過序的，Perl則不是 2、基礎函數的多寡 Perl的基礎函數很少，跟C比較接近，單從這一點考慮，個人認為Perl要進階一些，系統一些。PHP的函數則很多。 3、擴充模組的多寡

my (@frames,@button);my %sub_of = ( "日誌查詢" => \&push_button2 , "簡訊查詢" => \&push_button3 , "VIEW DISK" => \&push_button4 , 4 => sub{ print "program 4" }, 5

centos安裝git時 報錯make[1]: *** [perl.mak] Error 2  usr/bin/perl Makefile.PL PREFIX='/usr/local/git' INSTALL_BASE='' --localedir='/usr/local/git/share/locale' Can't locate ExtUtils/MakeMaker.pm in @INC (@INC contains:

要在字串中包含雙引號或反斜線，則在其前加一個反斜線，反斜線還可以取消變數替換 單引號另一個特性是可以跨多行，如：  $text = 'This is two  lines of text  ';   與下句等效：  $text = "This is two/nlines of text/n";

shell是操作linux的基本，是必須學的。學shell就是學linux命令。perl有強大的Regex支援，對於文本處理非常強悍，玩linux不得不學。python作用一種物件導向的，能作為linux指令碼的語言，學好之後能幫你很好地完成工作。 shell翻譯成殼的意思，它是包裹在linux核心外層的，一個可通過一系列的linux命令對作業系統發出相關指令的人機介面。

一、安裝perl [root@centos ~]# wget http://www.cpan.org/src/5.0/perl-5.16.0.tar.gz  [root@centos ~]# tar zxvf perl-5.16.0.tar.gz  [root@centos ~]# cd perl-5.16.0 [root@centos perl-5.16.0]# mkdir -p /usr/local/perl [root@centos perl-5.16.

用到memcached，記下  memcached中儲存的資料都儲存在memcached內建的記憶體儲存空間中。 由於資料僅存在於記憶體中，因此重啟memcached、重啟作業系統會導致全部資料消失。 另外，內容容量達到指定值之後，就基於LRU(Least Recently Used)演算法自動刪除不使用的緩衝。 memcached本身是為緩衝而設計的伺服器，因此並沒有過多考慮資料的永久性問題。  memcached是“分布式”快取服務器，但伺服器端並沒有分布式功能。