发布时间：2013-04-22 16:48:19
#!/usr/bin/perl -wuse Cache::Memcached;use DBI;use Digest::MD5 qw(md5 md5_hex);my $dbh = DBI->connect("DBI:mysql:database=test;host=localhost", "test", "test", {'RaiseError' => 1}); $dbh->do("set names utf8"); my $sth = $dbh->prepare($ARGV[0]);$memd =.........【阅读全文】
发布时间：2013-04-22 16:38:31
#!/usr/bin/perl -wuse MongoDB;use strict;my $filename = "gc_monitor.pdf";my $fileoutname = "gc_monitor1.pdf";my ($buf,$out);open(DATA, $filename) or die "can't open $filename: $!";open(DATAOUT, ">$fileoutname") or die "can't open $fileoutname: $!";binmode(DATA);binmode(DATAOUT);while(.........【阅读全文】
发布时间：2013-04-22 16:35:37
perl嵌入c语言原理为使用c外部过程,使用xs语言来扩展和编译模块，然后调用,步骤如下#h2xs -A -n myperl /* 创建一个名叫myperl的工程 */编辑其中的myperl.xs 如#include "EXTERN.h"#include "perl.h"#include "XSUB.h"#include "ppport.h"MODULE = myperl PAC.........【阅读全文】
