Perl Regular Expression Pattern

Question

У меня есть некоторые данные, как например:

TYPE: Travel 
ADDRESS 
    Barcelona 
    Paris 

Таким образом, адрес может быть 1 или много (мне нужно сбросить адрес и получить только те города). По какой-то причине мой синтаксический анализ завершился неудачей (напечатан только «АДРЕС») для получения правильного результата. Я что-то пропустил?

elsif (/^ADDRESS/) { 
    my @address_t = split /[no matter what i put,only ADDRESS is printed]+/, $_; 
     shift @address_t; #is this how i will discard ADDRESS ? 

     foreach my $address (@address_t) { 
       @address_names = ($address);    
    } 

Я думаю, что регулярное выражение должно быть разделено на новую строку, пробел?

Это, как я обработан ТИП:

elsif (/^TYPE/) { 
      my @type_t = split '\s', $_; 
      $type = $type_tmp[1]; 
        print "$type" ; #to test, but i have a hashmap which i load them in and print at the end of the file. 

Благодарности

Answer 1

use warnings; 
use strict; 

while(<DATA>) { 
    if (/^ADDRESS/) {   # if line contains ADDRESS then read addresses 
     while (<DATA>) {  # ... in a loop 
      last if !/^ +/;  # until we find a non-indented line 
      print $_;   # here you can push $_ to a list 
     } 
    } 
    if ($_ && /^TYPE/) {  # a TYPE after address can be processed now 
     # stuff 
    } 
} 

__DATA__ 
TYPE: Travel 
ADDRESS 
    Barcelona 
    Paris 
TYPE: Travel 
ADDRESS 
    Barcelona 
    Paris 

Производит:

Barcelona 
    Paris 
    Barcelona 
    Paris 

Answer 2

Попробуйте что-то вроде этого:

Он будет печатать строки, если предыдущая строка соответствует /^ADDRESS/. Дайте мне знать, если есть точка, в которой вы хотите остановиться, и я могу настроить ...

use warnings; 
use strict; 

my $current_line = ""; 
my $line_count = 0; 

while (<IN>){ 
    chomp; 
    my $previous_line = $current_line; 
    $current_line = $_; 
    if ($previous_line =~ /^ADDRESS/ or $line_count > 0){ 
    $line_count++; 
    print "$current_line\n" 

    } 
}