1 用PERL编写的socket聊天室服务器程序   在这里我将告诉你如何来写一个小型的聊天室服务程序,可能会很简陋,有很多要扩展的地方. 先决条件: 你必须有很好的Perl编程的知识,一台服务器,安装Perl 5.002或更高的版本.注意大多数ISP不会允许普通用户运行聊天室程序.但是你也许可以通过一个MODEN连接来与少数几个用户试试你的聊天室系统. (如果你从CPAN获得了最新版本的IO:S

代码:     sub TC {       my $c = 3;       my $d = 4;       return $c,$d; 

[Perl] 在 Perl 下处理时间的小技巧 strftime Aug 21st, 2010 Leave a comment | Trackback 转载本站文章请注明，转载自：扶凯[http://www.php-oa.com] 本文链接: http://www.php-oa.com/2010/08/21/perl-strftime.html        在 Perl 中处理时间，很多模块，很

[perl] Spreadsheet::WriteExcel 和 Spreadsheet::Read 对 excel 文件的读写 Dec 17th, 2009 Leave a comment | Trackback 转载本站文章请注明，转载自：扶凯[http://www.php-oa.com] 本文链接: http://www.php-oa.com/2009/12/17/perl-exce.htm

perl Hash 我比较喜欢的，好多数据我都是存在 hash中。 但是有些数据我是不想他，程序退出后不保存的。所以想把数据存入文件中。 这个东西研究了 好多个小时，想找一个和 SHELL 语言一样的 >> << 文件读写方式。   经过 google 很一下。发现有几个方案是比较好的。   方案一Dump ： #!/bin/perl -w use strict; use Data::Dump '

用Perl解析xml文件，又不想下载其它模块如Dom，可以用XML::Simple来完成这个任务。 实际工作中用到的几个有用的属性： 1. KeepRoot => 1 生成的hash中显示根节点，否则从下一层节点开始显示。 2. ForceContent => 1 生成的hash中以hash结构保存节点值，如： nodename => { content => 'value' } 否则显示为： n

今天写了个简单的python程序，运行的时候居然出现以下错误： Bareword found where operator expected at.......     Bareword found where operator expected at classTest.py line 6, near "def"         (Missing semicolon on previous li

#!/bin/bash #脚本开始 #初始化空数组array. set -A array #初始化数组下标. i=0 #开始主循环. while true;do #产生随机数.         rand=$(perl -e "print int rand($(($1+1)))")         [[ $rand -eq 0 ]] && continue #向数组array中添加不重复的元素.  

Teodor Zlatanov , 程序员, Gold Software Systems Teodor Zlatanov 1999 年毕业于波士顿大学计算机工程系，他获得了硕士学位。他从 1992 年就开始做程序员，使用过 Perl、Java、C 和 C++。他的兴趣是使用开源技术进行文本解析、数据库架构、用户界面和 Unix 系统管理。 简介：  了解 Perl 程序员如何使用 3 个 CPAN

sub heapSort{     my %hashMap=@_;     my $heap = Heap::Fibonacci::Fast->new();     my $num = 0;     foreach  my $kk (keys %hashMap) {     my $k =  $hashMap{$kk};     my $v = $kk;     if( $num < 1000 )

推荐参考书籍： ============ 《UNIX操作系统设计》 http://www.china-pub.com/computers/common/info.asp?id=34 *《UNIX环境高级编程》 http://www.china-pub.com/computers/common/info.asp?id=30 《操作系统：设计与实现》（MINIX） http://www.china-p

最新版的代码请见GitHub:  https://github.com/thinkhy/PerlNight/tree/master/graphicsMagicTest   ###################################################################### # file:   gm.pl     # brief:  Test tool for

声明：以下涉及的内容只作为学习的目的，任何因为滥用本篇内容而导致对个人或者企业组织造成危害，作者并不承担任何责任。 ◆ 目标软件 Easy RM to MP3 Converter（版本2.7.3.700） ◆ 辅助工具 WinDbg6.12、Metasploit3.4.1、ActivePerl5.12 ◆ 漏洞描述 通过创建一个恶意的.m3u文件将触发Easy RM to MP3 Converte

1. <STDIN>       结束符：在windows下， CONTROL+Z     行输入：当变量是$时，它是行输入，即一行输入完成，就会返回结果;当变量是@时，它是多行输入，只有CTRL+Z会返回     2. <>    这和上面的类似，只不过上面是标准输入，而这个的输入流可以由用户来指定。指定的方式有    No 1. 在程序调用时，由命令行传入，如 myprogram a.txt

#!/usr/bin/perl use strict; use warnings; #test the open function open FH,"source.txt"; my $string1 = join '' , <FH>; print $string1; my $string2 = join '',<FH>; print $string2;#string2 内容为空 

  #!perl -w #=============================================================================== # # FILE: PerlWithOption.pl # # USAGE: ./PerlWithOption.pl # # DESCRIPTION: per

原文地址： http://hi.baidu.com/%CD%A9%CD%A9_vivian/blog/item/f29466d122015c8aa0ec9cd9.html   今天突然想把自己的perl代码编译成exe文件，网上搜了一下，看来还有不少人对这个问题研究的很深入。 按照他们的建议逐步操作，遇到了新的问题，但是最终还是顺利解决。很开心。记录一下，备忘： 很多人都想把 perl 脚本编译成

一般黑客都常用遍历方法来进行插入挂马代码等。 三种遍历 文件夹方法比较 本贴对三种遍历 文件夹方法比较。 1. 使用File::Find; 2. 递归遍历。(遍历函数为lsr) 3. 使用队列或栈遍历。(遍历函数为lsr_s) 1.use File::Find #!/usr/bin/ perl -W # # File: find.pl # Author: 路小佳 # License: GPL-2

IDA在排查由D_EXC生成的symbian死尸现场时非常有用， 不过在下觉得用IDA来直接进行汇编调试也是有用而有趣的，尤其是要面对phone release编译的情况。。     工具链生成的.map文件与IDA的地址不能直接对应，所以按函数下断点非常麻烦，要自己算地址！god。 区区本可以用emacs写个函数了事，考虑到在组内emacs普及度过低，所以编写了一个perl的bat脚本：   里

perl中的引用相当于指针，其中闭包closure实现迭代，类似数据库游标取出一行行记录。 #!/usr/bin/perl sub number_printer {                 my ($input)     = @_;                 if($input % 2){$input++};                 $rs=sub {            

2011-01-13 wcdj 小骆驼书( llama book )——《Perl语言入门》第五版 ( >=Perl 5.10, >300 pages )   (1) 安装(在Windows下) (2) 第一个简单程序 (3) "Perl"这个词的意思 (4) Perl的四个特性 (5) 代码之短。 (6) 哪些事情最适合用Perl来做？ (7) 哪些事情不适合用Perl来做？ (8) CPAN是

Perl(Practical Extraction and Report Language) 目的： 90%用于文字处理，10%用于其它。这是它的优势。 学习关键： 熟悉Larry(创始人)的思维方式 + 下面所提及的框架要点   第一部分 Perl的总体框架   对于一门语言，我习惯从以下三个方面对其分类（他们都遵循从小-->大，从局部--->整体的顺序）   注： 我觉得，这三个部分是统一的整

XS: eXternal Subroutine, 也叫做xsub. 它是perl代码中调用c或者c++ 子例程的接口。 在许多情形下，如一些CPU或内存密集型的任务，单纯使用PERL很难满足这些需求，这时，可以使用c或c++语言完成该任务，提供好接口后，通过XS接口可以直接被PERL 代码以module的形式调用。 环境: OS :debian 5 lenny   PERL: This is pe

简单多线程结构分析  ============================================================================================================  ----------------------------------------------------------------------  use thr

本文链接: http://www.php-oa.com/2010/09/05/perl-gearman-distributed.html         因为近来在研究 Mogilefs 的分布文件系统，在读读这个的源码，另外，为公司新设计了一个下载的系统，所以更加要深入研究一下，因为这个好东西是 Perl 写的，真不容易，在读这个的时间发现了几个好东西，其中一个就是我现在要提到的 Gearman

Perl模块 Net::FTP   Net::FTP    Net::FTP is part of the libnet utilities by Graham Barr. In addition to Net::FTP, libnet includes Net::SMTP, Net::NNTP, and Net::POP3. When you install the libnet modules

sub readConfig($) { my $file = shift; my %config = (); open (CF, "<", $file) or die "Error: open file: $file error!/n $!/n"; print "<-> readConfig Reading config file: $file./n"; wh

sub sendHtmlMail { my ($to, $subject, $body, $attach, $from) = @_; my $CRLF = "/r/n"; my $Raw_Bond = "=======Boundary======="; my $Bond = "--=======Boundary=======";

1. 一个给定的表达式在不同的上下文中其含义是不同的。 例如，一个数组的“name”，在列表context 中，它返回列表元素；在标量context 中， 它返回数组元素的个数。   @people = qw( fred barney betty ); @sorted = sort @people;     #列表context：barney , betty, fred $number = 42

The relationship between typeglobs, filehandles, and symbolic references is an ancient and mysterious one. Since filehandles cannot be stored directly in scalars, typeglobs used to be the only way to