Your data is in fixed-width fields. The third column always starts at the same character position one line after another. substr would work just fine for this. Given the example data you posted, you just need to start at the 15th position, and read two characters. In other words, my $third_col = substr $line, 15, 2;

In fact, it's possible that you could just start at the 16th position and read a single character, but I would need to know more about the input data before I could be sure.

Anyway, for the data you posted, this works fine:

use v5.14;

say unpack( 'x15A2' ) =~ s/^\s+|\s+$//gr while <DATA>;

__DATA__
      1234 2321 0      45    1st
      2122 sdsa 0   0  34    
      2313 dsad        43    2nd    
      1232 ffff 0   0        1st 
      3213 sadf     0  34    
      2133 dada 0            2nd

[download]

I used unpack instead of substr, but either one would work fine.


Dave

In reply to Re^3: To split with spaces by davido
in thread To split with spaces by gorkemsarikaya

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.