perl常用功能小汇总

keminar 发表于 2012-04-13 23:57:00

验证邮箱： my $email_Address = 8\@qcn;if ($email_Address =~ /^(\w)+@(\w)+(\.\w+)+$/i) { print ok ;} else { print err;} 字符串长度 my $a = 秋水09;$len = rindex ($a.\$, \$);print $len; 字符串分隔 my @array = split(/#/,$line); 字符串连接 @array=qw(one two three);$...

» 阅读全文

Tags: perl

发表在: 开发技术 0 条评论 阅读 127 次

perl 中实现 ip2long与long2ip

keminar 发表于 2012-03-31 14:29:00

长整数和ip互转 echo 长整数|perl -ne @a = unpack(C4,(pack(N,$_))); print (join \.,@a);echo ip地址|perl -ne print unpack(N,(pack(C4,(split( /\./,$_)))))#示例:echo 58.56.212.194|perl -ne print unpack(N,(pack(C4,(split( /\./,$_)))))echo 976803010|perl -ne ...

» 阅读全文

Tags: ip2long , perl

发表在: 开发技术 0 条评论 阅读 164 次

音视频文件的远程下载(离线下载)

keminar 发表于 2011-11-26 21:00:00

这篇日志被加密了，请输入密码后查看。

perl在线程中申明和使用共享数据

keminar 发表于 2011-11-17 18:06:00

#!/usr/bin/perl # use threads; use threads::shared; use strict; my $var :shared = 0; # use :share tag to define my @array :shared = (); # use :share tag to define my %hash = (); share(%hash); # use share() funtion to define sub start { $va...

» 阅读全文

Tags: 多线程 , perl

发表在: 开发技术 0 条评论 阅读 350 次

perl使用ini配置文件

keminar 发表于 2011-11-17 17:11:00

如果没有安装使用时会报错 Cant locate Config/IniFiles.pm in @INC 命令行下执行 perl -MCPAN -e install Config::IniFiles 使用 #!/usr/bin/perluse Config::IniFiles;my $cfg = Config::IniFiles-new( -file = configfile.ini) or exit ;print $cfg-val(Section, Parameter); ...

» 阅读全文

Tags: perl

发表在: 开发技术 0 条评论 阅读 311 次

perl连接mysql数据库

keminar 发表于 2011-11-16 15:41:00

perl连接mysql使用DBI如果没有安装使用时会报错如下 Cant locate DBI.pm in @INC 安装先下载需要的包 wget ftp://ftp.funet.fi/pub/CPAN/modules/by-module/DBI/DBI-1.616.tar.gz wget ftp://ftp.funet.fi/pub/CPAN/modules/by-module/DBD/DBD-mysql-4.020.tar.gz wget ftp://ftp.funet....

» 阅读全文

Tags: perl , mysql

发表在: 开发技术 0 条评论 阅读 450 次
第1/2页12下一页 ›
回顶部