Re: how to put the value in proper format

[johngg]

If you want your output for the chosen port to be all on one line, as might be suggested by the last line of your post, don't put the line feeds (\n) in the first two print statements.

However, it does not look like the output you show was produced by that code, the equals sign is after the port/speed/link values in the print statements. Using substr here seems like a lot of hard work and is potentially fragile. I think it would be better to split the line.

$ perl -Mstrict -Mwarnings -E '
> open my $inFH, q{<}, \ <<EOF or die $!;
> ------------------------------------------------------------------
> Port   Speed    Duplex     Flow Ctrl      Link       Name
> ----   -----   --------  --TX-----RX--   ------     ------
>   1    10000     full      no     no      down      1       
>   2    10000     full      no     no      down      2       
>   3    10000     full      no     no      down      3       
>   4    10000     full      no     no      down      4       
>   5    10000     full      no     no      down      5       
>   6    10000     full      no     no      down      6       
>   7    10000     full      no     no      down      7       
>   8    10000     full      no     no      down      8       
>   9    10000     full      no     no      down      9       
>  10    10000     full      no     no      down      10      
>  11    10000     full      no     no      down      11      
>  12    10000     full      no     no      down      12      
>  13    10000     full      no     no      down      13      
>  14    10000     full      no     no      down      14      
>  15    10000     full      no     no      down      15      
>  16    10000     full      no     no      down      16      
>  17    1G/10G    full      no     no      down      17      
>  18    1G/10G    full      no     no      down      18      
>  19     1000     full      no     no       up       19      
>  20    10000     full      no     no      down      20      
> EOF
> 
> while ( <$inFH> )
> {
>     next unless m{^\s*\d};
>     my( $port, $speed, $link ) = ( split )[ 0, 1, 5 ];
>     next unless $link eq q{up};
>     say qq{port is = $port: speed is = $speed: link is = $link};
> }'
port is = 19: speed is = 1000: link is = up
$

I hope this is helpful.