perl常用功能小汇总

验证邮箱: 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

perl 中实现 ip2long与long2ip

长整数和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

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

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

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

#!/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

perl使用ini配置文件

如果没有安装使用时会报错 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

perl连接mysql数据库

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

Perl入门教程

什么是Perl? Perl 是一种最初开发用于文本操作的编程语言。现在它能应用于广泛的任务,包括系统管理、 web 开发、 网络编程、 GUI 开发和更多的普通用途。 这个语言以实用性为目标(易用、高效、完整)宁愿失去美丽(小巧、优雅、迷你)。它使用方便,且支持面向过程和面向对象编程,内置强大的文本处理支持,并有世界上最令人印象深刻的第三方模块的集中营。 运行Perl程序 在Unix命令行运行Perl程序: perl progname.pl 另一种方法是,把这个放到你的脚本...

» 阅读全文

Tags: perl

回顶部