�� (serg_56)

Thu, 15 Sep 2011 13:31:20 GMT

��

$session->login('dff', 'dfsdf');
# Execute a command
map{ print $1."\n" if(m!input rate.+\s(\d+\s+packets/sec)!)} $session->cmd('show int FastEthernet 0/1');

�� map � regexp

�� (allez)

Wed, 17 Aug 2011 14:40:43 GMT

>[�� ]
> $session->login('dff', 'dfsdf');
> # Execute a command
> my @output = $session->cmd('show int FastEthernet 0/1');
> {
> my @result = grep /input rate/i, @output;
> print @result;
> };
> ��:
> 30 second input rate 6000 bits/sec, 13 packets/sec
> �� "13 packets/sec"

�� [b]perldoc -f split[/b].

� �� :
[code]$ perl -e '@arr = "30 second input rate 6000 bits/sec, 13 packets/sec"; ($a, $b) = split(/, /, "@arr[0]"); print "a = $a\n"; print "b = $b\n";'
a = 30 second input rate 6000 bits/sec
b = 13 packets/sec
[/code]

OpenForum RSS: �������� � ������

�������� � ������ (serg_56)

�������� � ������ (allez)

OpenForum RSS: ��

�� (serg_56)

�� (allez)