Сравнивая \ с и \ т

Question

В моей программе, я храню уровень отступа видел в @indentation_stack

Например:

$line =~ /^(\s*)(if|elif|else|while)/ 
push(@indentation_stack, $1); 

Я тогда сравнить уровень отступа я вижу в следующей строке уровень отступа в последнем элементе @indentation_stack.

if ($line =~ /^(\s*)[^\s+]/) { 
    while (@indentation_stack && $1 le $indentation_stack[-1]){   
      print $indentation_stack[-1],"}\n";   
      pop @indentation_stack;   
    } 
} 

Идея, если отступы на последующую строке эквивалентны последний элемент @indentation_stack, я напечатать } и символ новой строки.

Это работает нормально, пока отступы состоят из spaces. Однако, если я создаю тот же уровень отступов, используя \t, мой код не работает должным образом.

EDIT: Если все интервалы согласованы, то используются все \t или все spaces, тогда проблем нет. Поэтому я думаю, что я пытаюсь понять, как я могу просто сравнить пространство. То есть \t может быть эквивалентно числу spaces.

Кто-нибудь знает, почему это происходит?

Благодарим за помощь.

Answer 1

Проблема с вкладками в сравнении с пространством является старой, без ответа, выбрать один и быть последовательным, так как смешивание двух является плохим. Различные редакторы могут отображать вкладки как разные числа пробелов и даже динамически в пределах одного файла относительно их контекста.

Таким образом, множество редакторов, emacs - это то, о чем я знаю, предлагают способы автоматического преобразования вкладок в пробелы для вас и только вставки пробелов при нажатии на вкладку.

Кроме того, ваша программа может принимать вкладки, чтобы быть определенным количеством пробелов, хотя для этого, вероятно, потребуется преобразование вкладок в пробелы по всем строкам, а не только из тех, которые вы создаете. Если вы не хотите делать какое-то смешанное представление или конвертировать в ближайший промежуток между вкладками - это сложная задача для небольшой причины.

Answer 2

Вы спрашиваете, как рассчитать видимую длину вкладок? Вкладки переместите курсор к следующей вкладке.

use constant TAB_STOP => 4; 

sub indent_size { 
    my ($s) = @_; 
    my $i = 0; 
    while ($s =~ /\G([ \t])/g) { 
     $i += $1 eq "\t" ? (TAB_STOP - ($i % TAB_STOP)) : 1; 
    } 

    return $i; 
} 

if (my ($indent) = $line =~ /^([ \t]+)[^ \t\n]/) { 
    my $indent_size = indent_size($indent); 
    while (@indent_stack && $indent_size <= indent_size($indent_stack[-1])) { 
     print pop(@indent_stack), "}\n";   
    } 
} 

Было бы более эффективно хранить отступ и его длину в стеке.