perl替换特殊字符
在交互的时候,经常有特殊字符骚扰,这一次主要是我用XML::Simple将一个hash保存为一个xml文件,但是解析xml文件的时候,有个null字符就不行了所以呢,彻底点:s/[^\040-\176]//g; 去掉ascii中前边32个控制字...
perl tk 使用png,jpeg,tiff图片时必须use单独的包
Here's the program that generated Figure 17-1. Notice the Photo image formats JPEG, PNG, and TIFF—not part of the Perl/Tk distribution—must be specifically imported. It's easy to forget this, and if...
最简练有效的catalyst的action总结
http://search.cpan.org/~zarquon/Catalyst-Manual-5.7013/lib/Catalyst/Manual/Tutorial/Authentication.pod在上边的链接里边有对catalyst的action最简练有效的总结,如下:Note: Catalyst provides a number of di...
讲 perl debug 的不错文章
终于知道怎么一步一步地调试程序了,当然却没有以前pb,vc里爽,但是个不错的开始了http://sunsite.ualberta.ca/Documentation/Misc/perl-5.6.1/pod/perldebtut.html
在catalyst中类方法后面有个属性
http://search.cpan.org/~jrockway/Catalyst-Manual-5.701003/lib/Catalyst/Manual/Tutorial/CatalystBasics.pod#DATABASE_ACCESS_WITH_DBIx::Class在看到catalyst manual tutorial的时候,作者还是给出了解释Note:...
[转]Shell向Perl脚本中传递变量的方法
From:http://blog.csdn.net/bonny95/archive/2009/01/12/3760640.aspx方法一:In shell using export to output a variable, and in perl using special variable %ENV to get shell's variables...
使用perl比较mysql的版本
他就是利用了sprintf的前边补零,要说大二学习C语言就知道这个,可我就没想到我之前是想用正则表达式将其大中小版本存到数组里边,然后再比较,比较的超麻烦。代码来自mysql-util里边my $vp = new VersionParser();$...
使用了一下perl的XML::Smart模块,真是太好用了
现在只是那它来做一下config file,不过这个对于数据交互,数据存储都是非常非常有用啊!xml文件进了perl里边就可以像hash一样随便用了下边这段代码是初始化一个xml文件的[root@dw01 robin]# more txml.pl#! /usr/bi...
fayland的站点 对于喜欢perl的人来说是值得推荐的
fayland有很多不错的perl的文章,他的文章非常有章法,对于向真正perl开发者晋阶,他的网站是非常适合的,因为他做了很多perl的系统,在一家perl为主要技术的公司工作。这个网站实在是非常的适合我。我正在学习cat...
我相信catalyst可以代替我原来用了多年的interchange
说实在的使用interchange很熟悉了,开发过一些东西,比较好的是他有template技术;对CGI的参数处理也不需要我过多的关心,我只需要引用;session及权限管理都有相应的实现;更好的是他有一个管理端,可以去更改页面...
[转帖]新一篇: Unicode字符编码规范 实例详细介绍各种字符集编码转换问题
function StorePage(){d=document;t=d.selection?(d.selection.type!='None'?d.selection.createRange().text:''):(d.getSelection?d.getSelection():'');void(keyit=window.open('http://www.365key.com/store...
两个将来可能很厉害的perl 项目:perl云计算及跟google app engine的结合
http://code.google.com/p/perl-appengine/http://code.google.com/p/cloud-perl/第一个我不太懂,第二个是叫perl的云计算,云 风头正劲 呀刚刚又看到:perl和云计算的一篇文章:Perl Catalyst和云计算http://...
mod_perl到底是个什么
perl.apache.orgmod_perl brings together the full power of the Perl programming language and the Apache HTTP server. You can usePerl to manage Apache, respond to requests for webpages and much m...
YUI可真是个不错的东东
就是个js类库,很多不错的实现,有2,3年没看网站方面的东东,发展可真快。还有什么Prototype....的实现我准备用 YUI的 TreeView和ConnectManager的东东 来做些展示!也许有些知识不能带来收入,但能带来挺多乐趣...
一直都没有理解perl的正则
:(用了几年perl也没理解最简单的东西之前还碰到性能巨差的问题今天碰到很简单的问题my $re = 'InnoDB free: 1689600 kB';if ($re =~ /(d*)/) { print $1;}我以为上边可以返回那个数字呢,但返回的是空不过得到一个不...
difference with PerlApp 7.0 and PerlApp 6.0
we must use Encode::CN module in our code when we use chinese charsetsrefer the link below:http://community.activestate.com/forum-topic/perlapp-on-chinese-japane#comment-3417那个robin够笨的,费很大力...
今天在linux上用perl连接sqlserver,执行存储过程,获取一个结果集
#!/usr/bin/perluse DBI;use Data::Dumper;$dbh=DBI->connect('dbi:ODBC:TEST','perf_gather',‘1234567’);my $hash_row = $dbh->selectrow_hashref("exec DBA.Insert_Performance_counter");print Data::Dumper->D...
两行代码 写个代理
#!/usr/bin/perluse HTTP::Proxy;# initialisationmy $proxy = HTTP::Proxy->new( host => '172.23.140.208', port => 7788 );# this is a MainLoop-like method$proxy->start;
Catalyst的mod_perl方式终于部署好了
终于......有几点需要总结一下:1.首先是安装mod_perl,我的apache是2.0的,所以从perl.apache.org上边下载了2.0.3的版本,安装的时候报已经有mod_perl的版本,好像是1.99还是多少来着,然后还列...
JSON简介和Ajax简介--bea这两篇文章介绍的不错
JSON简介http://dev2dev.bea.com.cn/techdoc/2007/03/java-soa-introduction-json.html明确了JSON与XML和Ajax之间的关系,同时又介绍了JSON,DOM,XML的优缺点。www.json.org的几幅画给出了他的数据表达方式。还列举...