perl使用Archive::Tar模块进行文件打包

最新推荐文章于 2024-02-23 16:07:36 发布
原创 最新推荐文章于 2024-02-23 16:07:36 发布 · 698 阅读 · 10 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#perl #shell #Linux #git bash

使用perl的Archive::Tar 模块打包文件夹中的指定文件，输出格式 .tar.gz 。下面是perl代码：

#! /usr/bin/perl
use v5.14;
use File::Find;
use Archive::Tar;

my @filesArry = ();
my $callback =
最低0.47元/天 解锁文章
perl脚本（压缩文件夹下文件）上传服务器
03-30
利用perl写一脚本压缩本地文件夹上传到服务器，具体， #!/usr/bin/perl -w use Archive::Zip qw( :ERROR_CODES :CONSTANTS ); use File::Path; use File::Copy; my $zip = Archive::Zip->new(); use strict; my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime( time - 604800 );#一周前的时间 my $yyyymmdd = sprintf( "ddd", $year + 1900, $mon + 1, $mday ); my $get_name = 'D:/Notepad'; # 可以改为带参数运行$ARGV[0] my $topath = 'O:/etest/mu'; #$ARGV[1] my @data; opendir( TEMP, "$get_name" ) || die "$!";#读文件夹测试时间 while ( my $file = readdir TEMP ) { if ( $file !~ /^\.\.?$/ ) { chomp $file; if ( -d "$get_name/$file" ) { if ( time_change( ( stat("$get_name/$file") )[9] ) < $yyyymmdd ) { push @data, $file; } } } } closedir(TEMP); #一下是每个文件夹压缩，测试上传成功删除本地文件夹和zip foreach my $j (@data) { $zip = Archive::Zip->new(); $zip->addTree( "$get_name/$j", "$j", sub { /.*/ } ); my $status = $zip->writeToFileNamed("$get_name/$j.zip"); if ( $status == AZ_OK ) { copy( "$get_name/$j.zip", "$topath/$j.zip" ); if ( -e "$topath/$j.zip" ) { rmtree("$get_name/$j"); unlink("$get_name/$j.zip"); } else { unlink("$get_name/$j.zip"); } } } sub time_change { my $tt = shift; my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime($tt); my $ymd = sprintf( "ddd", $year + 1900, $mon + 1, $mday ); }
perl-5.20.2.tar.gz
03-31
perl-5.20.2.tar.gz，linux，编译环境，
Perl动态建立ZIP压缩文件
bobo now~
11-22 707
Perl动态建立ZIP压缩文件
Linux下Perl的安装
lepton126的专栏
06-06 1391
Linux下Perl的安装 (2010-12-29 16:57:45) 转载▼ 标签： perl perl安装 perl更新 perl源码 perl源码编译 杂谈 分类：技术类 今天在虚拟机测试shell脚本的时候，有些命令使用不了。 比如说 mysqlhotcopy ，它提示Perl的版本太低。 我用的 RedHat9 的Perl
perl-5.26.1.tar.gz
01-23
perl-5.26.1.tar.gz源码包！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
perl linux 独立运行,Perl脚本打包为独立执行程序
weixin_42426472的博客
05-08 958
Linux平台打包Perl脚本为独立运行程序一、安装打包工具安装注意事项：1)尽量选择与这个Perl版本兼容的相关Perl模块；2)由于PAR-Packer-1.013对perl版本需求决定，必须卸载系统中不兼容的perl版本及所有Perl开头相关包，源码编译安装perl-5.10.1.tar.gz，下载网址：http://www.cpan.org/src/5.0/perl-5.10.1.tar....
perl-Archive-Zip-1.30-11.el7.x64-86.rpm.tar.gz
最新发布
01-31
Archive-Zip模块是Perl编程语言的一个库，它提供了读写ZIP归档文件的功能。该模块使得Perl能够创建、修改和提取ZIP格式的压缩文件，同时支持多种压缩算法和ZIP文件格式的各个版本。它广泛应用于需要进行文件打包、...
Archive::Any::Create-Perl语言创建tar.gz和zip存档的API介绍
7. 基于文档描述，提供了一个实例代码，展示了如何在Perl中使用Archive::Any::Create模块创建归档文件。 整体来看，这些知识点覆盖了文件归档、编程语言、API抽象以及开源项目等多个IT专业领域，为学习和掌握相关...
cpanspec：从cpan tar文件创建openSUSE spec文件
02-05
`cpanspec`工具专门针对Perl模块，它能帮助开发者从CPAN（Comprehensive Perl Archive Network）上的tar文件快速生成适用于openSUSE的spec文件。CPAN是Perl模块的一个巨大仓库，包含了大量的开源Perl代码库。当一个...
Perl Geo::Geonames模块：地理信息处理工具
标题“geo-geonames：Perl Geo :: Geonames模块”揭示了本内容将关注于一个专门...而“geo-geonames-master”文件名则暗示了该模块的源代码可能存储在以“master”命名的压缩文件中，待开发者进行下载、安装和使用。
Linux 底下利用PAR 打包Perl程序为可执行程序
devin_xin的博客
03-05 3615
前言 最近遇到将Perl程序打包成可执行文件发布出去的技术，遇到了/usr/bin/pp 的命令，今天大概讲下如何使用这个命令打包Perl程序吧 Linux 下安装PAR 要使用pp（Perl Pacakge）命令，需要安装PAR,关于PAR是的介绍，请参考其官网介绍PAR。 当然前提是装了Perl，而且是装了cpan模块，cpan模块安装很简单，我的Linux机器已经自带这个模块，没有的安装可以...
linux进程 exe可执行文件空,perl程序打包成exe或linux二进制可执行文件
weixin_29828857的博客
04-28 599
我大概是用Perl写程序的人里头很怪的一个。大部分人都是用Perl写网站程序，可是我是用它来开发应用程序。大部分人都不害怕暴露他们的Perl源代码，可是我得保护我的源代码。不管这听起来有多荒谬，事实就是如此。为了保护Perl源代码，常用的有三种方法。1. 使用Perl自带的perlcc工具。这个工具有一个最大的弱点：它只能作用于一个perl文件。假如你和我一样写了十几二十几个perl包，主程序里倒...
perl 文件打包操作
strong_wenzi的专栏
03-05 2719
在Linux下，运用perl对文件进行打包拆包操作可以直接调用系统的相关命令进行，但是在windows下，没有相关的直接命令，或者dos自带的makecab打包不能很好的与Linux进行交互，或者调用WinRAR工具的命令操作又相当麻烦，且打包的格式(rar/zip)在Linux下要安装相应的工具才能拆包，下面介绍一种perl通过Archive::Tar、IO::Zlib模块跨windows/Li
Linux平台下的Perl库由5.8.8版本升级至5.10.0版本
weixin_43313046的博客
02-23 1472
Linux平台下的Perl库由5.8.8版本升级至5.10.0版本
Perl脚本打包为独立执行程序
weixin_34417814的博客
10-09 1216
Linux平台打包Perl脚本为独立运行程序 一、安装打包工具 安装注意事项： 1）尽量选择与这个Perl版本兼容的相关Perl模块； 2）由于PAR-Packer-1.013对perl版本需求决定，必须卸载系统中不兼容的perl版本及所有Perl开头相关包，源码编译安装perl-5.10.1.tar.gz，下载网址：http://www.cpan.or...
【转】PEAR Archive_Tar类的中文文档
茶_CC
12-05 656
PEAR Archive_Tar类中文文档 =================================== 最后更新(译注:英文文档) : 2001-08-15   总览 : ----------   Archive_Tar类帮助创建和管理由GNU ZIP压缩或者非GNU ZIP压缩的GNU TAR格式文件.   该类提供了一些基本函数,象创建压缩包,在压缩包里加入文件,从压
perl 遍历文件夹， 压缩文件
清风名
09-29 434
use Archive::Zip qw( :ERROR_CODES :CONSTANTS ); my $aaa = "D:\\NCR_v2.2.2\\test"; my $zip = Archive::Zip->new(); #foreach $file (@files) { # $zip->addFile("$aaa/$file", $bbb); #} # Add a d...
perl编译安装
qinyequan1992的专栏
06-04 842
下载地址：http://www.cpan.org/src/5.0/perl-5.20.0.tar.gz
[Perl]对*.zip文件操作的记录<一>
champwang
07-08 1313
[Perl]对*.zip文件操作的记录(1)今天要对*.zip文件进行简单的操作，如解压缩，提取某只文件等。来这里记录下，以免忘记。首先，加个帽子：#!perl use strict; use warnings;#報告更詳細的問題描述，等同 perl - Mdiagnostics ./my-program.pl use diagnostics;#Provide an interface to ZIP
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值