Perl

標籤： 1 #!/oracle/product/11g/db/perl/bin/perl 2 use lib ‘/oracle/product/11g/db/perl/lib/site_perl/5.10.0‘; 3 use DBI; 4 use DBD::Oracle qw(:ora_session_modes); 5 print $DBI::VERSION,"\n"; 6 print $DBD::Oracle::VERSION,"\n"; 7 8 $ENV{ORACLE_SID} =

標籤：以前寫過類似的部落格： http://blog.csdn.net/three_man/article/details/34084361 今天拿出來，再好好剖析一下：1. 構造一個含有重複元素的數組my @arr1 = (1 .. 10);my @arr2 = (5 .. 15);# join multi arraymy @arr = (@arr1, @arr2);2. 刪除數組中的重複元素sub removeRepeat{ my $arrRef = shift; my

標籤：首先，安裝activeperl ，安裝過程中勾選自動添加PATH環境變數，這樣安裝後就不需要自己手動修改PATH環境變數；通過cmd 調出命令列視窗，輸入ppm ,然後斷行符號，就開啟了perl 的包管理器，點擊 倉庫按鈕， 在倉庫中搜尋Tk模組，然後右鍵，選擇intall, 然後點擊右上方的綠色箭頭表徵圖，開始安裝；安裝完成後，編寫一個hello world 樣本, 檔案儲存為tk_hello_world.pl:#/usr/bin/perl -wuse Tk;use

標籤：最近寫了一個perl指令碼，實現的功能是將表格中其中兩列的資料進行拼湊，然後將拼湊後的資料用“|”串連在一起。表格內容如下： 員工號碼員工姓名職位入職日期1001張三銷售1980/12/17 0:00:001002李四財務1981/02/20 0:00:001003王五經理1981/02/22 0:00:001004陳二會計1981/04/02

標籤：perl學習筆記#!/usr/bin/perlmy $tmp = "ye_qing";my @name = split("_",$tmp);my $list = "==$name[0]==$name[1]==\n";print $list;my @ye=(1,2,3,4);my @qing=(1,2,@ye,4,5,6);$scount = @qing;print "==sum:$scount==\n";print "[email protected]==\n";$count=1

標籤：標量資料標量：數字、字元。可以儲存在標量變數中也可以從檔案和裝置中讀取。數字：所有數字內部格式相同——雙精確度浮點數。浮點數直接量：程式員在程式中直接鍵入的數字。 整數直接量：61298040283768==61_298_040_283_768；操作：字串：字串長度沒有限制。usr utf8;單引號內的字串直接量：除了單引號和反斜線字元外，單引號內的所有字元都表示自身。雙引號內的字串直接量：字串操作符：串連操作.

標籤： 如何在Perl中使用該模組？ use LWP::Simple; 2. 如何擷取一個頁面內容？ my $content = get(‘http://www.yahoo.com.cn‘); get函數把從www.yahoo.com.cn上擷取得頁面內容全部賦給$content這個變數， 如果擷取失敗將返回一個undef的值。 3. 如何擷取頭(Head)？ my (b, d, $e) = head(‘http://www.yahoo.com.cn‘);

標籤：perl   compile   Alex Suykov had do some work for this purpose, and my compile script is based on her patch.StepsStep 1:Download perl source code from perl’s official site, such as: wget

標籤：perl   expect   遠程互動   #! /usr/bin/perl  use Expect;                    #前提是你的伺服器上得有Expect包，沒有請安裝，否無法使用互動 my $PROMPT = ‘[\]\$\>\#]\s*$

標籤：perl   報表   五一閑暇，看完了一本Perl執行個體精解（第4版）的電子書，這是第19章最後的一個例題。拿來練練手，以犒賞自己所學知識的過程。下面的源檔案是用來被格式化的檔案：$ cat xxx Exotic Liquids:Charlotte Cooper:(171) 555-2222New Orleans Cajun Deligh

標籤： 在fedora中第一次安裝vm tools時遇到了這個題，現將我的解決方案與大家分享，希望能對大家有所協助！ 問題：解壓完vm tools的壓縮包之後，我就在root許可權下執行./vmware-install.pl，結果報錯/usr/bin/perl: bad interpreter: No such file or directory，解決如下： 1.查看版本號碼：uname 

標籤：perl輸入和輸出： <STDIN>操作符：用來從STDIN讀入資料：如果讀到檔案結尾行輸入符就會返回undef. $line = <STDIN>;    #讀取下一行.chomp($line =<STDIN>);    #去掉輸入的一行的最後的分行符號while (<STDIN>) {    print “$_”;

標籤：perlperl的模組和包： 和模組相關的關鍵字：use  module-name: 添加模組use  module-name qw/functionname/; #匯入具體的函數use module-name qw/ /; #不匯入具體函數，需要用全路徑調用函數use module-name {}; #同上 dono importpackagerequire 編譯命令：use   constant 

標籤：第十八章：測試和調試 貳貳柒. 先寫測試案例。 貳貳捌. 以Test::Simple或Test::More把你的測試案例標準化。 貳貳玖. 利用Test::Harness將你的測試集標準化。 貳三零. 編寫失敗的測試案例。 貳三壹. 可能的和不可能的都要經過測試。 貳三貳. 開始測試前先增加新的測試案例。 貳三三. 一定要使用use strict。 貳三肆. 一定要顯式地開啟警告功能。 貳三伍. 絕不要假設編譯期間沒有警告就意味著正確。 貳三陸.

標籤：第四章：值和運算式 資料是缺乏生氣的…… 有點像程式員。 — Arthur Norman 零三三. 只對實際會插入的字串使用插入用字串界定符。 l        建立字串直接量而且想插入變數，使用雙引號括住的字串 my $spam_name = “$title$first_name $surname”; l       

標籤：第六章：控制結構 零陸貳. 使用代碼塊if，不要使用尾碼if。 例如，下面的就不好理解：        $sum+= $measurement if defined $measurement; 其實，它等於：        if(defined $measurement) {         

標籤：第十七章：模組 貳壹柒. 先設計模組的介面。 貳壹捌. 把原有代碼變成inline。 把重複的代碼放到子程式。 把重複的子程式放到模組。 貳壹玖. 使用三部分式的版本編號。 貳貳零. 程式化地實施你的版本需求。 貳貳壹. 明智地匯出且只在可能場合有請求時才匯出。 貳貳貳. 考慮以聲明方式匯出。 貳貳三. 不要把變數變成模組介面的一部分。 貳貳肆. 自動建立新模組架構。 貳貳伍. 儘可能使用核心模組。 貳貳陸. 可行時就使用CPAN模組。 第十八章：測試和調試 貳貳柒. 先寫測試案例。

標籤：第七章：說明文檔 零捌肆. 區分使用者說明文檔和技術說明文檔。 零捌伍. 替模組和應用程式建立標準POD模板。 零捌陸. 把你的標準POD模板予以擴充和自訂。 零捌柒. 在原始碼檔案中放置使用者說明文檔。 零捌捌. 把所有使用者說明文檔放在原始碼檔案中的單獨的地方。 零捌玖. 儘可能把POD放在靠近檔案末尾處。 零捌肆. 對技術說明文檔做適當的細化。 零玖零. 主要注釋應使用塊模板。 零玖壹. 使用整行注釋來說明演算法。 零玖貳. 使用行章節附註釋來指出微妙之處和奇怪之處。 零玖三.

標籤：下面是日常工作中一些程式碼片段的總結，部分注釋是後加的，採用了//這種形式，請勿套用。 1.取得使用者輸入print("Please input the date range:");$dateRange=<STDIN>;chomp($dateRange);2.如果資料不符合要求退出程式if(!isValidDateRange($dateRange)){   die("Wrong date range\n");}3.劈分字串得到數組my

標籤：perl   editplus   偶爾寫寫Perl指令碼，用Eclipse開啟太慢，NotePad吧，色彩又太單調了，NotePad++無疑是不一個不錯的選擇，但當要輸入中文注釋時，經常卡殼非常不爽，最後還是選擇用用Editplus, 寫寫Perl或Python指令碼，非常不錯。1. 下載安裝Perl URL: http://www.activestate.com/