Thread Dateien nach bestimmten Zeichenketten durchsuchen (19 answers)
Opened by Michael at 2014-03-04 14:37

Gast Michael
 2014-03-04 14:37
#173815 #173815
Hallo zusammen,
vermutlich ist es gar nicht so schwer aber ich hänge nun seit Tagen an einem Problem und komme nicht mehr weiter. Vermutlich liegt es daran das ich wirklich nicht fit bin in Perl bzw. C und C ähnliche Sprachen.

Und zwar muss ich erst suchen was, in einem bestimmten bereich, es für HP (Hauptprogramme) in einem Dateiordner gibt (das Funktioniert schonmal, dann in ALLEN existierenden HP Dateien nach Unterlprogramme suchen und die Unterprogramme + kommentare getrennt in arrays ausgeben. Die gesuchten unterprogramme beginnen immer mit "BA".

So sieht das zu suchende in dem Hauptprogramm aus aus:

BedingterHalt(16)
BA_08150_a_bc() ;bla bla bla ## <- ein Unterprogramm

BedingterHalt(16)
BA_08151_d_ef() ;bla bla bla bla ## <- ein Unterprogramm

Mein Programmteil bis jetzt das die Hauptprogramme sucht:

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

my $nr=0;
        for my $i (10..99){

                my $gdat= "$i.src";
                my $packpfad = '\xxx\xx\xxxx\HP0';
                my $config = $zielpfad.$packpfad.$gdat;
                if (-e "$config"){
                        $hp[$nr]= "HP0$i.src";

                        if ($verw_hp==1){
                                my %conf;
                                my $var;
                                my $value;
                                open(CONF,"<$config") || die "could not read config file: $config [!$]\n";
                                while (<CONF>) {
                                        chomp;
                                        s/#.*//;
                                        s/^\s+//;
                                        s/\s+$//;
                                        next unless length;
                                        ($var, $value) = split(/\s* \s*/, $_, 2);
                                        $conf{$var} = $value;
                                        };
                                close(CONF);
                                
                                $hpcomment[$nr] = $conf{"&COMMENT"};            
                                }
                        
                        
                        
                if ($verw_unterprog==1){ 
#########################################
#hier sollte es weiter gehen
#########################################
}
$i++;
$nr++;
}
}
                
}


Für hilfe wäre ich euch sehr sehr Dankbar

Liebe Grüße
Last edited: 2014-03-04 15:02:11 +0100 (CET)

View full thread Dateien nach bestimmten Zeichenketten durchsuchen