Thread String Matching einer Zeile (3 answers)
Opened by Gast at 2008-12-14 05:25

Gast Gast
 2008-12-14 05:25
#117220 #117220
Hallo,

ich habe ein Textdatei indem mehrere Zeilen sind...
Aus diesen Zeilen möchte ich nur bestimmte Zeile auslesen...

Die Zeilen sehen so aus:
Code: (dl )
1
2
3
4
1.0        2        1.27      16.014     37   12.1   4.0
2.0        12.8   1.27      16.014     37   13.4   1.1
3.0        4.0     1.29      7.558       54   15.1   2.1
4.0        2.2     1.41      7.294       31   12.1   3.3


Ich möchte die Spalte mit 12.1, 13.4 usw speichern...

Mein Code momentan ist:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

use strict;
use warnings;

open my $out1, '<', 'out1.txt' or die $!;
open my $out, '>', 'out.txt' or die $!;

while(<$out1>)
{
                        
        if($out1 =~  \d{1,3}\.\d*  \d{1,3}\.\d* \d{1,3}\.\d* \d{1,3}\.\d*  \d{1,3}\.\d* /( \d{1,3}\.\d*)/  \d{1,3}\.\d* )  
        {       
                  print "$1\n";         
        }
else{
        print "keine Werte\n";
      }          
}
close($out1);
close($out);

Leider kann ich hiermit die Spalten nicht speichern bzw ausgeben lassen, was mache ich denn hier falsch ?

Kann mir jemand behilflich sein dabei ?

View full thread String Matching einer Zeile