No. Liu

编译语言：1.C语言能力要求：至少要达到精通选用教材：《C Primer Plus 中文版（第5版）》其他教材：《标准C程序设计（第3版）》《C语言入门经典（原书第3版）》补充教材：《C程序设计语言》《C陷阱与缺陷》《C专家编程》《C与指针》2.C++语言能力要求：至少要达到熟练选用教材：《C++ Primer 中文版（第4版）》其他教材：《C++ Primer

--数据--[HOST 1]IP = 16.173.234.228PORT = "21,80,873,3306" CPU = +10% FREEMEM = -3% CONCONN = +1000 CHECKGW = 1 FREEDISK = -10% SWAPUSED = +30000 [/HOST][HOST 2]IP = 16.173.235.25PORT =

适用于 键 = 值 形配置文件1.txt，- - DATA - -# set class C netNETMASK = 255.255.255.0MTU = 296DEVICE = cua1RATE = 115200MODE = adaptive读取配置文件：File_Open()  ,    File_Close 函数采用

if的匹配条件语法 ： if ( $a =~ m/ ... /){ ... }通常我们会看到这样的语句：if ( / ... / ){ ... }没有变量$a， 其实不然，在仔细看看，这句应该是在读取一个文件之类的，实质上有变量$_，当$_作为变量时，我们可以在条件中省略，因为if知道谁是变量 。例如：$a = "char22";if(my ($a) = $a =~

转载1: http://www.php-oa.com/2009/06/09/perl_signal.html转载2: http://blog.163.com/zhuyu_blog/blog/static/26735153200743072258824/参考：http://search.cpan.org/~dlux/Parallel-ForkManager-0.7.9/lib/Par

【waitpid系统调用】       功能描述： 等待进程改变其状态。所有下面哪些调用都被用于等待子进程状态的改变，获取状态已改变的子进程信息。状态改变可被认为是：1.子进程已终止。2.信号导致子进程停止执行。3.信号恢复子进程的执行。在子进程终止的情况下，wait调用将允许系统释放与子进程关联的资源。如果不执行wait，终止了的子进程会停留在"zombie"状态。如果发现子

作者：linux宝库 (http://www.linuxmine.com)来自：linux宝库 (http://www.linuxmine.com)现存：http://www.linuxmine.com/3176.html联系：linuxmine#gmail.com不明白？欢迎到 linux论坛 (http://bbs.linuxmine.com) 参加讨论!作者：ho

perl作为一种解释性的语言，很受广大系统管理员的欢迎，好处么就不多说了，坏处也有不少，例如对线程的支持，就一直不咋地，所以大多数情况下，我们都需要多个进程，来帮助我们完成工作，闲话少说，上代码。#!/usr/bin/perl# test_proc.pl# test multi process# create by lianming: 2009-08-12use strict;

http://hi.baidu.com/yafeiie/blog/item/540112a87ab3d8bacb130cbc.html

1、建立一个套接字。2、绑定本机IP和绑口 3、假如是TCP（面向连接的），要利用Listen()方法监听网络是否有信息传递过来；假如是UDP（无连接的），那就来者不拒了。4、如果监听一个TCP情况下的连接，可以使用accept来接收这个连接，然后用Send/Receive来执行这操作。而UDP，不需要accept，直接使用SendTo/ReceiveFrom来执行操作。5、最后，想停止发送和

从大学稀稀拉拉地学计算机语言到工作之后的密密麻麻地看程序，也有一段时间了。发现面向对象的思想真的很强悍，或是组合的思想（N子函数进行组合来完成一个任务）。以前一直听老师讲，它是多么的重要和强悍，可是上学那会真听不进去，对待上课只能用“打发”来形容了。举一个perl语言的例子：文件到读写操作，下面举出的是读文件和写文件的例子，用子函数组合组合就可以完成了，就像是搭建积木。当然

Great Perl Modules:   CGI Clone Cwd Data::Dumper DBI Class::DBI DBIx::Class Rose::DB::Object DBIx::Simple SQL::Interp Devel::DProf Devel::SmallProf Encode ExtUtils::Insta

FROM http://bbs.chinaunix.net/thread-1191868-1-1.html让你的perl代码看起来更像perl代码，而不是像C或者BASIC代码，最好的办法就是去了解perl的内置变量。perl可以通过这些内置变量可以控制程序运行时的诸多方面。本文中，我们一起领略一下众多内置变量在文件的输入输出控制上的出色表现。行计数我决定写这篇文章的一个原因就

在网上搜到一个帖子，很有价值：http://bbs.chinaunix.net/thread-1626493-1-2.html在这里原贴复制过来，版权归FLW所有：老有人问我 excel 中文乱码的问题，我平时很少接触这一块，每次都得从头研究，现在把结论记录在这里，以做备忘。读：use strict;use warnings;

昨天给我媳妇做excel 表分析器的时候，调试运行一切正常，用perl DEV KIT 生成 exe后，中文无法识别（unknow encoding 'gb2312' or 'gbk'）调试运行时 所用关于encoding 的模块use encode qw(decode);sub T {my $text = shift;return decode( 'gb2312',

原创ZengYuetian， 转载请注明出处http://blog.youkuaiyun.com/yuetiantian一直想学习如何用Perl来开发动态网页，但是苦于找不到合适的入门教程。偶然在网上看到了老外的一份教程，里面比较详细地介绍了如何在web server上运行Perl编写的CGI脚本。不过他里面有些步骤被省略了，倒腾了一阵终于可以在自己的本本上运行HelloWorld了，十分高兴

#!/usr/bin/perl$max=20;for $i (1..$max) {        $arr[$i-1]=$i;}for ($i=$max;$i>0;$i--) {        $randx=int( rand() * $i );        print "$arr[$randx]\n";        $arr[$randx]=$arr[$i-1

[Perl]Win32::GUI官方教程翻译 Part1-窗口配置编辑 IF_EXIST / PakTCmail: 523066680@163.com所编辑的内容均从该文档中翻译提取，并加上自己的描述：http://search.cpan.org/~robertmay/Win32-GUI-1.06/docs/GUI/Tutorial/Part1.pod如果已经安装Win32

#!/usr/bin/perluse Getopt::Long;Getopt::Long::GetOptions( 'page=i' => \$page, 'onoff!' => \$onoff, 'help|h' => \$wants_help,

#copy / move 实用方法： #usr/bin/perl -wuse File::Copy;copy("C:/Users/liuweic/Desktop/1.jpg","C:/Users/liuweic/Desktop/2.jpg") or die "can not copy";move("C:/Users/liuweic/Desktop/1.jpg","C:/Users/l

#usr/bin/perl -wuse strict;use Spreadsheet::WriteExcel;my $workbook = Spreadsheet::WriteExcel -> new('perl.xls');my $worksheet = $workbook -> add_worksheet('sheetname1');$worksheet -> write("A1

例子：#usr/bin.perl -wuse strict;use SpreadSheet::ParseExcel;#Be used to read excel informationuse SpreadSheet::ParseExcel::FmtUnicode;use Unicode::Map;my $formatter = Spreadsheet::ParseExce

下面是 FTP上传和下载的pl代码，上传下载用get/put来获取。use net::ftp;my $username = "liuweichuanusrname";my $password = "liuweichuanpassword";my $remotefile = "test.txt";my $localfile = "a.txt";my $remotefilename

#!/usr/bin/perl  #perl script used to connect to Oracle  use strict;  use DBI;  #声明数据连接所需的参数my $ip="127.0.0.1";      #oracle所在机器的ipmy $sid = "orcl";        #数据库实例  my $username = "liu";

我们在处理每一行的同时，更多的是处理每一行中的单个词。- -DATA:- -# set class C netNETMASK = 255.255.255.0MTU = 296DEVICE = cua1RATE = 115200MODE J = adap tive用foreach+split：#usr/bin/perl -wm

毋容置疑，编程的分分合合是很重要的思想。就像下面的文件一样：use File::Spec::Functions;use strict;################################################################# routines for Debug output#sub DEBUG_Activate { o

sub ShowUsage { print STDOUT << "EOF";moniter my computer diskusage: $0 file [-d] [-h] -d: excute -h: this (help) messageEOF }EOF 是一个标记的名字，自定义标记名称

核心语句：$t =~ s/^(\s+)|(\s+)$//g;例子：#!usr/bin/perlsub AUX_trim{    my $t;    $t = $_[0];    if($t){        $t =~ s/^(\s+)|(\s+)$//g;    }        return $t;    exit;}my @te

#!/usr/bin/perluse strict;use warnings;my $command = 'df ';if ( scalar(@ARGV) > 0 ) { my $args = join " ", @ARGV; $command = $command . $args;}my @result = `$command`;my @return = ();push

code，从windows copy到linux，要注意改变成dos格式。参看这个的解释http://blog.youkuaiyun.com/delphiwcdj/article/details/6430606

不想安装PL SQL，就写了下面的代码。查询数据库并写文件到txt：#!/usr/bin/perl #perl script used to connect to Oracle use strict; use DBI; use txt_to_excel;#声明数据连接所需的参数my $ip="16.157.128.xx"; #oracle所在机器的ipmy

http://blog.youkuaiyun.com/utopia_wang/article/details/2514647

语法：read FILEHANDLE, SCALAR, LENGTH, OFFSET read FILEHANDLE, SCALAR, LENGTH 解读OFFSET：$offset 只和 $var 相关，可以这么理解: 首先将 $var 截短为 $offset 长的字符串，如果不足就补\0; 然后  $var .= "读到的内容"date369c

语法 ：tell FH 或　tell (FN)主要记录文件当前读取的位置。DATAaaa bbb cccddd eee CODE#!usr/bin/perl -wopen(F, "+<", "C:/Users/liuweic/Desktop/seek.txt") or die "can't open the file:$!";while(

语法： seek FILEHANDLE, OFFSET, WHENCE  或  seek(FILEHANDLE, OFFSET, WHENCE)seek 文件句柄，偏移量，起点位置。WHENCE 有三个数值：0， 1， 2： 0文件的开始；1当前位置；2文件的尾部。当然WHENCE 为1或2时，OFFSET可以为负值。举例：- - -DA

下面是按照类别排列的 Perl 的函数和类函数关键字。有些函数在多个标题下出现。 标量操作 chomp, chop, chr, crypt, hex, index, lc, lcfirst, length, oct, ord, pack, q//, qq//, reverse, rindex, sprintf, substr, tr///, uc, ucfirst, y///

我的PC机是windows vista, 进入Perl程序安装路径下的bin文件夹，启动ppm.bat：这时会弹出模块安装选择窗口：然后选择安装，即可。PS：windows有的版本是不谈窗口的，那么就需要手动在 命令行下输入   install   module_name  回车。其他OS安装方法请参照 http://blog.youkuaiyun.com/teng

http://blog.youkuaiyun.com/wind9984/article/details/4396047

#!usr/bin/perluse strict;use File::stat;my $path;$path = "C:/Users/liuweic/Desktop/df study/s.txt";# scalar(localtime()) 转化正常时间格式 具体请参考 perldoc -f localtimeprint scalar(localtime(stat($p