С разрешения Сергея Казакова - код для оптимизации html после обработки его
конвертером, который вставляет кучу не нужных
, пустых строк и
неправильно делает align в картинках.
#!/usr/bin/perl
$path = '/usr/local';
$inputname = $ARGV[0];
$pathname = $ARGV[1];
$file = '';
open(IN, "$path/bin/wvWare -x $path/share/wv/wvZopeCont.xml -c koi8-r $inputname |");
while (
) {
$file = "$file$_";
}
close(IN);
$file =~ s/\n{2,100}/\n/gs;
$file =~ s/<\/div>/ <\/div>/igs;
@divs = $file =~ m/()/isg;
foreach $d (@divs) {
@imgs = $d =~ m/(