Thread Map Verständnisproblem? (26 answers)
Opened by crojay at 2011-06-16 00:28

crojay
 2011-06-16 19:24
#149676 #149676
User since
2011-03-08
81 articles
BenutzerIn
[default_avatar]
Vielen Dank für eure Hilfe. Ich habe mich dann für eine Kombination aus MAP und GREP entschieden, da ich sowieso an jeder Zeile noch was änder musste.

Hier meine Variante, vielleicht hilft es ja dem ein oder anderen

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
open(INPUT, "<$orderConfigFile") or die ("Error open file $orderConfigFile ($!)\n");
                my @content = <INPUT>;
                close INPUT;
                
                print "ungefilterte groesse des arrays ist " . scalar(@content) . "\n";
        
                #1. filtere kommentarzeilen und leerzeilen aus
                #2. danach entferne bei den übrigen das -> 
                #3. resultierende Liste enthält nur noch Regex/Datei
                my @cleanedContent = map{
                                        my $x = $_;
                                        chomp $x;
                                        if ($x =~ /(^->.*$)/){
                                                $x =~ s/^(->\s*)(.*)/$2/g;                                              
                                        }
                                        $x;                                                             
                                } grep{!/(^\s*([#].*)?$)/} @content;
                
                print "groesse nach filtern des arrays ist " . scalar(@cleanedContent) . "\n";

View full thread Map Verständnisproblem?