Perl
benbenkui
努力的学习,有效率的学习。
展开
-
常用文件操作
闲来无事,翻翻PERL,看了一下关于文件操作的,大概看了一下,代码如此简单...雷住了!我是一个懒人,十足的懒人,代码多的程序基本不看...用最少的代码干尽量多的事情,是我的目标.#!/usr/bin/perl -wuse warnings;use strict;#常用文件操作#打开文件open(MYREAD,"c:/bar.emf")||die "$!";原创 2009-04-30 16:18:00 · 405 阅读 · 0 评论 -
统计字符个数
#!/usr/perl/binuse strict;use warnings;my %word_num;my ($key, $value);while( chomp; $word_num{$_}+= 1;}while(($key,$value)= each%word_num){ print "$key => $value/n";}用法perl .pl 敲了原创 2009-05-10 10:11:00 · 388 阅读 · 0 评论 -
时间函数
在 Perl 中取得当前时间(转)在 Perl 中取得当前时间perl有两个取得时间的函数:localtime和gmtime两个函数的用法一样,区别在于localtime为取得本地时间, gmtime格林威治时间 #!/usr/bin/perl#get local time($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)原创 2009-05-10 10:13:00 · 604 阅读 · 0 评论 -
删除一个非空目录方法
删除一个非空目录方法 1. #如何调用 2. deleteFolder("test"); 3. 4. #Used to remove a directory which is not emptyempty. 5. #the process function. 6. sub deleteFolder{ 7. my $path = $_[原创 2009-05-10 10:15:00 · 1254 阅读 · 0 评论 -
符串处理函数
perl 字符串处理函数,转三、字符串处理函数函数名index调用语法position = index (string, substring, position);解说返回子串substring在字符串string中的位置,如果不存在则返回-1。参数position是可选项,表示匹配之前跳过的字符数,或者说从该位原创 2009-05-10 10:17:00 · 377 阅读 · 0 评论