洞经常是越钻越大。本来是要尝试如何能使 S60 程序摆脱缺省的启动代码，而是用自己的启动代码的。 追寻这个目标的第一步是查看 Symbian 可执行程序的真正入口点，这个很快就找到了，是一个名叫 _E32Startup 的函数。立刻照猫画虎仿效当前自己在 Windows 下写 WinMainCRTStartup 的做法，写了一个同名函数，把实现留空，试图替换掉编译器默认提供的入口。 这个小工作的进

功能：当Linux磁盘分区达到70%时，自动发送邮件报警，使用前提：在被监控服务器上开启sendmail即可。 #!/usr/bin/perl $ip_addr=`/sbin/ifconfig eth0 | perl -lne 'print \$1 if/inet addr:(.*)Bcast/'`; $ip_addr=~ s/^\s+|\s+$//g; $admin_addr = 'youshe

#!/usr/bin/perl use warnings; use File::Copy; no warnings 'recursion'; ###########################################Main Rountine Begin################################################# #promote

Perl调试器的用法： 缺省的Perl调试器就是perl解释器本身，另外还有图形界面的调试器。因为我们在开发 程序时一般都使用telnet访问服务器，所以这里主要介绍一下缺省的命令行调试器的用法。用 -d 命令行选项启动Perl解释器，例如 perl -d test.pl 即进入Perl调试器的交互界面。 调试命令列表如下：（所有命令都在调试提示符下顶格输入，命令大小写有关） h：显示调试器的帮助

有些网站仅靠简单的GET和POST请求是不能访问的，他们需要cookie，验证，指定的Referer或者User-Agent头部信息。 cookie由服务器创建发送给请求者，再由客户端发出请求的时候在header中添加cookie发送给服务器。例如某个客户端给服务器发送了一个请求，然后服务器给客户端的应答头部为： Date: Thu, 28 Feb 2002 04:29:13 GMT Server

最近从服务器日志中经常发现MT的错误日志： Name "Locale::Maketext::Lexicon" used only once: possible typo at .../extlib/Locale/Maketext.pm line 653.,.... 解决方法： 删除 mt/extlib/目录下的I18N/ 和 Locale/ 目录即可； 原因： 服务器上已经升级到Perl 5.10

[root@localhost ~]# perldoc -q support Error in tempfile() using ./XXXXXXXXXX: Parent directory (./) is not a directory at /usr/lib/perl5/5.8.8/Pod/Perldoc.pm line 1483 无论perldoc后面是什么参数都是一样的错误，之前升级per

#!/usr/bin/perl use warnings; use strict; my$flag=0; my$a; while(<DATA>) {     if(/^>/)     {         $flag = 1;         $a = 0;     }     if($flag )     {         print $_;         $a++;     }     if

sed -n -r ; -n表示quiet， 只输出匹配结果； -r表示使用正则表达式   re： * 匹配任意 ? 匹配0,1 + 匹配>=1     []: 匹配其中任意字符；中括号内的连续字符可以使用-， 0-9表示0,1,2,3,4,5,6,7,8,9 [^]: 匹配非中括号中的任意字符 echo "def" | sed -n -r "/d[eE]f/p"         输出:def e

安装perl5.8.8： cd perl-5.8.8 && rm -f config.sh Policy.sh && sh Configure -Dusethreads -de  &&  make  && make test  && make install mv  /usr/bin/perl   /usr/bin/perl.bak ln -s   /usr/local/bin/perl  /us

  让你的perl代码看起来更像perl代码，而不是像C或者BASIC代码，最好的办法就是去了解perl的内置变量。perl可以通过这些内置变量可以控制程序运行时的诸多方面。 本文中，我们一起领略一下众多内置变量在文件的输入输出控制上的出色表现。 行计数 我决定写这篇文章的一个原因就是，当我发现很多人都不知道“$.”内置变量的存在，这的确让我很吃惊。 我依然能看到很多人是这样写代码的： 代码  

FoneSoft CRM是基于vigercrm503去修改的，故只要使用Asterix 5 Integration弹屏插件，就可以实现弹屏功能， 实现方法也较为简单，可以按以下几步操作： 1、安装asterisk-perl-0.10.tar.tar，因系统的0.09版本有bug，而0.10版飞云已修正了； 解压asterisk-perl-0.10.tar.tar后，进入目录 perl Makefi

近期在研究asterisk的agi，因使用了perl去写脚本，故参考了voip-info的文章， 现将perl agi的模块转进来，以供日后参考。 以下为原文： Asterisk perl agi Asterisk::AGI perl module documentation NAME Asterisk::AGI – Simple Asterisk Gateway Interface Class

方便理解，Perl的fork函数派生子进程的过程：   #!/usr/bin/perl -w  # wangxiaoyu#live.com use strict;     defined(my $pid=fork()) or die "Fork process failured:$!\n";   unless($pid)  

1. Perl函数   通过 & 调用. 2. Perl参数   Perl天然支持可变数目个参数。   在函数内部，所有参数按顺序放在数组 @_ 中。   在函数内部，$_[0] 表示函数的第一个参数。其余类推。 3. shift   shift 后跟一个数组，表示将数组的第一个值返回。数组也被改变，其第一个元素被弹出。   演示代码一(求最大值): #!/usr/bin/perl -w use

注意，symbian在V3 FP2之后才正式支持QT的，也就是说V5也是支持的。 1. Symbian SDK的安装（用Carbide C++ 2.0做IDE） Active Perl Installation - Download Active Perl from http://www.activestate.com/activeperl/ - install it to C:/Perl or

  今天学习了perl的正则表达式，它重要吗？已经很久没有用过了，但是需要的时候就急了，因为每次用过就仍了，没有好好的理解过。 regular expression' world is full of interesting. believe that and study it in the core. regular expression帮助我们match、replace文本。 我将regula

package   MYXML; require      Exporter; our @ISA       =qw(Exporter); our $VERSION   = 1.00;         #version our @EXPORT    =qw(MyXMLSimple); our @EXPORT    =qw(GetNodeByPath); ######################

Comprehensive Perl Archive Network是Perl资源的宝库。Perl模块资源的管理工具cpan, 则是安装Perl包时的必不可以的强大工具。但很多Perl模块常常需要依赖很多其它模块才能正常运行。cpan程序的默认设置是需要手工确认这些依赖模块的安装，因此安装起来十分繁琐，费时。经过查找相关的资料，找到了cpan自动安装依赖模块的配置选项。进行如下设置，就可以使cpa

2010年8月11号的主要安排：     1、阅读最近几天收集的组态软件和OPC的相关内容 2、如果上面做完后，可以继续收集一些组态软件和OPC的内容 3、了解TwinCat的相关知识《BECKHOFF 嵌入式PC从入门到精通.pdf》 阅读 4、晚上去图书馆安排研二这一年的学习工作计划，要详细到周，每周、每月，年度计划。包括身体、技术、软实力方面的（英语、文学等等） 5、总结2010-08-11

最近公司的项目差不多都做完了，趁新项目还没来的时候学学东西。从朋友那里搞来一套mtk的源代码学学mtk的开发。选择mtk是因为，它跟我的工作所用的平台相似，学起来方便一点，另外一点是它可以在PC上跑，不用自己去买硬件，成本不高。呵呵，从朋友那里搞来的源代码，不用硬件，成本就只有时间了。 我的那个朋友还真绝，丢给我一个源代码就什么都不管了。我问他一些问题一律不答，还美其名曰：“你不是学习么，自己去找

找一个简单的Perl Socket程序，如下Server程序，运行它     while(<CLIENT>){         chomp;         print "Message From Client: $_/n";         print CLIENT $_;     } 你将发现，server端程序无法发送信息到client，程序阻塞无法继续运行。 解决方法： use Socke

用Perl写了一段调用SOAP服务的代码。本来很简单的一个事情，研究了大概两天，主要还是对Perl不太熟。另外调用的这个SOAP服务比较奇怪，没有WSDL文件，也没有说明文档，我只是根据之前开发人员用Java写的一个例子改写的。 这里面有两个地方相对特殊，一是需要验证，二是直接将Soap消息（SOAP Envelop）发送给服务器端处理，具体代码如下：   use XML::Simple; us

Perl 就是 Practical Extraction and Reporting Language 的简称，是一种最广泛应用于语法分析和 World Wide Web 的编程语言。它起源于 awk、C、sh 和 sed 语言，然而，它的应用开发远比其他任何一种面向对象编程语言更加容易。 　　Perl 语言由 Larry Wall 创建，最初作为一种实用解释语言。其主要功能最初是用于分析基于文本

真无聊 搞什么Symbian 破Symbian，开发环境真麻烦。不过developer.symbian.org蛮好的   参考http://developer.symbian.org/wiki/index.php/What_are_the_application_developer_kits%3F   下载 perl，必须用5.6.1版，不然不行 jre，要下1.5（5.0）的，不然不行 ADT_

一个程序，如下功能，多线程同时下载多个图片并保存。 具体的多线程代码片段如下： use Thread; ...... for my $list (@list){   print "Download begin./n";   my $thread = Thread->new(/&DownLoadFunction,$parameters);   $thread->join(); } 运行这个程序你将发

Available commands are:   l            - List all installed modules   m <module>   - Select a module   q            - Quit the programcmd?

类函数调用 Class->method(@arg)===================Class::method('Class', @args); 第一个参数是类名称   对象(实例)函数调用 Instance->method(@arg)=================Class::method(Instance, @arg);  第一个参数是instace   bless的解释可参见 htt

本文的PDF版本：http://wenku.baidu.com/view/bdbd8aeae009581b6bd9ebfe.html 学习笔记 简介 Perl一般被认为是Practical Extraction andReport Language(实用获取与报表语言)的缩写，是由C以及sed、awk、Unix shell及其它语言演化而来的一种语言。它由语言学家Larry Wall最初发明及实现

Start learning Perl scripts, record some useful Perl functions here.   Int() Function int() can return a integer from a float value. [user@host perl]$ perl -e "print int(1.6)" 1[user@host perl]$ perl