Perl

標籤： ********************需要根據自己的實際環境修改哦************************************************1. 收集awr報告樣本   awrreport.sql--該指令碼請用具有 dba 許可權的使用者執行，普通使用者沒有許可權訪問資料庫的基表conn &usr/ &pass @ &oracle_sidset linesize 1200 ;set pagesize

標籤： 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} =

標籤：emacs   perl   python   配置   ide   連結：http://pan.baidu.com/s/1c0fjY3e

標籤：以前寫過類似的部落格： 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

標籤：Steps Summary：1. 下載安裝檔案2. 點擊檔案進行安裝3. 設定環境變數4. 測試安裝是否成功 以在win8上安裝Active perl 5.22 為例Details:1. 下載安裝檔案1) way1: 自己安裝編譯器，再安裝Perl模組，再進行編譯，安裝. 這種方法的好處是可以編譯安裝所有的模組2) way2: 下載已經編譯好的perl模組直接進行安裝

標籤：#!/usr/bin/perl -wuse warnings;use strict;my $usage = qq{$0 input_fastq trim_length};die "$usage\n" if scalar @ARGV != 2;my ($fastq, $trim_length) = @ARGV;open(FASTQ, $fastq) or die "Can‘t open $fastq\n";while (my $readid = <FASTQ>) {

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

標籤：What?Perl，一種功能豐富的電腦程式語言，運行在超過100種電腦平台上，適用廣泛，從大型主機到可攜式裝置，從快速原型建立到大規模可擴充開發。Why?Perl追求簡潔快速地解決問題，可很方便地進行文本處理、工具整合等操作，因此被廣泛應用在自然語言處理領域，語音辨識的很多開源工具，如HTK、Kaldi等都使用了Perl指令碼。How?參考官網的例子入門，實際應用中遇到問題再通過查Perldoc或搜尋引擎解決，也可模仿現有指令碼。?本系列主要作為線上筆記用途。1．Perl基礎系列之WHAT

標籤：用s///進行替換：如果把m//模式比對(pattern match)想象成文文書處理器的“尋找”功能，那麼s///替換(substitution)操作符就是“尋找並替換”功能。此操作符只是把存在變數中匹配模式的那部分內容替換成另一個字串：<span style="font-size:18px;">$_ = "He's out bowling with Barney tonigth.";s/Barney/Fred/; #

標籤：perl   komodo   ide   sublime   ue    Komodo IDE + ActivePerl   最常見，入門級，傻瓜安裝配置。    不過現在我用sublime為主，跨平台都很好用，而且外掛程式真心多，自己開發方便。 

標籤：Perl文法簡介 1.PERL變數 1.1.Perl變數分類 1.2.Perl變數 1.2.1 Scalar變數 1.2.2 陣列變數 1.2.3 標量與陣列變數 1.2.4 關聯陣列 2.PERL運算子 2.1　算數運算子 2.2　位元運算符 2.3　比較子 2.4　邏輯運算子 2.5　字元運算子 2.6　賦值運算子 2.7　Lvalue 2.8　表運算子 2.9　檔案測試運算子   1.PERL變數

標籤：檔案測試主要用於查看如檔案是否存在、檔案大小、檔案更新時間等資訊。檔案測試操作符-e  測試檔案是否存在；die "Oops!A file called ‘$filename‘ already exists.\n" if -e $filename;-M 測試檔案是否保持持續的更新，比如測試某個程式的記錄檔是否保持每一周或兩周更新。此處測試的是檔案控制代碼。warn "Config file is looking pretty old!\n" if -M CONFIG>28;

標籤：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

標籤：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: /usr/local/lib64/perl5 /usr/local/share/perl5 /usr/lib64/perl5/vendor_perl

標籤：Regex簡單模式：匹配$_中的內容，只需要將模式寫在一對斜線(/)中就可以了。如：#!/usr/bin/env perluse 5.010;$_="yabba dabba doo";if(/abba/){　　say "it matched!";}關於元字元和shell中的差不多：.==>任一字元；*==>重複0次及其0次以上；+==>重複一次及一次以上；?==>重複0次或一次；模式分組在Regex中，用圓

標籤：數組：特殊的數組索引：加入對索引值超過數組尾端的元素進行賦值，數組將會根據需要自動擴大，只要有可用的記憶體配置給數組。意外增加的數組元素的值為undef.$a[0]="aa";$a[1]="bb";$a[900]="99";有時需要找出數組中最後一個元素的索引值，如對數組rocks而言。其最後一個元素的索引值為$#rocks+1。也可以用#rokcs[-1]訪問。 列表直接量：qw(quoted word)簡寫如：qw(fred barney betty wilma dino)=

標籤：第十三章：錯誤處理 壹陸玖. 要拋出異常，不要返回特殊值或設定標記。 壹柒零. 讓失敗的內建函數也拋出異常。 壹柒壹. 讓所有上下文中的失敗都是致命失敗。        #把不可接受的失敗行為改為拋出異常 ……        useFatal qw( :void locate_and_open);       

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

標籤：1.hash 方式訪問。 %ENV  key為環境變數名，value為環境變數值2.調用ENV模組 。 use Env qw(PATH); print "path is $ENV{path}\n";  這段代碼會建立（或者覆蓋）環境裡的PerlVar變數。 $ENV{PerlVar} = "Perl Tech Tips";  要刪除環境變數，就要使用delete。下面的例子會刪除臨時的環境變數： delete $ENV{temp}