perl
wind9984
这个作者很懒,什么都没留下…
展开
-
关于日文和中文的正则表达式
日文:[/u30a1-/u30f6/u3041-/u3093/uFF00-/uFFFF/u4e00-/u9fa5]中文:[/u4e00-/u9fa5]原创 2009-07-29 11:11:00 · 2497 阅读 · 0 评论 -
postgres数据库的单表恢复备份
最近写的一个postgres数据库的单表恢复备份perl脚本 记录下来方便以后使用 Script name : sqlExec4PG.pl #!/usr/bin/perluse strict;use Carp;use IPC::Open2;use IPC::Open3;$|=1;my $dbname = $ARGV[0];my $...2011-03-31 12:52:09 · 404 阅读 · 0 评论 -
Perl eval函数探讨
Perl 作为一种脚本语言可以实时地生成和执行代码。这种特性可以把代码的编译推迟到运行时,所以又称为“动态代码”。另外, Perl 也如 Java 、 C++ 一样提供了异常处理机制。本文将初步探讨 ...2009-07-31 09:03:00 · 99 阅读 · 0 评论 -
perl 正则表达式
9 Perl 中的正则表达式正则表达式是 Perl 语言的一大特色,也是 Perl 程序中的一点难点,不过如果大家能够很好的掌握他,就可以轻易地用正则表达式来完成字符串处理的任务,当然在 CGI 程序设计中就更能得心应手了。下面我们列出一些正则表达式书写时的一些基本语法规则。——————————————————————————–9.1 正则表达式的三种形式首先我们应该知道 Perl...2009-07-31 09:01:00 · 146 阅读 · 0 评论 -
perl,dbi连接postgre和mysql
#!/usr/bin/perluse DBI;#my $dbh = DBI->connect("DBI:PgPP:vl60_cmn:localhost", "a" , "a");my $dbh = DBI->connect("dbi:mysql:c50_3:192.168.1.1", "a" , "a");#$dbh->do(&qu2009-07-31 08:56:00 · 160 阅读 · 0 评论 -
Perl处理Unix命令输出
# !/usr/bin/perl-w open (FILE , " ls-l| " ); while ( $line = < FILE > ...2009-07-31 08:44:00 · 137 阅读 · 0 评论 -
sprintf用法
#include<stdio.h>#include<ctype.h>void main(){char s[40];sprintf(s,"s=%s,integer=%d","abc",1);printf("\n%s\n",s);}/*sprintf的用法,將"s=%s,integer=%d"的所有內容放到字符數組S裡去*/...2009-07-06 11:19:00 · 74 阅读 · 0 评论 -
iP的正则表达式
今天工作当中要写个IP的正则来过滤记录一下方便以后使用^((/d|[1-9]/d|1/d/d|2[0-4]/d|25[0-5]|[*])/.){3}(/d|[1-9]/d|1/d/d|2[0-4]/d|25[0-5]|[*])$解释下/d: 匹配1位 0-9[1-9]/d: 匹配 2位 10-991/d/d: 匹配 3位 100 - 1992[0-4]/d: 匹配 3位原创 2009-06-01 15:20:00 · 634 阅读 · 0 评论 -
Perl eval函数探讨
Perl 作为一种脚本语言可以实时地生成和执行代码。这种特性可以把代码的编译推迟到运行时,所以又称为“动态代码”。另外, Perl 也如 Java 、 C++ 一样提供了异常处理机制。本文将初步探讨转载 2009-07-31 09:03:00 · 5308 阅读 · 1 评论 -
perl,dbi连接postgre和mysql
#!/usr/bin/perluse DBI;#my $dbh = DBI->connect("DBI:PgPP:vl60_cmn:localhost", "a" , "a");my $dbh = DBI->connect("dbi:mysql:c50_3:192.168.1.1", "a" , "a");#$dbh->do("SET client_encoding = utf8"原创 2009-07-31 08:56:00 · 716 阅读 · 0 评论 -
Perl处理Unix命令输出
# !/usr/bin/perl -w open ( FILE , " ls -l | " ); while ( $line原创 2009-07-31 08:44:00 · 432 阅读 · 0 评论 -
Perl 的last ,next ,redo 程序控制操作
#!/usr/bin/perlforeach(1..10){ print "Iteration number $_.\n\n"; print "Please choose: last, next, redo, or none of the above?"; chomp(my $choice = <STDIN>); print "\n"; last if $c...原创 2011-08-12 10:46:33 · 246 阅读 · 0 评论