Perl按修改日期排序文件

最新推荐文章于 2020-04-16 10:14:48 发布
最新推荐文章于 2020-04-16 10:14:48 发布
阅读量1.2k 收藏 2
点赞数
分类专栏： perl 文章标签： Windows perl
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/yang5915/article/details/46530477
版权
这篇博客介绍了一个使用Perl语言编写的脚本，该脚本能够读取指定目录下的所有文件，并按照文件最后修改的时间进行排序。脚本首先定义了待操作的目录路径，接着通过一系列Perl内置函数实现了目录打开、文件读取、关闭目录等操作，并利用正则表达式过滤掉不需要的文件类型。最终将读取到的文件名按修改时间倒序排列并打印输出。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

 

 my $path="D:\\perl";
 my $file;
 
 chomp($path);
 my $filename;
 opendir(DIR, "$path") || die "Cannot open it:$!";
 @filename = grep -f, readdir(DIR);
 close DIR;
 
 @files = sort{ -M "$path/$b" <=> -M "$path//$a" } @filename; # -M指定按修改日期排序
 
 print "\n";
 foreach $file (@files)
 {
 print $file,"\n";
 } 


                

        

    

  



    


                



	

		

			

				
					
Perl 将一目录下的文件按照文件名中的时间字符串排序

				
			

			

				

					Jared128的博客
				

				

					12-06
					
					1625
					
				

			

		

		

			
				
首先，我们要将读到的文件名写入数组，然后将文件名进行拆分，生成一个hash结构，key为时间字符串，value为完整的文件名，最后用sort()根据hash的key排序遍历hash，得到排序后的列表。

			
		

	



                

            
              



	

		

			

				
					
Linux工具应用_PERL

					
最新发布

				
			

			

				

					qq_39355579的博客
				

				

					07-15
					
					819
					
				

			

		

		

			
				
perl脚本是当前工作中最常用的脚本，还是先熟练掌握之后再看其他

			
		

	



              


  
              

                


	

		

			

				
					
perl获取文件修改时间

				
			

			

				

					10-13
				

			

		

		

			
				
perl获取文件修改时间，

			
		

	





	

		

			

				
					
Perl 把一堆文件 按照 文件名字中的时间 进行排序

				
			

			

				

					csallen的专栏
				

				

					05-31
					
					2385
					
				

			

		

		

			
				
Perl hash 排序

			
		

	



		

			
		



	

		

			

				
					
Perl 按时间排序日志

				
			

			

				

					weixin_30871701的博客
				

				

					01-31
					
					169
					
				

			

		

		

			
				
log before sort:
15:49:01.447|TestClass:2796| TestClass::stop for err 2267433TestClass|sss|36.440124880|15:45:53.627|TestClass:1536| Done waiting for InitDone.TestClass|sss|224.261229480|15:49:01....

			
		

	





	

		

			

				
					
perl方法：sort函数  （转载）

				
			

			

				

					leehyfer的专栏
				

				

					12-19
					
					774
					
				

			

		

		

			
				
perl方法：sort函数 www.diybl.com　时间：2008-02-24　作者:佚名 编辑:本站 点击：　 [评论]--] ; $b->;[1] }              map({ [$_, -M] } @filenames)            )        );这个code结合用了map,sort分了好几层，记住偶以前提过的方法，从后往前看。map({ [$_, -M

			
		

	





	

		

			

				
					
perl 二进制文件读写

				
			

			

				

					stonesharp的专栏
				

				

					09-02
					
					1万+
					
				

			

		

		

			
				
use strict;
my $gifname = "C:\\Documents and Settings\\Administrator\\My Documents\\My Pictures\\1.jpg";
my $gifOutname = "d:\\1111.dat";

			
		

	





	

		

			

				
					
perl基本语法笔记

				
			

			

				

					haha123486的博客
				

				

					04-16
					
					811
					
				

			

		

		

			
				
perl基本语法目录数据类型标量操作数组操作哈希上下文编译命令特殊变量子程序格式化输入输出文件操作打开文件关闭文件改变默认的文件输出句柄文件测试目录操作获取当前工作目录更改工作目录删除文件文件重命名链接与文件创建和移动目录改变权限改变所属关系改变时间戳字符串操作Perl 进程管理反引号运算符system() 函数fork() 函数Kill 函数高级技巧切片eval检查运行时错误用grep筛选列表用...

			
		

	





	

		

			

				
					
入门Perl编程：Learning Perl教程

				
			

			

				

					
				

			

		

		

			
				
本书详细介绍了Perl编程的基础知识，包括各种数据类型、控制结构、输入/输出操作、正则表达式、函数、文件处理、目录访问、文件和目录操作、进程管理、系统数据库访问、用户数据库操作以及CGI编程等内容。...

			
		

	





	

		

			

				
					
自动化照片分类工具SortPhotos：Python脚本按日期整理照片

				
			

			

				

					
				

			

		

		

			
				
例如，当图片和视频文件混杂在一起，或者由于文件名的不一致性导致难以快速找到特定时间段内的媒体内容时，SortPhotos能够根据文件的EXIF或类似元数据中的日期时间信息来自动排序，从而有效地将它们组织到不同的...

			
		

	





	

		

			

				
					
perl中如何查看文件或目录的时间

				
			

			

				

					mjk的专栏
				

				

					11-07
					
					2329
					
				

			

		

		

			
				
#!/usr/bin/perluse POSIX qw(strftime);while($filename = ){    if (-d $filename){        print "Directory : ";    }    print $filename;    print   x (25 - length($filename));    ($d

			
		

	





	

		

			

				
					
使用readdir读取目录文件并按时间排序输出

				
			

			

				

					bibibibibii的博客
				

				

					12-18
					
					4923
					
				

			

		

		

			
				
使用readdir读取目录文件并按时间排序输出
最近需要使用readdir遍历目录下文件，但是发现取出文件的顺序都是随机的，百度发现可以使用scandir函数按照规则排序：

https://blog.csdn.net/krens/article/details/78365382?utm_source=blogxgwz3

刚学C语言，所以决定自己动手写一下，写这个也是给自己做笔记，其中使用了re...

			
		

	





	

		

			

				
					
perl如何遍历指定文件夹下的指定扩展名文件，并按时间顺序要求删除

				
			

			

				

					kongjunlongaa的博客
				

				

					06-07
					
					2030
					
				

			

		

		

			
				
（linux下）要求是，遍历/ccd/pa/下的所有后缀为log的文件（包括所有子文件夹），只保留时间顺序离现在最近的20个文件，其它删除。






















;




my $num = 20;
my $pattern = 'log$';
＃my $basedir = '/ccd/pa/';
my @files 

			
		

	





	

		

			

				
					
perl 循环删除指定文件夹下所有满足条件的文件，不包含文件夹

				
			

			

				

					kongjunlongaa的博客
				

				

					06-07
					
					1294
					
				

			

		

		

			
				
use Time::Format qw(%time %strftime %manip);


my $basedir = 'D:\Users\KONGJUNLONG280\Desktop\Test';
my $d;
my @files = ();
my @dirs = ($basedir); die "error $basedir: $!" unless(-d $basedir);

			
		

	





	

		

			

				
					
Linux 上readdir 遍历文件夹按文件名排序

					
热门推荐

				
			

			

				

					krens的专栏
				

				

					10-27
					
					1万+
					
				

			

		

		

			
				
遍历文件夹发送数据，数据文件名按时间排序，使用readdir 遍历时，没有按照文件名排序。 
2017-10-15-00-00-00 
2017-10-15-01-00-00 
2017-10-15-02-00-00最常见是readdir函数：DIR   *dir;
struct  dirent *ptr;
dir = opendir(path.c_str());
if(NULL == dir)
{

			
		

	





	

		

			

				
					
perl 对文件排序经典实例

				
			

			

				

					hendyyou的专栏
				

				

					11-08
					
					1403
					
				

			

		

		

			
				
 perl 排序问题【实例】1月份       电话号码             市话      长途      总话费（元）-----------------------------------------------------------------------200809        74889999        3.0        6.6        188200810 

			
		

	





	

		

			

				
					
对某目录下的文件按照日期进行排序

				
			

			

				

					weixin_30291791的博客
				

				

					04-16
					
					388
					
				

			

		

		

			
				
对日期进行排序 下面是一个示例 ASP 页（感谢 Eric 的工作！），该页使用 FileSystemObjectscripting 对象来获取文件名集合，然后按创建日期对其进行排序。有关 FileSystemObject scripting 对象的文档，可以在 Microsoft Windows Script Technologies 站点找到。 调用 GetFolder() 方法以检索文件夹对...

			
		

	



              




          




        



    





    



      

      

        
      

      





	

		评论	
	

	
	




  

    

      添加红包
      
    

    

      

        
        

          
          
        

        
请填写红包祝福语或标题

      

      

        
        

          
          个
        

        
红包个数最小为10个

      

      

        
        

          
          元
        

        
红包金额最低5元

      

      

        
        

          当前余额3.43元
          前往充值 >
        

      

      

        

          需支付：10.00元
        

        
        
      

    

  





  

    
    
  

  

    
    
  








  

    

      

        

          

            
            
成就一亿技术人!

          

          

        

        

          

          

            领取后你会自动成为博主和红包主的粉丝
            规则
          

        

      

      

        

          

            
              
            
            

              
hope_wisdom
 发出的红包
            

          

        

        

          

          

          

        

      

    

    

  



      
      

      
实付元

      
使用余额支付

      

        

          

            
            点击重新获取
          

        

        
扫码支付

      

      

        
          
            
          
          
        
      

      

        
        钱包余额
          0
          

            
            

              

                
抵扣说明：

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

              

            

          

      

      余额充值