Thread Probleme mit Ausdrücken (21 answers)
Opened by Trommelwirbel at 2011-11-10 17:05

Trommelwirbel
 2011-11-10 17:05
#154099 #154099
User since
2011-11-10
28 Artikel
BenutzerIn
[default_avatar]
Hallo Allerseits,

ich habe ein kleines Problem mit Ausdrücken.
Und zwar will ich, wenn ich die Datei eingelesen habe bzw. die Zeilen, dass er jede Zeile durchsucht und nach dem Element schaut. Wenn es passt, soll er die Zahl hinter dem Element sich rausziehen und dann genau so viele Zeilen hinter der aktuellen Zeile ausgeben.

So sieht im Moment mein Code aus:

Einlesen der Dateien und dann für jedes Elemente jede Zeile abfahren.
Das er wirklich nur die Zeile findet die ich will funktioniert. Das ist nicht mein Problem. Ich bekomme es aber einfach nicht hin, dass er dann die darauffolgenden Zeilen Ausgibt!!

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

open (IN_elements , "<elemente.txt");  
        
while(<IN_elements>){ 
        chomp;
        $element = substr($_,0,4);
        $elemente[$q] = $element;
        $q += 1;
                }
                                        
my (@zeilen) = (); 
my $zeile;
my $n = 0;

open (IN , "<hq_regio_neu.txt");
        
        while(<IN>){ 
                chomp;
                $zeile = $_;
                $zeilen[$n] = $zeile;
                $n +=1 ;
}
                                        
                        
                
                                        
my @lines = <hq_regio_neu.dat>  ;

        
foreach $element(@elemente){

                        open (Out,">>$element.txt");
                        
foreach $zeile(@zeilen){
                        if($zeile =~/$element /){
                                        
                                                                if(length($zeile)<=(length($element)+2)){
                $sub = substr($zeile,length($element)+1,1);
                                                        
                print Out $zeile,"\n",$sub;
                                                
                }}}


Jemand eine Idee bzw, versteht jemand mein Problem?

Gruß Trommelwirbel
Last edited: 2011-11-10 17:12:05 +0100 (CET)

View full thread Probleme mit Ausdrücken