![](https://img-blog.csdnimg.cn/20201014180756918.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
perl
ma_zmin
这个作者很懒,什么都没留下…
展开
-
变量赋值($ @ %)和范围变量声明(my,our,local)
1.变量赋值($ @ %) $: 是标量的变量 @: 是数组的变量 %: 是哈希的变量2.范围变量声明(my,our,local)创建私有变量(用 my),进行有选择地访问全局变量(用 our),和给全局变量提供临时的值(用 local): my $nose; our $House; local $TV_channel;如果列出多于一个转载 2009-12-02 17:43:00 · 377 阅读 · 0 评论 -
简单的日期判断 perl
my $date = 2009/12/12; if($date !~ m!^((?:19|20)/d/d)[- /.](0[1-9]|1[012])[- /.](0[1-9]|[12][0-9]|3[01])$!){ die; }原创 2010-02-01 15:20:00 · 958 阅读 · 0 评论 -
取月的最后一天
sub getLastDayDate{ my ($sys_date) = @_; my $sum_date; if(substr($sys_date, 5, 2) eq 01) { $sum_date = (substr($sys_date, 0, 4) - 1)./.12.substr($sys_date, 7, 3); } else{ $sum_date = subst原创 2010-02-01 15:22:00 · 620 阅读 · 0 评论 -
perl函数
perl函数可分为系统函数和用户函数。 先介绍用户函数 1、用户函数 用户函数又称子程序(Subroutine),在Perl中用下面的结构来定义用户函数: sub 子程序名{ 语句块; } 这里的子程序名与变量的取名规则类似。 用户函数的定义可以位于程序的任何位置,比如说放在文件的未尾。如果两个子程序使用了相同的程序名, 后面的子程序将覆盖前面子程序。转载 2009-12-02 18:02:00 · 406 阅读 · 0 评论 -
DBI 参数问题
给SQL语句动态地传入值的方法叫绑定(Bind), 在写数据库有关的角本时, 这是很重要的一点, 在Perl中你可以在SQL中写一个问号表示不确定的值, 不管是在SELECT还是在Insert/Update/Delete语句中, 都一样. 如下所示: my $sth = $dbh->prepare( "select tname from tab where tname like转载 2009-12-07 18:19:00 · 946 阅读 · 0 评论 -
perl 关于时间,日期的模块
表A名称描述URLDate::Manip这个模块被称为日期操控模块的“瑞士军刀”。它提供的例程可以用来分析和比较日期,提取日期信息,确定日期信息,确定日期/时间偏量,使用重复日期和时间,以及在不同语言里使用日期等。但是,它运行起来要比其他更加专业的模块慢。当您需要一个通用的日期操控模块且不特别关心性能的时候使用这个模块转载 2009-12-07 18:35:00 · 1480 阅读 · 0 评论