Perl

關於apache與CGI在這裡就不解釋了．１、apache下載地址:http://www.apache.org，下面以2.0.63為例介紹運行CGI程式的配置。２、下載Windows下的Perl解譯器ActivePerl,官方網站:http://www.activestate.com/,最新版本ActivePerl-    5.10.0.1003,假設安裝路徑為c:Perl。3、修改apache的設定檔httpd.conf：

#perl 語言簡明教程#1.perl語言採用#號作為單行注釋#多行注釋如下 被=pod =cut包裹起來的是多行注釋=pod這裡是多行注釋=cut#1.變數#perl語言中只有3種變數#1.普通變數（標量）#2.陣列變數（列表）#3.hash變數（hash表）#聲明方法#標量$a = 1;$scalar = 10;$s = "sdsd";$s1 = 'asdasd';#數組print @arr = ( 1, 2, 3, 4, 5, 6 );&p;print

在Linux環境下安裝Perl其實是非常簡單的，但我這裡記錄一下的原因，是因為在安裝後，一直有一個問題困擾著我，那就是我設定的安裝目錄始終不起效，弄得我一直以為安裝沒有成功，但後來我發現其實是已經安裝成功了的，閑話不多說了，記錄一下。先從官網下載一個最新版本的perl吧，官網地址如下：http://www.perl.org/目前最新的版本是perl-5.20.0，順便說一句，我之所以要安裝perl的原因是我伺服器上的perl實在是版本太低了！下載後解壓，運行命令安裝如下：

可以用find配合sed或者perl來完成尋找目前的目錄下，把  代碼如下複製代碼 </title> 替換成  代碼如下複製代碼 </title><meta http-equiv="Content-Type" content="text/html; charset=utf-8" />find ./ -type f -exec sed -i "s/</title>

"高水線"演算法:大水過後，最後一波浪消退時，高水線會標示出所見過的最高水位。下面看下"高水線"演算法在Perl中的運用。#! /usr/bin/perl; use utf8; sub max { my($max_so_far) = shift @_; #數組中第一個值，暫時當成最大值。 foreach(@_){ #遍曆數組@_ if($_>$max_so_far){ #看其它元素是否有比$max_so_far大的值。 $max_so_far =

CPAN（Comprehensive Perl Archive Network:全面的Perl存檔網路）是尋找任何Perl有關的東西的中心倉庫。它包含從整個Perl社區收集來的智慧：成百上千的 Perl模組和指令碼，相當於好幾本書的文檔，以及整個Perl發布。如果有東西是用Perl寫的，而且這個東西很有用而且是自由的，那麼它很有可能就在CPAN上。CPAN在全世界都有鏡象，你可以在位於http://www.perl.com/CPAN 的CPAN

當你的Perl指令碼需要解決時間資訊，這裡有兩種方法來表示和處理日期和時間。一種方法是易讀的時間表示（例，"Sat Mar 14 10:14:05 EDT

偶爾寫寫Perl指令碼，用Eclipse開啟太慢，NotePad吧，色彩又太單調了，NotePad++無疑是不一個不錯的選擇，但當要輸入中文注釋時，經常卡殼非常不爽，最後還是選擇用用Editplus, 寫寫Perl或Python指令碼，非常不錯。1. 下載安裝Perl URL: http://www.activestate.com/ 下載與作業系統匹配的Version，Next>>逐步安裝，再用perl -v驗證是否安裝成功2.

標籤：工具   hlist   傳回值   跳過   文法   拼接   its   splice   返回   Perl中的數組元素起始引用序號為0，@array的第一個元素為$array[0],依次遞增，最後一個元素為$arr

標籤：命令   details   source   for   strong   pac   copyto   php   arc   1. Pod 文法pod中用段分可以分為三種，普通段落，字面段落（Verbatim

標籤：索引 1.統計fasta、fa和fastq檔案的長度，統計fastq的reads個數，單個reads長度，reads總長度；統計fasta檔案中contig的個數，列出名稱，單條的長度，以及總長度。                  

標籤：#!/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>) {

標籤：來源：http://www.jb51.net/article/35528.htm perl中our的用法require 5.006當版本號碼小於 5.006 的時候，會返回失敗，從而導致模組載入失敗。所以它的作用就是保證模組調用環境的 Perl 版本。our 和 my 一樣，都是對變數的聲明，不過 our 聲明的是包全域變數，而 my 聲明的是詞法變數。不過，經過 our 聲明的變數，它會變得像一個詞法變數一樣，其實這也是 our 存在的目的：用來欺騙 strict

標籤：輸入檔案1、[table.txt]STUTBLDBTBLNAMETBL2、[column.txt]STU1,STU2,STU3DB1NAME1,NAME2輸出檔案[output.txt][STUTBL]STU1STU2STU3[DBTBL]DB1[NAMETBL]NAME1NAME2實現代碼 1 #!/usr/bin/perl -w 2 3 $tableFile = "table.txt"; 4 $columnFile = "column.txt"; 5 $outputFile =

標籤：　　《Perl語言入門》第15章習題第2題如下：用 given-when 結構寫一個程式，根據輸入的數字，如果它能被3整除，就列印“Fizz”；如果它能被5整除，就列印“Bin”；如果它能被7整除，就列印“Sausage”。比如，如果輸入15，程式就應該列印“Fizz”和“Bin”，因為15可以同時被3和5整除。思考一下，可以讓程式輸出“Fizz Bin

標籤：在perl中系統調用有兩種方式，一種是system(cmd),另一種是`system`以前一直沒注意，這兩種方式的區別，還以為是一樣的，今天寫指令碼的時候，忽然想要擷取命令的傳回值，然後，用了my $result = system(‘ls‘);發現，命令的結果並沒有返回給$result,而是直接，列印到螢幕上了，所以，這麼搞是要完蛋的，而改成my $result =

標籤：原始碼   統計   有一段時間學習PYTHON，很傷心啊，版本太新，好多東西用起來不方便。還是繼續用我的小***perl吧，我相信perl會解決掉我遇到的大部分問題！一、統計隨機數出現頻次--原始碼650) this.width=650;" src="http://s3.51cto.com/wyfs02/M02/73/FF/wKioL1YMGt7C-ROKAAGrEvCeMfo297.jpg" title="2015-10-01

標籤：實現的思路是,查表找到該字的所有讀音,然後取首字母. 代碼:while (<DATA>) { chomp; my ($head, $all) = /^(.{3})(.*)$/; $all =~ s/^\s+//; ### 只保留無音標號的首字母 sub toshorter { my $str = $_[0]; $str =~ s/ā|á|ǎ|à/a/g; $str =~ s/ē|é|ě|

標籤：perl   readdir   函數詳解   perl readdir函數詳解2013年12月30日  Perl基礎  共 763字 字型大小 小 中 大  暫無評論  閱讀 4,384 次readdir函數從一個用 opendir 開啟的目錄控制代碼讀取目錄記錄也就是檔案名稱。用法如下：readdir

標籤：  簡短的perl程式能夠實現大功能。    perl是如何做到的呢？  1. 預設變數     如果沒有向函數提供參數值，則預設參數為$_；     如果沒有變數用於接收一個運算式的值，則預設接收變數為$_。     perl語言每條語句可像管道那樣運行，通過預設變數$_串接起來。  2.