use strict; use warnings; use Cwd; my $dir = 'd:\\www'; chdir($dir); opendir DIR, $dir or die "Cannot open dir:$!\n"; my %result; while(my $filename = readdir(DIR)){ next if (($filename eq '.') or ($filename eq '..')); if(-d $filename){$result{$

http://www.cnblogs.com/zhtxwd/archive/2012/03/06/2381585.html 本文介绍从变量类型.操作运算符.控制叙述.子程序.I/O和档案处理. Regular Expressions.Spectial Variables.Help.函数.总结几个部分介绍perl,只是叙述了一些Perl的基本语法. 一．数据型态(Data type): Perl 的数据型态大致分为四种:Scalar(变量).Scalar Array(数组).Hash Array(

1.Perl 目录操作以下列出了一些操作目录的标准函数:opendir DIRHANDLE, EXPR # 打开目录readdir DIRHANDLE # 读取目录rewinddir DIRHANDLE # 定位指针到开头telldir DIRHANDLE # 返回目录的当前位置seekdir DIRHANDLE, POS # 定位指定到目录的 POS 位置closedir DIRHANDLE # 关闭目录2.显示所有的文件显示目录下的所有文件,以下实例使用了 glob 操作符,演示如下:#!/

项目里面一直用的是Perl,Perl里有各种小技巧就分享在这吧. push(@a, $b) 把b元素压入a数组中, 还可以有 push(@a, [@b]); 那a就成了二维数组了 scalar(@a); my $b = @a; a的长度 =~的正则匹配时 =~s///g全局替换 =//i匹配,$1,$2对应第一个,第二个捕获组 opendir readdir 遍历目录 my($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst)=localtime

前言:这篇文章是花了我很多时间.费了我很多心血才完成的,虽然连我自己都觉得无法达到尽善尽美的境界,但希望能帮助大家入门,稍微了解到Perl 到底是个什么样的东西,Perl到底有那些强大的功能,那么这篇文章的目的就达到了.我分做数据型态.控制叙述.子程序.I/O和档案处理. Regular Expressions.Spectial Variables.Help.函数.总结这几部分来讲解,但只是叙述了一些Perl的基本语法而已,Perl活泼的特性和程序的技巧就无法一一详述了,甚为缺憾. (1) 数据

标量 标量是 Perl 中最简单的数据类型.大多数的标量是数字(如 255 或 3.25e20)或者字符串(如 hello或者盖茨堡地址). 数字 perl中所有数字内部的格式都是双精度浮点数. 浮点数 1.25 255.000 255.0 7.25e45 #7.25x10 的 45 次方(一个大整数) -6.5e24 # -6.5x10 的 24 次方(一个大的负数) -12e-24 #- -12x10 的-24 次方(很小的负数) -1.2E-23 #指数符号可以大写(E) 整数 0 200

ReadLine support available (try 'install Bundle::CPAN')cpan>进入cpan的shell,好了,我为了安装spamassassin,需要安装以下几个install Digest::SHA1 install HTML::Parser install Storable install DB_File install Net::DNS install Net::SMTP install Mail::SPF::Query install IP::C

文件句柄 文件句柄用来对应要操作的文件系统中的文件,这么说不太严谨,但比较容易理解.首先为要打开的文件绑定文件句柄(称为打开文件句柄),然后在后续的操作中都通过文件句柄来操作对应的文件,最后关闭文件句柄. 如不理解文件句柄的概念,可将文件句柄看作Linux中文件描述符的概念(当然,它们是不同的,Perl的文件句柄在层次上对应于Linux中的标准IO流).例如特殊的STDIN.STDOUT.STDERR就是perl中预定义好的文件句柄,分别表示标准输入.标准输出.标准错误,要将它们对应到Linux

本文和大家重点讨论一下如何读写Perl文件,主要包括打开.关闭Perl文件,读写Perl文件,Perl文件的状态,命令行参数和打开管道六部分内容,希望通过本文的学习你对读写Perl文件有深刻的认识. 读写Perl文件 一.打开.关闭Perl文件 语法为open(filevar,filename),其中filevar为Perl文件句柄,或者说是程序中用来代表某Perl文件的代号,filename为Perl文件名,其路径可为相对路径,亦可为绝对路径.open(FILE1,"file1");

目录 Perl 学习 常用记录 基础 1. 运行perl 2. 字符串 3. 变量 4. 条件 5. 循环 6. 运算符 7. 时间日期 8. 子程序(函数) 9. 引用 10. 格式化输出 11. 文件操作 12. 目录操作 13. 错误处理 14. 特殊变量 15. 正则表达式 Perl 学习 常用记录 chop与chomp的区别 chop()函数,只是去除最后一个字符 chomp()函数,就要首先判断最后一个字符是不是为"\n",他才去除. 变量初值 对于没有赋初值的scaler

"既然递归能很好的解决,为什么还要用迭代呢"?主要的原因还是效率问题-- 递归的概念是函数调用自身,把一个复杂的问题分解成与其相似的多个子问题来解决,可以极大的减少代码量,使得程序看起来非常优雅. 由于系统要为每次函数调用分配运行空间,并使用压栈予以记录.在函数调用结束后,系统需要释放空间,并弹栈恢复断点.所以递归的消耗还是比较大的. 即使语言设计时已经将函数调用优化的极度完美,达到可以忽略递归造成的资源浪费,但是递归的深度仍然会受到系统栈容量的限制,否则将会抛出 StackOverf

PHP虽然提供了 filesize.copy.unlink 等文件操作的函数,但是没有提供 dirsize.copydir.rmdirs 等文件夹操作的函数(rmdir也只能删除空目录).所以只能手动编写这些函数,主要的技巧是通过递归将问题逐层分解,直到分解成可以直接解决的最小子问题. ====================查看文件夹大小===================== 由于文件夹是没有大小的,平常所说的文件夹尺寸准确的说应该是文件夹中所有文件的总大小.所以只需要将文件夹逐层查找,统

Perl编程之路3 标签: perl 列表与数组   Perl里面代表复数的就是列表和数组 列表(list)指的是标量的有序集合, 而数组(array)则是存储列表的变量. 在Perl这两个属于尝尝混用, 不过更精确的是, 列表指的是数据, 而数组指的是变量, 列表的值不一定放在数组里, 但每个数组一定包含一个列表(即便是不含任何元素的空列表)   数组或列表中的每个元素, 都是单独的标量变量, 拥有独立的标量值, 从起始元素到终止元素的先后次序是固定的, 因为没个元素都是独立不相关的标量值,

巡检类工作经常会出具日报,最近在原有日报的基础上又新增了一个表的数据量统计日报,主要是针对数据库中使用较频繁,数据量又较大的31张表.该日报有两个sheet组成,第一个sheet是数据填写,第二个sheet则是基于第一个sheet的数据进行的文字描述和图表展示. 文字描述主要包括两部分:一.呈现该31张表中数据量最大的9张表.呈现结果类似于:emp(约14万),dept(约100万)...当然,这个只是举例,为了避免引起不必要的麻烦(主要是企业信息安全方面的考虑),我这里不可能将具体日报的内容贴

项目中要计算指定文件夹的大小.百度查到这篇文章,https://my.oschina.net/Tsybius2014/blog/330628方法可行,运行正确. 拿到我们的项目中,却遇到一些问题:程序中一些读文件的代码,开始报异常,都不到文件.这些都是以前没有遇到过的问题.到底是什么情况呢?排查了好久,终于发现使用该文章提供的计算文件夹大小的函数(暂且叫做GetDirectorySize),其中有改变当前目录的代码: chdir(dir); 我们的项目是多线程的,一个线程调用GetDirecto

当我们想使用某些Perl模块的时候,很可能会遇到当前系统不存在这个模块的情况,这时我们可以通过使用CPAN来对相应的模块进行获取,下面就介绍一下CPAN的使用方法.首先,我们可以用perl -e 'use module'这个命令来检查一下系统的perl的某个模块是否可用,如[root@localhost ~]# perl -e 'use Test::Parser'Can't locate Test/Parser.pm in @INC (......更多报错信息自动略过) at -e line 1

下载的zip包解压后,中文都变成了乱码,就写了个脚本重命名文件. use strict; use warnings; use Cwd; sub main { my $dir = getcwd(); opendir my $DH, $dir or die "Can not open directory: $dir"; while (my $file = readdir $DH) { })_.*\.mp3$/) { rename $file, "$1.mp3"; } }

<?php function countdir($path){ $size = 0; //size = 0; 跟 size = null; 怎么结果不一样 $path = rtrim($path, '/').'/'; //因为用户输入的路径带不带/都可以,所以我这里要处理一下 $handle = opendir($path); //打开一个句柄 while($file = readdir($handle)){ //读取句柄中的文件,包括目录和文件 if($file == '.' || $file

本文章向大家介绍php如何计算某个目录的大小(多少kb,多少兆m),主要使用filesize函数配合递归函数的方法来实现,需要的朋友可以参考一下本文章的源代码.php使用递归计算目录大小,主要使用filesize函数配合递归函数的方法来实现,具体实现源代码如下: <?php /* 作者: http://www.manongjc.com/article/28.html */ function directory_size($directory) { $directorySize=0; if ($d

1.  单引号字符串中的\n不会被当做换行符处理. 如:'\'\\'  -->  '\  . 2.  双引号 字符串联    "Hello"."World"."\n"  -->  HelloWrold 换行; 字符串重复操作   "fred"×3  --> "fredfredfred"; 大小写       "\l","\L"  -->  小写