作者herbert570 (エニシ 縁)
看板EE_DSnP
标题[心得] 压缩
时间Sun Oct 18 22:00:28 2009
有见於每次压缩要打一堆字很烦，所以就参考老师的 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