Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  gfgf
Language: JAVA
Code:
use strict;
use List::Util qw/shuffle/;
use List::MoreUtils qw/uniq/;
use constant DEBUG => 0;

my $code;

# ...

if(!DEBUG) {
  $code =~ s/(\/\*\*\* $js_compress_begin \*\*\*\/.*?\/\*\*\* $js_compress_end \*\*\*\/)/js_quick_compress($1)/gsieo;

  # удаляем лишние комменты в HTML (кроме if IE)
  $code =~ s/<!--[^\[].*?-->//gs;
 
  # получаем имена всех переменных и функций с помощью префикса
  # также делаем замены в html-коде
  my @vars = $report =~ /(\{PREFIX\}[a-zA-Z0-9\_]+)/g;
  @vars = shuffle uniq @vars;
  my $new_name = "aa";
  for my $i(0..$#vars) {
    my $old_name = quotemeta($vars[$i]);
    $code =~ s/$old_name/$new_name/g;
    $new_name++;
  }
}

print $code;
Comments: