История изменений

Исправление ~~arturpub~~, 03.08.15 03:05 (текущая версия) :

По сабжу:

while (<>) {
  ...
  my $orig = $_;

  s/.../.../;

  print((length($orig) ? (INDENT x $currIndent) : ''), $orig, "\n") if ...;
  ...
}

Фактически, кроме индента оригинал строки меняется так:

  s/^\s+|\s+$//g; # remove all spaces on both ends
  s/\s+/ /g; # replace all whitespaces inside the string with one space

Исходная версия ~~arturpub~~, 03.08.15 03:05:

По сабжу:

while (<>) {
  ...
  my $orig = $_;

  s/.../...;

  print((length($orig) ? (INDENT x $currIndent) : ''), $orig, "\n") if ...;
  ...
}

Фактически, кроме индента оригинал строки меняется так:

  s/^\s+|\s+$//g; # remove all spaces on both ends
  s/\s+/ /g; # replace all whitespaces inside the string with one space