perl获取文件夹的size，包括子文件夹

最新推荐文章于 2023-12-09 20:56:42 发布
最新推荐文章于 2023-12-09 20:56:42 发布
阅读量978 收藏
点赞数
分类专栏： perl
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/u013102886/article/details/20410003
版权 
sub get_size() {
	my $size = 0;
	my $dir = shift;
	find(sub { $size += -s if -f $_ }, $dir);
	return $size;
}

该代码依赖File，所以需要：

use File::Find;


liy_
关注
专栏目录
Perl基础学习09之perl文件目录操作
qq_21478261的博客
04-17 484
目录 文件目录操作常用操作符 stat函数 文件目录常用操作 创建文件 删除文件 创建目录 删除目录 切换目录 File::Basename模块操控路径 文件目录操作常用操作符 -s 判断文件存在且非空返回1； -e -s 均能判断文件，目录是否存在，存在返回1； -l 文件是软链接，返回1； -d 是目录返回1； -z 文件为空返回1； -M 最后一次修改时间；...
os 获取目录下的所有目录 和 目录下所有文件方法
JackLiu16的博客
10-27 1万+
获取目录下的所有目录（包括各子目录中的目录）import os i=0for root,dirs,files in os.walk('D:\Desktop'):    for dir in dirs:        print dir        i+=1print i获取目录下所有文件方法（包括各子目录中的文件）import os i=0for root,dirs,files in os.wa...
Perl分析文件夹大小示例
09-04
Perl分析文件夹大小示例 Windows环境下使用Perl统计文件夹大小和个数
perl取文件大小
ChipArtist's Blogs
04-15 1万+
perl取文件大小my @args = stat ($filename);my $size = $args[7];stat()函数返回一个数组。下面是数组各元素的含义。0 dev 设备号 驱动器号（C：通常是2，D：通常是3，等等）1 ino 索引节号 总是02 mode 文件的方式 无3 nlink 链接号 通常为0；Windows NT；文件系统允许链接4 uid 文件所有者的
【Perl】数组大小
lbt_dvshare的博客
07-30 986
my @arr = (2); print scalar @arr; # First way to print array size print $#arr; # 得到数组最后一个元素的索引值 my $arrSize = @arr; print $arrSize; # Third way to print array size
Perl基本技三：斯德艾特——File::stat->stat()函数获取文件属性信息
love android
06-14 296
#!usr/bin/perl use strict; use File::stat; my $path; $path = "C:/Users/liuweic/Desktop/df study/s.txt"; # scalar(localtime()) 转化正常时间格式 具体请参考 perldoc -f localtime print scalar(localtime(stat($p...
size（）函数的使用
weixin_30512089的博客
03-31 579
matlab中对于矩阵的计算是十分方便的，其中关于矩阵的函数有很多 size（） 在c/c++中sizeof用来求某变量所占用的字节数，在matlab中size（）则可以用来求矩阵的“长度”，矩阵的长度有两方面：1.行数，2.列数；所以size（）也有这两方面的功能 1.s = size（A）；返回值是一个行向量，包含两个元素——行数，列数； 2.[M，N] = size（A）；...
perl按行读文件，行内有用信息，并写入到excel中
tianxiao321123的博客
11-22 874
perl按行读文件，并写入到excel中*** 目标 A：按行读取文件； B：获取cases的名字，并写入到excel中； C: 统计cases的总数，并写入到excel中； 输入文件 origin.log ， 即要读取的文件，按行读取该文件。 脚本文本 testlist.pl, 即运行的脚本 示例如下： 输出文件 示例如下： ...
PERL 连接FTP实现文件上传下载
weixin_42129663的博客
03-05 1300
这里使用的Net::FTP模块，一般安装的perl都会自带该模块，查看perl是否安装某模块使用命令：perldoc Net::FTP，如果出现文档说明，则表示该模块已安装，如果出现：No documentation found for 则表明该模块未安装，perl安装模块可以参考该文章：[添加链接描述](https://blog.csdn.net/czz1141979570/article/d...
perl 列出一个目录下的文件的大小
weixin_30764883的博客
02-17 158
1 use strict; 2 use warnings; 3 use Cwd; 4 my $dir = 'd:\\www'; 5 chdir($dir); 6 opendir DIR, $dir or die "Cannot open dir:$!\n"; 7 my %result; 8 while(my $filename = readdir(DIR)){ ...
perl读取文件夹文件。
07-17
perl脚本，读取一个文件夹所有文件。 简单实用。
Perl 文件和文件夹操作
kongjunlongaa的博客
06-07 2693
作为一门编程语言，perl有着强大的文件和文件夹操作功能。Perl利用文件句柄（file handle）和文件夹句柄（dir handle）与操作系统进行输入输出连接。文件和文件夹句柄一般使用大写子母或指定标量以示特殊。   文件打开语句及说明：一般加入die函数做打开失败的提示。 my $filename = "some_filename"; open(my $fhb,
perl关于文件夹操作(一)
ithomeman的专栏
01-19 1157
在用perl脚本读取文件夹信息的时候，基本操作类似与C语言的open函数，打开的文件夹要有类似文件指针。 opendir($dir_h, $ARGV[0]); my @dir_contents = readdir($dir_h);这里的$dir_h就是指向来打开目录的指针。 要读取目录的信息需要用一个数据存储，@dir_contents的长度至少为2，因为目录至少包含 "."和".."子目录，
Perl处理文件及文件夹
weixin_34375251的博客
03-08 609
前言 更多内容，请访问我的 个人博客。 use FindBin qw($Bin); #遍历文件夹 my $fileReportDir = $Bin; #出报告所在的文件夹地址 if(-e $fileReportDir){ opendir DIR, $fileReportDir || die "Error in opening dir $fileReportDir\n"; while( my $...
用perl查找文件夹中的所有文件和目录
最新发布
爱读庄子的码农
12-09 1116
用perl查找文件夹中的所有文件和目录
Perl 获取当前目录下所有文件名
mjj_1094的博客
12-06 4645
#查找该目录下所有不同子目录下的文件，并输出路径  #!/usr/bin/perl -w use strict; use File::Spec;   local $\ ="\n";#当前模块的每行输出加入换行符     my %options;   ###目录路径 $options{single_case} = 's';#$path= 's';也可     my @case
perl脚本之＿＿分类统计某一目录下指定类型文件的大小
风雨兼程
12-22 1868
先介绍一下写此脚本的背景，我们使用samba共享，每个人都有自己的个人目录，和群组共用目录，现在发现磁盘空间消耗的很厉害，上服务查一下才发现在，好多人在个人目录下放了好多mp3,图片，视频之类的文件，为了提高服务器利用率，所以决定对服务器上这此文件都进行统计，然后通知个人进行处理，不然就删除。脚本分成两部分，第一查找出指定目录下所指定查找类型的文件（mp3,jpeg，etc.），把文件路径和大小写
perl数组的长度与元素个数
在线笔记
10-08 6145
$#数组名            ---表示数组中最后一个元素的下标，它等于元素个数减1。 @数组名             ---表示数组中元素的个数。 $标量=@数组名       ---将一个数组赋值给一个标量变量，标量得到的是这个数组的元素个数。 $数组名[数组下标]    ---这种格式可以取出数组中相应的元素。
Perl获取数组长度
热门推荐
rockiecxh的专栏
05-08 2万+
列表/数组的长度 当数组变量出现在预期简单标量出现的地方，则Perl解释器取其长度。 @array = (1, 2, 3);  $scalar = @array; # $scalar = 3,即@array的长度  ($scalar) = @array; # $scalar = 1,即@array第一个元素的值, 列表赋值 注：以数组的长度为循环次数可如下编程： my $count = 0;
perl 打开指定文件夹
06-08
在Perl中，可以使用`system()`函数结合操作系统命令来打开指定的文件夹。具体来说，可以使用`start`命令和`explorer`命令来打开文件夹。 使用`start`命令打开文件夹的方式如下： ```perl system("start $folder_...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值