Perl

Perl Unicode轉換概括：1.判斷輸入源的編碼方式2.輸入源是utf8編碼 　　a. Encode::_utf8_on($str);開啟utf8 flag。　輸入源非utf8編碼 　　a. $string = decode(ENCODING,$octets [,CHECK]);將輸入源轉化成utf8編碼並開啟utf8 flag3.輸出 　　$str = Encode::encode(ENCODING, $str);把字串從utf8編碼轉成指定的編碼, 並關閉utf8 flag-----

現在做的一個項目，剛剛完成了所有組件的編譯連結，運行也沒問題。但是每次運行看效果都得雙擊六個程式（四個視窗程序和二個命令列程式）。就想著能不能做一個批處理一次運行了。先想到的是bat指令碼，但因為有兩個命令列程式，且都是那種死迴圈不退出的那種，這造成在bat中開了第一個時卡住不運行第二個。在網上找了一下關於如何讓其後台啟動並執行資料，都是關於VB方面的。後來想PERL對於這種應該是小菜一碟吧，先在網上找,找到1 system("Client.exe

use strict;use warnings;#數值比較大小和字串比較大小 my $str1="1 -the first str"; my $str2="1 - the second str"; if($str1==$str2) {    print "numerically equal\n"; } if($str1 eq $str2) {    print "stringwise equal\n" ; } print "a.b"."haha" 有用的測試範例： use strict;use 

符號表 　　每個包都有自己的一個符號表，它是一個雜湊表；關鍵字是包中的變數名、檔案控制代碼、目錄控制代碼以及子常式，值是typeglob每個符號都被賦予一個typeglob(即*x)，它表示所有名為x的類型。　　每個包都有自己的符號表。無論何時使用包聲明，都要切換到該包的符號表。從一個包中訪問另外一個包的變數，可通過“ 包名 + 雙冒號( :: ) + 變數名 " 的方式指定。由於 my

http://xerces.apache.org/ The Apache Xerces Project currently consists of the following sub-projects, each focused on the development of XML parsers and related components in various languages:Apache Xerces C++ - A processor for parsing, validating,

Programming Perl (1180 pages).pdf  Teach Yourself Cgi Programming With Perl  Perl Cookbook, 2nd Ed (2003) TeamLiB good.chm  Network Programming with Perl  Advanced Perl Programming 2nd(O'Reil 2005).chm   Perl Hacks   Higher-Order Perl--A

基類是一個作業系統類 代碼Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->package os;require Exporter;@ISA = qw(Exporter);@EXPORT = qw(temp);sub getDF{}sub temp{my $this = shift;print $this->getDF();print "\n";

http://developer.51cto.com/art/201007/211617.htm

我有一個叫a.pl的Perl指令碼，裡面有類似下面的讀取命令列輸入值的語句：my $device_name = <STDIN>;如果我在b.pl指令碼裡，用system或是readpipe命令來粘合指令碼a.pl，當運行到上面這個語句的時候，命令列會提示輸入一個值。有的時候，比如說自動化指令碼測試中，希望能讓指令碼b.pl自動輸入這個值，或者說，自動在b.pl指令碼裡給a.pl指令碼裡的變數$device_name賦值。這樣，程式就可以不用人工幹預，全部自動運行了。可以在b.pl中，

1) 如何在一個字串中尋找某個字元出現的次數？原文出處：http://www.perl.com/doc/FAQs/FAQ/oldfaq-html/Q4.24.html如果你想在一個字串中尋找字元(X)出現的次數，你可以用tr///這個函數、配合下面的方法來實現：$string = “ThisXlineXhasXsomeXx’sXinXit”:$count = ($string =~ tr/X//);print “There are $count Xs in the string”;2)

fcntl FILEHANDLE,FUNCTION,SCALARImplements the fcntl(2) function. You'll probably have to say use Fcntl;first to get the correct constant definitions. Argument processing and value returned work just like ioctlbelow. For example:use

copy from http://www.lwolf.cn/blog/article/program/perl-ini.html之前有寫過用C#解析INI檔案的文章，那時是因為要用Perl來解析INI，後來就在網上找了個現成的解析代碼IniParser.       假設INI檔案是這樣的：[Directories]Input=c:\autoexec.bat      使用方法如下：use IniParser;my $ini = IniParser->new("c:\\test.ini")

Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->#! /usr/bin/perl -w$line = <STDIN>;chomp($line);if($line =~ /(^[a-zA-Z1-9]{1}\w*(\-{0,1}\w{1})*(\.{0,1}\w{1})*[a-zA-Z1-9]{1,}@([a-zA-Z1-9]{1,}\-*\

Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->#找到輸入的檔案清單，返回一個數組sub arr_argv_file{        my @arr_fname = @_;        my @arr_file_list;        foreach $list(@arr_fname){        chomp($list);         

#最近做東西老用到處理時間的問題，索性寫幾個函數。#!/usr/bin/perl -w#===============================================================================# Copyright (c) 2009, # All rights reserved.# 摘 要 ：一些常用的時間處理函數# 作 者 ：2009-12-15 xingwang# 版 本 ：0.01#==================

1、perldoc perllocal 2、推薦pmtools裡的pminst命令    http://search.cpan.org/src/MLFISHER/pmtools-1.01/pminst 3、編寫如下標本#!/usr/bin/perluse strict;use ExtUtils::Installed;my $inst= ExtUtils::Installed->new();my @modules = $inst->modules();foreach(@modules)

日誌滾動，擷取 tail -f 裡的資訊 如果 存在“Too many open files”那麼重啟apache #!/usr/bin/perlmy $now=localtime(time);&write_log("$now start reahache.pl\n" . '----------------------------------' . "\n");open Tail, '/usr/bin/tail -f /etc/httpd/logs/error_log |' or

一，基於單純的密碼驗證的情況：1.安裝Net::SSH::Perl模組，安裝方法參照Perl模組安裝。2.自動登入例子，我要用testuser使用者登陸到伺服器192.168.0.100執行df命令：#!/usr/bin/perl -wuse strict;use Net::SSH::Perl;my $host = '192.168.0.196';my $user = 'root';my $password = 'pass';my $ssh =

按小刁的意思，首先把昨天的檢測指令碼改成帶有複位功能的，然後把警示提示以郵件方式發送到指定的郵箱。---------------------------------------------------------------------------------------------------------------------------------------http://lvdbing.blog.163.com/blog/static/55801529200832111630600/ (

1 基本文法參考http://ind.ntou.edu.tw/~dada/cgi/Perlsynx.htm 2 設定檔http://www.itqun.net/content-detail/93521.htmlhttp://www.9php.com/FAQ/cxsjl/perl/2009/07/4285989147407.htmlhttp://blog.chinaunix.net/u/29291/showart_344126.html【test.pl】Code highlighting