批量檔案轉碼壓縮打包Perl指令碼

我們經常遇到批量檔案轉碼後壓縮打包，為此我編寫了乙個perl指令碼，執行指令碼檔案後自動實現這些功能。

#!/usr/bin/perl

use strict;
my @array=(
"110",
"120",
"130",
"140",
"150",
"210",
"212",
"220",
"230",
"310",
"320",
"330",
"332",
"340",
"350",
"352",
"360",
"370",
"372",
"410",
"420",
"430",
"440",
"443",
"450",
"460",
"500",
"510",
"520",
"530",
"540"
);

my $utf8_path = "/tmp/";

#count the files.
my $file_count=0;
#get files_name.
my @file_name_array;
opendir(dir,$utf8_path) or die "can't open the directory!";
@file_name_array=readdir dir;

foreach my $file_name (@file_name_array)else

}

#this is tar function.

my $tar="tar -zcvf "."gz.tar"." *.txt";
`$tar`;
print "$tar"." success!\n";

#loop every number,tar and move files to 36 directories.

foreach my $number(@array);
print "**********==$file_count"." files cat"." success!!!**********===\n";

批量檔案轉碼壓縮打包Perl指令碼

我們經常遇到批量檔案轉碼後壓縮打包，為此我編寫了乙個perl指令碼，執行指令碼檔案後自動實現這些功能。usr bin perl usestrict my array 110 120 130 140 150 210 212 220 230 310 320 330 332 340 350 352 360...

檔案壓縮打包

1.gzip 1 gzip gzip 檔案 生成.gz檔案 2 gzip 6 預設級別 3 gzip d 壓縮檔案 解壓縮 4 gunzip 壓縮檔案 解壓縮 5 zcat 壓縮檔案 檢視壓縮檔案內容 2.bzip2 1 bzip2 檔案 生成.bz2檔案 2 bzip2 9 預設級別 3 bzip...

檔案壓縮與打包

檔案壓縮原理 目前計算機都是使用所謂的byte來計量的，而事實上最小的計量單位應該是bit，而 byte 8bit，而對於數字 byte也就是乙個bit，相當於浪費了7個bit，因此可以壓縮。linux常見的壓縮命令 壓縮檔案的拓展名一般是 tar gz tgz等 gzip最常見的壓縮命令 壓縮檔案...