#!/usr/bin/perl use v5.14; use warnings; use CSS::Minifier::XS qw//; use JavaScript::Minifier::XS qw//; use File::Slurp qw/read_file write_file/; mkdir 'static'; mkdir 'static/css'; my $common_css; $common_css .= read_file $_ for ; for () { my ($theme) = m,themes/(.*)\.css,; my $css = read_file $_; $css .= $common_css; write_file "static/css/$theme.css", CSS::Minifier::XS::minify $css; } my $js; $js .= read_file $_ for ; write_file 'static/js.js', JavaScript::Minifier::XS::minify $js;