Получение строк из массива и остановка на определенном символе

Question

Я ищу некоторую помощь по скрипту, который может проходить через строки массива, печатать их на экране и останавливать, когда скрипт обнаруживает определенный символ, в в этом случае отметка !. Я попытался с помощью foreach заявления, но не получаю никакого успеха ...

Примера массива (@lines) содержания является:

ip vrf test 
rd 2856:10000331 
export map SetAltMgmtRT 
route-target export 2856:10000331 
route-target import 2856:10000331 
maximum routes 1000 75 
! 

Сценария у меня до сих пор:

elsif ($action eq "show_vrf") { 
      my $cmd = "show run | begin <VRF_NAME>"; 
      $cmd = $cmd . " | i $include" if($include) ; 
      my @lines = $s->cmd(String => $cmd, 
          Prompt => "/$enableprompt/", 
          Timeout => 10); 
      foreach $lines (@lines) { 
        <statement, this is where I am stuck> 
      } 
      print $lines; 

Любая помощь будет оценена :)

Answer 1

Каковы критерии остановки? Любой восклицательный знак или только один на своей собственной линии? Или просто строка, начинающаяся с восклицательного знака?

У вас также есть несколько вещей под названием lines, которые вам нужно разобраться.

my $output; 
foreach my $line (@lines) { 
    last if $line =~ m/^!/; # leave loop if line starts with an exclamation mark 
    $output .= $line; 
} 
print $output; 

Для ваших дополнительных требований в свой комментарий ниже (данные более одного восклицательного знака) вам нужно что-то вроде этого:

Answer 2

перерыв, если линии совпадают!

last if ($line =~ /!/); 

Answer 3

for(@lines){ 
last if(/\!$/);# this will be true if there is an Exclamation mark at the end of line 
print $_ 
}