Chinaunix首页 | 论坛 | 博客
  • 博客访问: 311648
  • 博文数量: 48
  • 博客积分: 4510
  • 博客等级: 中校
  • 技术积分: 556
  • 用 户 组: 普通用户
  • 注册时间: 2008-04-05 18:19
文章分类

全部博文(48)

文章存档

2012年(1)

2011年(9)

2010年(1)

2009年(12)

2008年(25)

分类:

2009-05-24 00:24:51

清理 ghc 产生的中间文件的脚本:

#!/usr/bin/perl

use warnings;
use strict;

use File::Basename;

# remove ghc intermediate files

my $rm = 'rm -f';

my @files;

my @suffixes = qw(.o .hi .hc .s .tix .aux .prof .hp .ps);
my @ssuffixes = qw(.hs .lhs .hs-boot .lhs-boot);

map { push @files, "*$_" } @suffixes;
push @files, ('*.hi-boot', '*.o-boot');

map { push @files, (fileparse($_, qr/\.[^.]*/))[0] }
    (@ARGV > 0 ? @ARGV : map { glob("*$_") } @ssuffixes);

print "$rm $_\n" for @files;

阅读(1292) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~