in reply to Re: To split with spaces
in thread To split with spaces

Firstly, thank you for your kind answer.

You are right data is not obvious, sorry for this, I am not familiar with html codes. My input data is exactly: 

      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]

As it is seen, there is different number of spaces between columns. So /\s/ is not working as well as /\s+/ is not working, because some columns have whitespace characters. Also substr function does not work due to same reason. Substr does not see whitespace character and passes to next column. I hope told my problem clearly:)

Replies are listed 'Best First'.
Re^3: To split with spaces
by Loops (Curate) on Aug 05, 2013 at 06:58 UTC

    Hi there, if that's the case then to parse all the fields something like:

    printf "|%4s|%4s|%2s|%2s|%2s|%3s|\n",
   map {s/\s+//g;$_} unpack "A11A5A3A3A3A*" for <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]
    Would print: 
    |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]
[reply]
[d/l]
[select]
Re^3: To split with spaces
by Laurent_R (Canon) on Aug 05, 2013 at 06:22 UTC

    Now that we have a format making sense, i.e. a fixed-column format, this definitely looks like a work for the substr or unpack function, the problem is to find the right parameters (offset and lenbgth) to retrieve your fields. I can't make a test right now, but will come back to you when I can.

    UPDATE: actually, I had not seen that when I posted the above 3 minutes ago, but Davido and others have already given a solution. Probably no point to come back and give the same.

[reply]
[d/l]
[select]

      Thank you, but I tried and tested substr and unpack functions. These are not working. Because our input data is not a fixed-column format. Some of columns have whitespace characters and substr and unpack functions ignore these whitespace characters and pick up next columns value like that:
      0
      0
      43
      0
      0
      0
      instead of this column that I want:
      0
      0

      0

[reply]

In Section Seekers of Perl Wisdom