В Perl IRS ($/) изменен, но, кажется, прокручивает чтение

Question

Я сделал много поиска по области видимости при использовании местных.

Отсюда я понимаю: http://www.perlmonks.org/?node_id=94007 что он временно меняет значение переменной между выполнением "локальной" строки и достижением следующего конца блока. Однако, кажется, что он также "прокручивает назад" курсор чтения Perl? Кажется, чтобы сохранить предыдущий $_.

Вот требования к моему Perl-скрипту:

На стандартном входе прочтите текстовый файл. если текущая строка соответствует ==, выведите строку в виде фрагмента html с соответствующим форматированием (различное форматирование каждого из ==, ===, ====), если оно содержит!, распечатайте часть перед! как имя свойства и часть после! до следующего! как значение (может охватывать несколько строк).

Вот пример файла:

$ cat dummy_spec.txt
== title1 (level 1) ==
=== title2 (level 2) ===
title2p2 !
2p2_1
!
title2p2 ! Line 1
!
title2p1 ! 
echo "$tam ta" 
!
title2p3 !
2p3
!
title2p2 ! Li
ne split
!
==== title3 (level 3) ====
title3p1 !
one
two
three
!

И вот мой код:

#!/usr/bin/env perl 
my $propName='';
my $propVal='';
while (<>){
    #print "new loop number $., contents $_ \n";
    $propName='';
    $propVal='';

    my $str=$_;
    chomp $str;

    if ($str=~/==\s+.+\s+==/)#If line is a Category, print category
    {
        $str=~s/=//g;
        print "\t\t\t<tr class=\"category\"><td colspan=\"2\">$str</td></tr>\n";
    } elsif($str=~/===\s+.+\s+===/)#If line is a list, print list title
    {
        $str=~s/=//g;
        print "\t\t\t<tr class=\"list\"><td colspan=\"2\">$str</td></tr>\n";
    } elsif($str=~/====\s+.+\s+====/)#If line is an item, print item title
    {
        $str=~s/=//g;
        print "\t\t\t<tr class=\"item\"><td>$str</td></tr>\n";
    } elsif($str=~/!/)#If line is a property, print name and value
    {
        ($propName,$propVal)=split '!', $_;
        chop $propVal;
        print "This is a property ($.) with name : $propName and first line : $propVal \n";
        local $/ = "!\n";
        if(<>){#custom $/ should still be in scope here.            
            chomp;
            $propVal="$propVal -~- $_";
            print "This is a property ($.) with name : $propName and value : $propVal \n";
        }
    }

}

Вывод не тот, который должен быть:

$ cat dummy_spec.txt |./multi 
            <tr class="category"><td colspan="2"> title1 (level 1) </td></tr>
            <tr class="category"><td colspan="2"> title2 (level 2) </td></tr>
This is a property (3) with name : title2p2  and first line :  
This is a property (4) with name : title2p2  and value :  -~- title2p2  
This is a property (5) with name : title2p2  and first line :  Line 1 
This is a property (6) with name : title2p2  and value :  Line 1 -~- title2p2 ! Line 1

This is a property (7) with name : title2p1  and first line :   
This is a property (8) with name : title2p1  and value :   -~- title2p1 ! 

This is a property (9) with name : title2p3  and first line :  
This is a property (10) with name : title2p3  and value :  -~- title2p3  
This is a property (11) with name : title2p2  and first line :  Li 
This is a property (12) with name : title2p2  and value :  Li -~- title2p2 ! Li

            <tr class="category"><td colspan="2"> title3 (level 3) </td></tr>
This is a property (14) with name : title3p1  and first line :  
This is a property (15) with name : title3p1  and value :  -~- title3p1  

кажется, что он также "прокручивает назад" курсор чтения Perl? Он печатает предыдущий $_.

Я также извиняюсь, потому что мой Perl очень простой.

Answer 1

Вы не назначаете на $_ в области с вашим измененным значением $/, только чтение из ввода и использование строки чтения в качестве условия оператора if.

Магическое задание $_ переменная при чтении из файла происходит только если <> оператор является единственным содержанием условия while цикл, это не относится к условию if заявление. См. Четвертый абзац в документации для операторов ввода-вывода.

Вы, вероятно, захотите изменить это утверждение if на:

if(defined ($_ = <>))