Perl как реализовать вывод первого числа в строке?

Question

[Андрей Бондарчук]

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

$s = "nnn MAC address learned in routing instance PPPoE-xxx bridge domain __PPPoE-xxxx__";
if ($s =~ /(\d)(?=\s)/)  # Найти цифру за которой стоит '\s'(пробел)
    {
        print "$1\n"; 
   }
else { print "ошибка поиска\n";}

Только тут не указывается, что нужно найти именно первое число после котороего стоит пробел. Какой идентификатор будет указывать именно на первое совпадение? А может и не стоит замарачиваться, ведь в требуемой строке только nnn является целым числом (xxx может являться сочетанием букв и цифр)

Answer 1

[ldv]

upd:

#!/usr/bin/perl
use strict;
use warnings;
 
open(my $file, 'log.txt') or die "Could not open file $!";


my $first = <$file>;

if ($first =~ /^(\d+)(?=\s)/)  
{
   print "$1\n"; 
}
else { print "ошибка поиска\n";}

Comments

[Андрей Бондарчук]

А как сказать скрипту, что искомое значение находится именно в последней строке документа лога?

[Андрей Бондарчук]

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

если существует строка содержащая "nnn MAC address learned in routing instance" то занести ее в переменную $s

А далее уже

$s = "nnn MAC address learned in routing instance PPPoE-xxx bridge domain __PPPoE-xxxx__";
if ($s =~ /^(\d)(?=\s)/)  # Найти цифру за которой стоит '\s'(пробел)
    {
        print "$1\n"; 
   }
else { print "ошибка поиска\n";}

[Андрей Бондарчук]

проглядел, интересующая меня строка
nnn MAC address learned in routing instance PPPoE-xxx bridge domain __PPPoE-xxxx__
будет самой первой после того как скрипт выполнит команду, следовательно нужно научить скрипт выводить нужную цифру из самой первой строки полученной информации

[ldv]

Нужно первое число в строке или последнюю цифру этого числа?

[Андрей Бондарчук]

ldvldv: первое число в этой строке (тут условно оно обозначено nnn)

[ldv]

sh1kima26: обновил ответ

[Андрей Бондарчук]

ldvldv: спасибо большое!

[Андрей Бондарчук]

ldvldv: сейчас у меня получается вот что

#!/usr/local/bin/perl

use Time::HiRes;
use Net::Telnet;
use strict;
use warnings;

$user = "admin";
$pass = "1234";

open (IPLIST, "iplist.txt");
open (WRFILE, ">>log.txt");

while ($host = <IPLIST>) 
{
    $th = new Net::Telnet(Timeout => 15, Telnetmode => 1,Errmode => "return");

    print "======================= START =======================\n";
    print "[+] Connectiong to: ".$host."\n";
    print "=====================================================\n";
    
    print WRFILE "======================= START =======================\n";
    print WRFILE "[+] Connectiong to: ".$host."\n";
    print WRFILE "=====================================================\n";
    
    $th->open($host);

    $th->waitfor('/ser name:.*$/');
    $th->print($user);

    $th->waitfor('/assword:.*$/');
    $th->print($pass);

    $th->waitfor('/#.*$/');

    open (COMMANDS, "commands");

    while ($cmds = <COMMANDS>) 
    {
	        $th->print($cmds);
                @out = $th->waitfor('/#.*$/');
		print @out;
		print WRFILE @out;
    }
   
    close(COMMANDS);
	
	open(my $file, 'log.txt') or die "Could not open file $!";

		my $first = <$file>;

		if ($first =~ /^(\d+)(?=\s)/)  
	{
		print "$1\n"; 
	}
		else { print "ошибка поиска\n";}
		
	close(my $file, 'log.txt');
	
    print "\n===================  END  ===================\n\n\n";
    print WRFILE "\n===================  END  ===================\n\n\n";
    Time::HiRes::sleep(10);
}

close(WRFILE);
close(IPLIST);

Оцените пожалуйста адекватность. Первый раз пришлось работать со скриптами, собираю все с миру по нитке от добрых людей.

[ldv]

Какой смысл читать файл log.txt с диска, если первую его строчку можно получить из массива @out ? Да и не факт, что на момент чтения данные будут уже в файле на диске.

[Андрей Бондарчук]

ldvldv: я первый раз в жизни просто работаю с perl.

Вообще, полная картина обстоит так
Командой show vpls mac-table count instance PPPoE-хххх получаем таблицу с количеством абонентов (хххх - хостнейм железки).
указанная команда вываливает таблицу из которой нам нужно только

nnn MAC address learned in routing instance PPPoE-xxx bridge domain __PPPoE-xxxx__
где nnn - сумарное число маков в домене ххх

Смысл такой:
по telnet скрипт заходит на железку
вводит логин
вводит пароль
обращается к документу с командами (где записано следующее:
show vpls mac-table count instance PPPoE-ххх-1
show vpls mac-table count instance PPPoE-ххх-2
и т.д.) и отправляет их железке, вываливается таблица маков, первая строка которой
nnn MAC address learned in routing instance PPPoE-xxx bridge domain __PPPoE-xxxx__
Значение nnn каждого такого ответа на команду должно записываться в файл.

Получаемые данные будет использоваться программой мониторинга Zabbix.
Алгоритм я представляю, просто не знаю языка, по этому и прошу помощи

[ldv]

sh1kima26: Что-то вроде этого?

#!/usr/bin/perl

use Net::Telnet;
use strict;
use warnings;

my $user = "admin";
my $pass = "12345";

open(my $iplist, "iplist.txt");
open(my $log, ">>log.txt");
open(my $counts, ">>counts.txt");
open(my $cmds, "commands");

my @commands = <$cmds>;


while (my $host = <$iplist>) 
{
   chomp($host);
   my $th = new Net::Telnet(Timeout => 15, Telnetmode => 1,Errmode => "return");

   print "\n======================= START =======================\n";
   print "[+] Connecting to: ".$host."\n";
   print "=====================================================\n";
   print $log "\n======================= START =======================\n";
   print $log "[+] Connecting to: ".$host."\n";
   print $log "=====================================================\n";
   
   
   $th->open($host);

   $th->waitfor('/login|user name/i');
   $th->print($user);
   
   $th->waitfor('/password/i');
   $th->print($pass);
                

                    
   my $i = 1;
   foreach my $cmd (@commands)
   {

      $th->waitfor('/[$#]/');

      my @out = $th->cmd($cmd);

      print @out;
      print $log @out;
      
      foreach my $line (@out)
      {
         if ($line =~ /^(\d+)(?= MAC address learned)/)
         {
             print $counts $host.": ".$i.",".$1."\n"; 
             $i++;
         }
      }      
      
   }
      
   
}

close($iplist);
close($log);
close($counts);
close($cmds);

[Андрей Бондарчук]

ldvldv: Спасибо Вам мил человек! Как проверю обязательно напишу!

[Андрей Бондарчук]

ldvldv: дошли таки до тестирования. Стопорится на
При запуске с FreeBSD
======================= START =======================
[+] Connecting to: ".$host."\n";
=====================================================
сначала указывал на строку open(my $cmds, "commands");
переименовали commands в commands.txt
стопорится теперь там же, но просто без указания строки.

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

readline() on closed filehandle $cmds at /usr/local/etc/zabbix22/zabbix/externalscripts/MAC_summary_script_v1.pl line 15.
readline() on closed filehandle $iplist at /usr/local/etc/zabbix22/zabbix/externalscripts/MAC_summary_script_v1.pl line 17.

15 строка это commands, 17 while (my $host = <$iplist>)

[ldv]

sh1kima26: в функциях open() полные пути до файлов напишите

[Андрей Бондарчук]

ldvldv: даже если файлы в одном каталоге со скриптом?

[ldv]

sh1kima26: по идее нет, но если не работает.
Этот скрипт Zabbix вызывает? У него права на эти файлы есть?

[Андрей Бондарчук]

ldvldv: пока мы не привязываем скрипт к заббиксу, это на перспективу, сейчас просто с заббикс сервера тестируем скрипт.
Как будут продвижения сообщу.
Спасибо!

[na_puti_k_istine]

sh1kima26: Попробуйте открывать файлы как положено, с проверкой. Если на каком-то из нижеследующих опенов будет облом, программа сразу же "упадет" и выведет соответствующее сообщение вместе с уточняющей инфой от ос (которая хранится в $!). В этом случае удастся узнать больше о причинах проблемы.
open my $iplist, '<', 'iplist.txt' or die "can't open iplist: $! ";
open my $log, '>>', 'log.txt' or die "can't open logfile: $! ";
open my $counts, '>>', 'counts.txt' or die "can't open counts: $! ";
open my $cmds, '<', 'commands' or die "can't open cmds: $! ";

Зы: файлхендл $cmds можно закрыть сразу после my @commands = <$cmds>;

[Андрей Бондарчук]

ldvldv: Здравствуйте!
Вернулся таки к скрипту, как оказалось начальство ошиблось в постановке задачи и там требуется соединение по SSH (еще и под windows, использовал ssh2).
команду решил внести в сам код, т.е. my $cmds = 'текст команды';
Код получился такой:

#!/usr/bin/perl
use warnings;
use strict;
use Net::SSH2;
use IO::File;
my $host = '77.39.84.16';
my ($user) = 'av_bondarchuk';
my ($password) = '314MyP753';

open my $log, '>>', "log.txt" or die "can't open logfile: $! ";
open my $counts, '>>', "counts.txt" or die "can't open counts: $! ";
my $cmds = 'show vpls mac-table count instance PPPoE-STV-ATS24';

my @commands = $cmds;
my $ssh2 = Net::SSH2->new();
$ssh2->connect($host) or die "Can not connect to $host $@ \n";
$ssh2->auth_password($user, $password) or die "Can not login with $user/$password\n";
 
my $i = 1;
   foreach my $cmd (@commands)
   {

      my @out = $ssh2->cmd($cmd);

      print @out;
      print $log @out;
      
      foreach my $line (@out)
      {
         if ($line =~ /^(\d+)(?= MAC address learned)/)
         {
             print $counts $host.": ".$i.",".$1."\n"; 
             $i++;
         }
      }      
      
   }
print 'done';
close($log);
close($counts);
close($cmds);

скрипт запинается на my @out = $ssh2->cmd($cmd); и пишет cmd is not valid Net::SSH2 macro

[ldv]

Андрей Бондарчук: так метода такого и нет у ssh2

[Андрей Бондарчук]

ldvldv: я понял, но как его аналогично заменить?

[ldv]

Андрей Бондарчук: документацию надо почитать по Net::SSH2, я с этой библиотекой не встречался

Answer 2

[Ilya Evseev]

Какой идентификатор будет указывать именно на первое совпадение?

Никакой, это свойство операции поиска по образцу.

$s = "...";
my @lines = split /[\r\n]+/, $s;
my $result = ( $lines[$#lines] =~ /(\d)\s/ ? $1 : "not found" );
print "$result\n";