在嵌入式设备上使用Minify javascript/css，不能引入工具链

Question

我使用Wt在嵌入式设备上运行web服务器，这是一个javascript重站点。我使用chroot环境编译、制作包(基于deb)和安装。我需要一种方法来缩小javascript/css，而不使用第三方工具(uglify需要NodeJS、npm、Java)，在这里我可以使用CMAKE并调用命令行可执行文件来执行它。我发现了一些shell脚本(perl、bash)，但是当我的javascript缩小时，出现了许多无法解释的错误。

我的堆栈上有什么：

• perl 5.8.8
• 巴什3.2.39巴什
• python 2.7.5
• 没有Java

如果你还需要什么就告诉我。谢谢!

我尝试过的：

• https://github.com/Aralhach/bashobfus/tree/master。代码不像uglify那样缩小，只是删除制表符和间距，没有一行缩小。不知道perl能解决这个问题。
• YUI使用java -不能使用
• Uglify使用节点-不能使用
• 闭包编译器使用java - use使用。
• sed脚本-一些理由对我的javascript语法产生影响并导致错误。

Answer 1

您有能力运行perl吗？我不确定它是否是来自cmake的可执行文件(这就是我现在正在搜索的信息)，但是在构建esp8266 web内容时，我一直在使用缩小的web内容来保存到闪存中。我使用CPAN库构建了一个脚本来缩小html、css和javascript，并将它们放入我可以从我的主要代码中读取的.h头文件中。

我将这些web文件放在一个www结构下，然后在/gz/ sub下映射缩小的内容，并在目录中指定类型。(例如，gz/htm、gz/js、gz/css)，然后我的服务器用适当的编码和url转换发送。大多数浏览器都支持gzip的内容，它允许我以更快的速度从嵌入式设备发送web内容。

#!/usr/bin/perl

use CSS::Packer;
use JavaScript::Packer;
use HTML::Packer;
use File::Slurp;
use Gzip::Faster;
use MIME::Types;


my $outfile = "src/webfiles.h";
my $webdir = "www";
my $find_exe = "/usr/bin/find";
my $xxdexe = "/usr/bin/xxd -i";
my $findcmd = $find_exe . " " . $webdir . " -type f ";

my $mt = MIME::Types->new();
my $files = open(FINDSTRM, "$findcmd|") || die $!;
my @filelist;
while($line = <FINDSTRM>) {
   chomp($line);
   if($line =~ /^$webdir(.*)\/([^\.\/]+)\.(\w{2,4})$/) {
      my %fileinfo;
      $fileinfo{path} = "$1/$2.$3";
      $fileinfo{dir} = $1;
      $fileinfo{name} = $2;
      $fileinfo{ext} = $3;
      my $type =  $mt->mimeTypeOf($fileinfo{ext});
      $fileinfo{type} = $type->{MT_type};

      my $bindat;
      if($type->{MT_type} eq "text/html") {
         print "html minifying $line\n";
         my $html = read_file($line);
         my $packer = HTML::Packer->init();
         my $htmin = $packer->minify( \$html, { remove_newlines => 1, remove_comments => 1, do_javascript => 'best', do_stylesheet => 'minify' } ); 
         $bindat = gzip($htmin);
      }
      if($type->{MT_type} eq "text/css") {
         print "css minifying $line\n";
         my $css = read_file($line);
         my $packer = CSS::Packer->init();
         my $cssmin = $packer->minify(\$css, { compress => 'minify', remove_comments => 1 } );
         $bindat = gzip($cssmin);
      }
      if($type->{MT_type} eq "application/javascript") {
         print "javascript minifying $line\n";
         my $js = read_file($line);
         my $packer = JavaScript::Packer->init();
         my $jsmin = $packer->minify(\$js, { compress => 'best', remove_comments => 1, remove_copyright => 1 } );
         $bindat = gzip($jsmin);
      }

      # other text based formats
      if( $type->{MT_type} eq "text/plain" ) {
         print "compressing text in $line\n";
         my $asc = read_file($line);
         $bindat = gzip($asc);
      }

      if(length($bindat) == 0) {
         print "raw reading $line\n";
         $bindat = read_file($line, { binmode => ':raw' });
         $fileinfo{enc} = '';
      } else {
         $fileinfo{enc} = 'gzip';
      }

      {
         use bytes;
         $fileinfo{len} = length($bindat);
      }
      $tfile = "/tmp/tmpfile";
      write_file( $tfile, {binmode => ':raw'}, $bindat );
      open(INXXD, "$xxdexe < $tfile |") || die $!;
      $fileinfo{hexdat} = do { local $/; <INXXD> };
      close INXXD;
      $fileinfo{hexdat} =~ s/^\s+|\s+$//g;
      push(@filelist,\%fileinfo);
  }
}
close FINDSTRM;

open(OUTFILE, ">", $outfile) || die $!;
print OUTFILE "\n#include \"Flash.h\"\n\n";

$count = 1;
foreach $f (@filelist) {
   print OUTFILE "FLASH_ARRAY(uint8_t, file_" . $count . ",\n";
   print OUTFILE "  " . $f->{hexdat};
   print OUTFILE ");\n\n";
   $count++;
}

print OUTFILE "struct t_websitefiles {\n";
print OUTFILE "  const char* path;\n";
print OUTFILE "  const char* mime;\n";
print OUTFILE "  const unsigned int len;\n";
print OUTFILE "  const char* enc;\n";
print OUTFILE "  const _FLASH_ARRAY<uint8_t>* content;\n";
print OUTFILE "} files[] = {\n";

$count = 1;
foreach $f (@filelist) {
   print OUTFILE "  {\n";
   print OUTFILE "    .path = \"" . $f->{path} . "\",\n";
   print OUTFILE "    .mime = \"" . $f->{type} . "\",\n";
   print OUTFILE "    .len = " . $f->{len} . ",\n";
   print OUTFILE "    .enc = \"" . $f->{enc} . "\",\n";
   print OUTFILE "    .content = \&file_" . $count . ",\n";
   print OUTFILE "  },\n";
   $count++;
}

print OUTFILE "};\n";
close OUTFILE;