|
Line 0
Link Here
|
|
|
1 |
#!/usr/bin/perl |
| 2 |
|
| 3 |
# Copyright (c) 2012, Gea-Suan Lin |
| 4 |
# All rights reserved. |
| 5 |
# |
| 6 |
# Redistribution and use in source and binary forms, with or without |
| 7 |
# modification, are permitted provided that the following conditions are met: |
| 8 |
# |
| 9 |
# 1. Redistributions of source code must retain the above copyright notice, this |
| 10 |
# list of conditions and the following disclaimer. |
| 11 |
# 2. Redistributions in binary form must reproduce the above copyright notice, |
| 12 |
# this list of conditions and the following disclaimer in the documentation |
| 13 |
# and/or other materials provided with the distribution. |
| 14 |
# |
| 15 |
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND |
| 16 |
# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED |
| 17 |
# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE |
| 18 |
# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR |
| 19 |
# ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES |
| 20 |
# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; |
| 21 |
# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND |
| 22 |
# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
| 23 |
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS |
| 24 |
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
| 25 |
# |
| 26 |
# The views and conclusions contained in the software and documentation are those |
| 27 |
# of the authors and should not be interpreted as representing official policies, |
| 28 |
# either expressed or implied, of the FreeBSD Project. |
| 29 |
|
| 30 |
use strict; |
| 31 |
use warnings; |
| 32 |
|
| 33 |
use CSS::Compressor qw/css_compress/; |
| 34 |
use IO::File; |
| 35 |
use Getopt::Long; |
| 36 |
|
| 37 |
my $outfile; |
| 38 |
my $verbose = 0; |
| 39 |
|
| 40 |
GetOptions('output|o=s' => \$outfile, 'verbose|v' => \$verbose); |
| 41 |
|
| 42 |
my $infile = $ARGV[0]; |
| 43 |
|
| 44 |
if (!defined $infile) { |
| 45 |
die 'You need to specify input css file'; |
| 46 |
} |
| 47 |
|
| 48 |
my $fh = IO::File->new($infile, 'r') or die $@; |
| 49 |
my $input = join '', <$fh>; |
| 50 |
$fh->close; |
| 51 |
|
| 52 |
my $output = css_compress $input; |
| 53 |
if (defined $outfile) { |
| 54 |
my $fh = IO::File->new($outfile, 'w+') or die $@; |
| 55 |
print $fh $output; |
| 56 |
$fh->close; |
| 57 |
} else { |
| 58 |
print $output; |
| 59 |
} |
| 60 |
|
| 61 |
__END__ |