CSSを軽量化!CSS::Minifier::XSを使ってみた。
2014年10月21日
CSS::Minifierってのと、CSS::Minifier::XSってのがあったんですが、XSじゃない方はあんま更新されてないようなのでXSの方で。
ま、XSの方も1年くらい更新されてませんが・・。
#!/usr/bin/perl
use strict;
use warnings;
use Path::Class;
use CSS::Minifier::XS qw(minify);
my $org_file = 'main.css';
my $min_file = 'main.min.css';
my $css = file($org_file)->slurp;
my $min_css = minify($css);
my $op = file($min_file);
my $w = $op->open('w');
$w->print($min_css);
$w->close;
__END__
ファイル読み込んでminifyして保存。
ま、気休めくらいにはなるかな・・?