Perl Archive

use strict; 



{ 

    print "Hello, Hello, How low?"; 

}

以前書いたエントリのJSminを積極的に使ってみるための準備が不便なのでCGI版を作ってみました。

CGI版 JSmin
http://www.exspider.net/jsmin/jsmin.pl

このブログエントリからも使えます。
下記のテキストフィールドにJavascriptのコードをペーストして、minify!ボタンを押してください。

YSlowをFireBugに組み込んでハイパフォーマンスWebサイトの本を読んでいると

JSminiを使ってないと悪だ。

という気分になったので、Perlモジュール版をインストールして使ってみます。

自宅の開発機での実験になります。

CPAN JavaScript::Minifier


これを使います。

perl -MCPAN -e shell

CPANモジュールをシェルモードで起動します。

次に

install JavaScript::Minifier

パラパラとインストールのメッセージがでてきてインストールされます。

#!/usr/bin/perl</p> <p>#$Id$<br /> #js mini script</p> <p>use strict;<br /> use JavaScript::Minifier qw(minify);</p> <p>{<br /> my $infile = shift;<br /> my $outfile = shift;</p> <p> if(!$infile && !$outfile){<br /> print “jsmin.pl infile outfile\n”;<br /> exit;<br /> }</p> <p> open(INFILE, $infile) or die;<br /> open(OUTFILE, “>$outfile”) or die;</p> <p> minify(input => *INFILE, outfile => *OUTFILE);<br /> close(INFILE);<br /> close(OUTFILE);<br /> }<br /> exit;</p> <p>