[心得] 壓縮

[herbert570 (エニシ 縁)]

有見於每次壓縮要打一堆字很煩，所以就參考老師的 SelfCheck，
寫了一個壓縮的小 executable。

把下面的東西複製到空白的檔案(設成可執行)，然後把 b96901163 換成自己的學號

用法：假設檔名為 wrap，要壓縮作業二。
./wrap 2
wrap 要和 b96901163_hw2/、SelfCheck、MustExist.txt、MustRemove.txt
放在同一目錄下

--
#!/usr/bin/env perl
use strict;
my $arg;
my $myID;
my $myCmd;
my $myTgz;
my $myFolder
if(@ARGV < 1){
        die "Which Homework to compress?\n";
}

$myID = "b96901163";

$arg = $ARGV[0];
$myFolder = $myID."_hw$arg";
$myTgz = $myID."_hw$arg.tgz";
$myCmd = "tar zvcf $myTgz $myFolder/;./SelfCheck $myTgz";
exec $myCmd;

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.112.4.235