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
$

[download]

I hope this is helpful.

Cheers,

JohnGG

In reply to Re: how to put the value in proper format by johngg
in thread how to put the value in proper format by ulaksh

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.