Shell Programming and Scripting

#!/usr/bin/perl

use lib '/usr/lib/perl5/5.14';
use Telnet ();

$target = "192.168.5.1";
$user = "root";
$passwd = "admin123";
print "####################################################################################\n";  

$t = new Net::Telnet (Timeout => 20);
eval { $t->open($target) };
print "Logging in to $target!\n";
$t->login($user, $passwd);
  
print "Waiting for prompt!\n";
$t->waitfor('/$/');
my $cmd_string = "/interface/wifi-1-2/show Clients";
@cell_data_sector1 = $t->cmd($cmd_string);

eval { $t->close($target) };

if ($debug =~ /-d/) { 
    print @cell_data_sector1; 
}

print @cell_data_sector1;

SS-ID VLAN MAC               TIME IP                 RSSI MODE  UAPSD BW GI WMOS DHCP       IDENTITY
----- ---- ---               ---- --                 ---- ----  ----- -- -- ---- ----       --------
1-1   0    C4:46:19:75:C1:55 23m  192.168.5.253      -24  bgn   no    20 S  4.9  ack*
1-2   0    5C:57:C8:69:8C:1E 3s   192.168.5.254      -38  bg    no    20 L  4.8  ack*

    my @macall = qw(print @cell_data_sector1);
    foreach $line (@macall) {
        if ($line =~ /C4:46:19:75:C1:55:\s+(\S+)/) {
                $id = $1;
            }
        }
      print "ID = $id";
      return (0);

$id=$line;
$id=~s/\s.*//;

    my @macall = qw(print @cell_data_sector1);
    foreach $line (@macall) {
        if ($line =~ /C4:46:19:75:C1:55:\s+(\S+)/) {
                $id=$line;
                $id=~s/\s.*//;
            }
        }
      print "ID = $id";
      return (0);