Bo Yang's Blog

Perl中的特殊变量1. $&, $`,$ 用在模式匹配中$&  用来存放匹配中的值$`   用来存放匹配中之前所有字符$   用来存放匹配中之后所有字符如：#!/usr/bin/perl -wif("Hello good  there,neigbor hello" =~ /S(w+),/){        print "That actually matched $&. ";      

原文：http://www.foo.be/docs/tpj/issues/vol4_2/tpj0402-0016.html原文中图片全部挂掉，估计时间太久没人维护了……因此出于抢救知识的目的转载此文。PREVIOUS TABLE OF CONTENTS NEXT Perl/Tk Menus: Past, Present and Futur

<br />Shell本身不支持浮点数运算，(())之类的数学运算符只能进行整数运算。要想在shell中运算浮点数，只能借助于bc, Awk或者Perl。 如<br />a=0.1b=0.2c=$(echo "$a+$b" | bc -l) <br />或者<br />perl -e "print STDOUT $a + $b;" <br /> <br />需要注意的是，如果数学表达式中有负数，则必须确保运算符(+ - * /)与其前后的表达式之间至少有一空格。如：<br />[bonn@bonn

<br />参考链接：http://stackoverflow.com/questions/841785/how-do-i-include-a-perl-module-thats-in-a-different-directoryhttp://stackoverflow.com/questions/185114/how-do-i-use-a-perl-module-in-a-directory-not-in-inc<br /> <br />在Fedora/RHEL/CentOS中，perl 的library默

How to Debug Perl Library and Scripts? 1. Changing @INC - where Perl loads its modules (http://www.wellho.net/mouth/588_Changing-INC-where-Perl-loads-its-modules.html) The @INC array is a list of directories Perl searches when attempting to load modu

进来遇到很多英语生词，工具书上给的解释错误百出，而很多在线词典不但可以给出某个单词的解释，而且有大量的示例，因此猜想利用在线词典批量查询这些单词。怎么实现呢？首要问题是如何自动获取某个单词的解释。搜索之后，发现可以用curl实现，如curl -s "http://www.google.com/dictionary?aq=f&langpair=en|en&q="$1"&hl=en" | html2text -nobs | sed '1,/^ *Dictionary/]/d' | head -n -5 | le

<br />From: http://www.cnitblog.com/gyn/archive/2006/04/06/8824.html<br /> <br />Client:<br />#!/usr/bin/perl #===============================================================================## FILE: file_trans_clt.pl## USAGE: ./f

Shell Commands vs. Perl ClauseWhile there are some occasions that using shell commands from Perl are justified, there are many more when they are not. Decide: use the shell OR use Perl. Mixing t

The  -e option is handy for quick Perl operationsfrom the command line. Want to change all instances of "oldstring" inWiffle.bat to "newstrong"? Try perl -i.old -p -e "s/ oldstring/ newstrong/

 PERL Handling Binary Scalar1 [Question]:I adopt select()...sysread()...syswrite() mechanism to handle socket messages, where messages are sysread() into $buffer (binary) before they are

Part I    Programming Perl1 Perl Data Types1.1 Funny CharactersTypeCharacterExampleIs a name for:Scalar$$centsAn individual value (number or string)Array@@large

 PERL打印收到的Socket消息利用Perl的Select(),sysread()和syswrite()收到的消息将以二进制的形式存储到$buffer中，因此如果直接打印$buffer的内容将得到乱码。要将二进制内容转换为十六进制数串，则必须使用unpack()函数，即：my $hexstr=unpack("H*",$buffer);而此时如果打印$hexstr将得到一系列

As always with Perl there is more than one way to do it. Below are a few examples of approaches to making common conversions between number representations. This is intended to be representational r

 Part II    Network Programming With Perl1 Input/Output Basics1.1 FilehandlesFilehandles are the foundation of networked applications. In this section we review the ins and outs of filehandles. Even i

 How do I add a directory to my include path (@INC) at runtime?Here are the suggested ways of modifying your include path, including environment variables, run-time switches, and in-code statements:th

3 Introduction To Berkeley Sockets3.1 Basic Concepts3.1.1 Binary versus Text-Oriented ProtocolsBefore they can exchange information across the network, hosts have a fundamental choice to make. They ca

方法一：In shell using export  to output a variable, and in perl using special variable %ENV to get shells variables.i.e.:--- shell box---$ /bin/ksh# export x=Foo# perl -e print $ENV{"x"}----------

In Vim, greedy matching is used by default. In order to use non-greedy matching, you can use \{-}, or \{-n,m}, such as: :/Q.\{-0,200}[IL].\{-0,2000}FF.In Perl, default matching is also greedy. To us