Perl

open(FILE,”這個檔案的路徑”);@content=<FILE>;$lineCount=@content; for($item=0;$item<$lineCount;$item++){$tileContent=$content[$item];$item++;If(tileContent =~^/~)#找到開頭是以   ~   的行{$ComponentContent=$content[$item];$item++;If($ComponentContent

Perl中讀寫Excel很方便，貼段代碼為以後參考。讀寫Excel的組件需要另外安裝，指令如下：   perl -MCPAN -e shell -> install Spreadsheet::WriteExcel    perl -MCPAN -e shell -> install Spreadsheet::ParseExcel #!/usr/bin/perluse Spreadsheet::WriteExcel; #寫入Excel資料use

Here I'll summarize three ways to open a temporary file using Perl. The first way is to create the new object via module IO::File to get a read/write file handle as below.        my $temp_fh = IO::File->new_tmpfile;Perl closes these files when

#!/usr/bin/perluse strict;use warnings;use DateTime;my $dt2 = DateTime->new(                       year   => 2013,                       month  => 8,                       day    => 2,                       hour   => 9,                

# Recently, I experienced Notes crash problems several times. # It wasted me a lot of time to terminate Notes completely and then restart it, # so I wrote this Perl script to save myself. Also hope it's helpful to you when you read these comments #

$_這個特殊變數是許多Perl函數的預設參數,也是許多Perl控制結構的預設控制變數. $_特殊變數也可當作一個函數調用缺失的參數來使用.foreach 結構的控制變數是可選的,預設為$_的值.Perl把最近發生的系統錯誤訊息儲存在特殊變數$!中.#! /usr/local/bin/perl -W#fig05_03.plforeach $name('Amanda','Jeff','Sarah','David') {   print "$name";}print

　　事發　　我無聊的翻著散落案頭的書籍，這些都是五花八門的關於編程和系統管理的著作。幹了這麼多年程式員，大大小小的軟體和項目也做了無數。每每有新入行的朋友問我這個所謂的"老前輩"：哪種語言最好之類的問題，我總會作出一副知識淵博的樣子，複述著從更老的老前輩那裡聽來的或者某些名著上看來的"知識"。就好比我們從學習編程的第一天起，就被電腦老師告知，COBOL語言是擅長處理商務事務、FOTRAN語言是用於科學計算一樣。類似的知識還有"組合語言比C語言快得多"以及"JAVA是一種效率很低的語言環境"在一代

In addition to alternative list implementations, the library also offers other tools such as the bisect module with functions for manipulating sorted lists:>>> import bisect>>> scores = [(100, 'perl'), (200, 'tcl'), (400, 'lua'), (5

如果想在任意目錄下直接調用，則要配置其相應的環境變數。下面簡單說幾個環境變數的配置：1.java:   下載jdk,之後安裝或解壓。  設定環境變數：  JAVA_HOME=C:/jdk1.5.0_03  PATH=%JAVA_HOME%/bin/;%PATH%   CLASSPATH=.;%JAVA_HOME%/lib/dt.jar;%JAVA_HOME%/lib/tools.jar   linux下的配置   .bashrc檔案   set

perl定義的變數預設是全域1）my 作用：把變數的名字和值都限於某個範圍內，也就是說，該變數只能本層模組或者函數可以看到這個變數，高一層或者低一層的都看不到。2）our 作用：把變數名字限於某個範圍，其實就是明確聲明一個”全域變數”，雖然是在某個模組或者函數裡面定義，外面的也可以訪問，如果已經聲明過了，再次用our，表示此處用的和之前聲明的our變數是同一個。3）local 作用：把值局限於某個範圍，該範圍與my有所區別的是，包含本層及本層的下層，但本層的上一層不可以訪問。4）全域變數use

“our”,"把名字限於某個範圍“，其實就是明確聲明一個"全域變數"，雖然是在某個模組或者函數裡面定義的，外面的也可以訪問，如果已經聲明過了，再次用"our",表示此處用的是全域的那個，不是同名的私人或者局部變數our $PROGRAM_NAME = "waiter";{my $PROGRAM_NAME = "something";our $PROGRAM_NAME = "server"; #這裡的our和外面的相同，和前句不同。# 這裡調用的代碼看到的是"server"}#

$- 當前頁可列印的行數,屬於Perl格式系統的一部分$! 根據上下文內容返回錯誤號碼或者錯誤串$” 清單分隔符號$# 列印數字時預設的數字輸出格式$$ Perl解譯器的進程ID$% 當前輸出通道的當前頁號$& 與上個格式匹配的字串$( 當前進程的組ID$) 當前進程的有效組ID$* 設定1表示處理多行格式.現在多以/s和/m修飾符取代之.$, 當前輸出欄位分隔符號$. 上次閱讀的檔案的當前輸入行號$/ 當前輸入記錄分隔字元,預設情況是新行$:

$total=0;$count=0;eval { $average = $total / $count ; print "xxx/n";} ; if ($@){  print "wrong /n";}else{  print "right/n";} eval塊的結束時的分號是必須的，因為不像 if或者while那樣的控制結構，eval實際上是個函數。但是代碼塊是真的塊，所以可以包括詞法變數（"my"

測試指令碼如下： my $run_app_path = "c://exit_value.pl";my $ret_val = system( $run_app_path );print "system value is : $ret_val/n";$ret_val = $ret_val >> 8;print "return value is : $ret_val/n";exit 0;  其中，exit_value.pl 指令碼內容如下： use strict;use warnings;

sub checkMD5() {  my ( $md5val,$scan_file) = @_;  if ( $md5val !~ /[0-9a-f]{32}/i) { die "invalid md5 value./n"; }     if( ! -e $scan_file ) { print "No updateX file exist. /n"; return -1 ;}          print "/n<<<<<<<<<<&

 讀文檔： http://search.cpan.org/~gaas/Digest-MD5-2.39/MD5.pm後， 非常有用章段：This is useful when calculating checksum for files: use Digest::MD5; my $file = shift || "/etc/passwd"; open(FILE, $file) or die "Can't open '$file': $!"; binmode(FILE);

VC中調用PERL子程式作者： 來源：zz 發表時間：2007-02-09 瀏覽次數： 2691 字型大小：大 中 小因需要，要在VC中調用PERL子程式對檔案進行處理。通過看PERL說明文檔折騰了好長時間，可以運行。現與大家分享，呵呵，希望對大家有所協助^ -^1在工程檔案中加入 perl58.dll2. 在VC中加入標頭檔#include <EXTERN.h>#include <perl.h>3．void perl_sub(char*a){int

1.搭建perl運行環境，windows下面可以使用ActivePerl，安裝完之後請確認path裡面有perl的目錄，或者在控制台裡面敲perl -h 驗證環境時候搭建成功。2.編寫perl程式，簡單一個：#!/usr/bin/perluse strict;use warnings;my $status;### die this directory$status = system("dir > dirHere.log "  ) ;if ($status != 0){print "dir

用VS來使用C#的應該知道有個自動屬性，類似於public int MyProperty { get; set; }他幫你自動產生get/set方法，還幫你把這些方法綁定到該屬性上，很方便的說，但是C++的IDE裡沒有這個功能的，而且我們C++需要寫 _declspec(property(put=setJobID, get=getJobID)) unsigned long jobID; void setJobID(unsigned long

1.Html中Tag提取<("[^"]*"|'[^']*'|[^'">])*>2.提取<a></a>標籤中的url和連結文本while ($Html =~ m{a\b([^>]+)>(.*?)</a>}ig){my $Guts = $1;my $Link = $2;if ($Guts =~ m{\b HREF#href屬性\s* =