Perl

標籤：9    Perl 中的RegexRegex的三種形式 Regex中的常用模式 Regex的 8 大原則       　　Regex是 Perl 語言的一大特色，也是 Perl 程式中的一點痛點，不過如果大家能夠很好的掌握他，就可以輕易地用Regex來完成字串處理的任務，當然在 CG

標籤：前言在Perl 中， 不安裝其他模組的狀況下， 可以使用 localtime 來擷取當地日期和時間。在標量上下文中， 返回的是字串格式。my $localtime = localtime();print "\n$localtime\n";返回：Thu Jan  1 18:17:56 2015在列表上下文中， 返回的是描述目前時間的一個元素列表my ($sec,$min,$hour,$mday,$mon,$year_off,$wday,$yday,$isdat)

標籤：    程式指令碼在運行過程中，總會碰到這樣那樣的問題，我們會預知一些問題並為其準備好處理代碼，而有一些不能預知。好的程式要能儘可能多的處理可能出現的異常問題，本文就總結了一些方法來解決這些異常，當然perl在這個處理了不及其它同類語言，但也不會差到那裡。在開始前，我們先盤點一些關於perl的優缺點。0. 曆史太悠久了。你可以在1997年的電腦上找到perl5.0。(只是吐槽一下，曆史悠久沒什麼不好，與時俱進才是關鍵)1.

標籤：perl1.檔案讀寫與命令列參數#!/usr/bin/perluse strict;if (@ARGV < 2){    die  "USAGE: perl $0 inputfile outfile\n";}my ($infile) = @ARGV[0];my ($outfile) = @ARGV[1];open my $infile_fh,‘‘, "$infile" || die("Can‘t open the file!");open my

標籤：變數範圍（一）包變數$x = 1這裡，$x是個包變數。關於包變數，有2件重要的事情要瞭解：1)假如沒有其他申明，變數就是包變數；2)包變數總是全域的。全域意味著包變數在每個程式裡總可訪問到。在你定義了$x=1後，程式的任何其他部分，甚至在其他檔案裡定義的子程式，都能影響和修改$x的值。這點毫無例外；包變數總是全域的。包變數被歸類到族（叫做packages）。每個包變數的名字包括2部分。這2部分類似於變數自己的名字和族名。假如喜歡，你可以稱呼美國副總統為‘AL‘，但對其全名‘Al Gore‘

標籤：blog   http   io   ar   os   使用   sp   java   on   /** * 在Perl下的使用： * #華氏溫度和攝氏溫度之間的轉換功能更加完善print

標籤：perl   shell   1）perl是非常靈活的，聽到有人說，看perl代碼最不爽的一點就是：一個判斷條件可放在一個語句後面，例如：my $value = "value" if

好久沒有寫perl指令碼了，最近電腦上面有《prison break》的音頻，也有srt的歌詞，不過歌詞不對，最後進行下面的指令碼處理後，可以變聽變看字幕了。主要是用來複習下perl指令碼，Regex，檔案讀取，迴圈，條件等#! /usr/bin/perl #print 'done';# my $file = '<E:\Prison Break1\Prison Break - 1x02 - Allen [eng-subtitle].srt';# my $out =

對於某些字串，需要輸入為特定的格式，通過sprintf可以很方便的完成，不需要專門進行其他處理。perl中的sprintf的用法如下：sprintf FORMAT, LIST 比如：$result = sprintf("%08d",$number);讓$number有8個前置字元為零。 $rounded = sprintf("%.3f",$number);讓小數點後有3位元字。 sprintf允許的如下常用的轉換： %%         百分比符號%c          

標籤：blog   http   io   os   使用   ar   for   檔案   資料    

source:  http://www.regular-expressions.info/vbscript.html VBScript's Regular Expression SupportVBScript has built-in support for regular expressions. If you use VBScript to validate user input on a web page at the client side, using VBScript's

標籤：使用   檔案   資料   c   ar   資料庫   # 使perl程式支援utf8寬字元編碼，不添加下面幾行列印中文字元時將出現Wide character in print警告或錯誤。use utf8;binmode(STDIN, ‘:encoding(utf8)‘);binmode(STDOUT, ‘

die函數 18.4 錯誤處理 在很多情況下，系統調用可能會失敗；例如，嘗試開啟不存在的檔案，或者刪除某個仍含有檔案的目錄，或者嘗試讀取沒有讀許可權的檔案。在前面的樣本中，我們已經用到了die函數，本節將 詳細討論有關錯誤處理和錯誤處理函數的相關內容。這些函數包括die函數、warn函數和eval函數。 die函數用於在命令或檔案控制代碼失敗時退出Perl指令碼。 warn函數類似於die函數，但它不會退出指令碼。 eval函數具有多種用途，但它主要還是用於異常處理。 讀者想必還記得短路運算子&

wxPerl是一個純oo的gui庫。今天在看它的例子的時候，也試了一下不同的繼承方法。在wxPerl的hello.pl中是這樣用的：use vars qw(@ISA);@ISA = qw(Wx::App);在programming Perl裡查了一下use vars這個pragma. 發現，這種用法已經在某種程度上廢棄了，因為有了our. 上面的代碼等同於：our (@ISA) = qw(Wx::App);他們的作用都是定義一個包全域變數。

在檔案I/O中，要從一個檔案讀取資料，應用程式首先要叫用作業系統函數並傳送檔案名稱，並選一個到該檔案的路徑來開啟檔案。該函數取回一個順序號，即Perl檔案控制代碼（filehandle），該Perl檔案控制代碼對於開啟的檔案是唯一的識別依據。要從檔案中讀取一塊資料，應用程式需要調用函數ReadFile，並將Perl檔案控制代碼在記憶體中的地址和要拷貝的位元組數傳送給作業系統。當完成任務後，在通過調用系統函數來關閉該檔案。除了你模仿唯我論者哲學家編寫一個人工智慧程式,你的程式使用不和外界通訊的方法

使用cpan安裝Net::SSH::Perl：cpan>install Net::SSH::Perl期間遇到了一些問題，記錄在此，以備後閱。因為cpan對其它軟體的依賴性，要求軟體版本的不能過低，所以先升級一下這兩個模組:複製代碼 代碼如下:cpan>upgrade Module::Buildcpan>upgrade ExtUtils::InstallMath::BigInt報錯:Math::BigInt: couldn't load specified math lib(s)

一、開啟、關閉檔案 open的傳回值用來確定開啟檔案的操作是否成功，當其成功時返回非零值，失敗時返回零，因此可以如下判斷： if (open(MYFILE, "myfile")) { # here is what to do if the file opened successfully } 當檔案操作完畢後，用close(MYFILE); 關閉檔案。 讀：open(檔案控制代碼，"<檔案名稱") open(檔案控制代碼，"檔案名稱"

先來看下our的用法。require 5.006當版本號碼小於 5.006 的時候，會返回失敗，從而導致模組載入失敗。所以它的作用就是保證模組調用環境的 Perl 版本。our 和 my 一樣，都是對變數的聲明，不過 our 聲明的是包全域變數，而 my 聲明的是詞法變數。不過，經過 our 聲明的變數，它會變得像一個詞法變數一樣，其實這也是 our 存在的目的：用來欺騙 strict pragma，使 strict 以為它是一個詞法變數，其實卻不是。有一個簡單的辦法可以理解

一、簡介 模式指在字串中尋找的特定序列的字元，由反斜線包含：/def/即模式def。其用法如結合函數split將字串用某模式分成多個單詞：@array = split(/ /, $line);二、匹配操作符 =~、!~ =~檢驗匹配是否成功：$result = $var =~ /abc/;若在該字串中找到了該模式，則返回非零值，即true，不匹配則返回0，即false。!~則相反。 這兩個操作符適於條件控制中，如： if ($question =~ /please/) {

文章目錄 linux解壓 tar命令 find -name 'xixi.php' |xargs perl -pi -e 's|hello|aa|g'find -name '*.html' |xargs perl -pi -e 's|aa|hello|g'find -name '*.html' |xargs perl -pi -e 's|<script src="a.js([^>]*)></script>||g'