Regex Problem (Allgemeines zu Perl)

[thread]16734[/thread]

Regex Problem

Tags: perl5 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+5 replies

crojay

2011-09-15 16:25

User since
2011-03-08
81 Artikel
BenutzerIn
[default_avatar]

Hi,

ich habe folgende Datei

Code: (dl )

<?xml version="1.0" encoding="utf-8" ?>
<configuration>
  <appSettings>
    <add key="ServiceId.suffix" value="_TEST" />
  </appSettings>
</configuration>

Nun möchte ich diese durchgehen und den Wert von value="_TEST" auf ändern.

Einlesen der Datei funktioniert, jedoch wird die Ersetzung nicht durchgeführt, bestimmt weil ich einen Denkfehler bzw. Regex nicht richtig hab.

Kann mir jemand auf die Sprünge helfen...

Code (perl): (dl )

my $searchStr2 = "value=\".*\"";
my $suffix2 = "scheisse";
my $replaceStr2 = "value=\"_" . $suffix2 . "\"";
replaceInFile("f:\\tmp\\myfile.config",$searchStr2,$replaceStr2);

sub replaceInFile{
        my($file,$searchStr,$replaceStr) = @_;
        my @content = &getFileContent($file);
        
        
        foreach my $line(@content){
                print "line --> $line";
                $line = s/$searchStr/$replaceStr/g;                     
        }
        
}

+4 replies

Gast langmic

2011-09-15 16:38

Hi,

nur so als Idee:

Code (perl): (dl )

$line = s/$searchStr/$replaceStr/g;

ersetzen durch

Code (perl): (dl )

$line =~ s/$searchStr/$replaceStr/g;

Grüße, Michael
Last edited: 2011-09-15 16:40:52 +0200 (CEST)

+3 replies

crojay

2011-09-15 16:49

User since
2011-03-08
81 Artikel
BenutzerIn
[default_avatar]

Hi,

aua, das schmerzt. Sowas hab ich befürchtet :-)

Nunja es wird noch immer nicht ersetzt, jetzt muss ich mal die Regex genauer anschauen.

+2 replies

Gast langmic

2011-09-15 17:44

Hi,

folgendes tut bei mir:

Code (perl): (dl )

use strict;
use warnings;
use File::Slurp;

my $searchStr = "value=\".*\"";
my $suffix = "YEPPA";
my $replaceStr = "value=\"_" . $suffix . "\"";

my @lines = read_file( \*DATA );

foreach my $line(@lines){
    print "line --> $line";
    $line =~ s/$searchStr/$replaceStr/g;
    print "line --> $line";
}

__DATA__
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
  <appSettings>
    <add key="ServiceId.suffix" value="_TEST" />
  </appSettings>
</configuration>

Ergibt folgenden output:

Code: (dl )

E:\develop>perl test.pl
line --> <?xml version="1.0" encoding="utf-8" ?>
line --> <?xml version="1.0" encoding="utf-8" ?>
line --> <configuration>
line --> <configuration>
line -->   <appSettings>
line -->   <appSettings>
line -->     <add key="ServiceId.suffix" value="_TEST" />
line -->     <add key="ServiceId.suffix" value="_YEPPA" />
line -->   </appSettings>
line -->   </appSettings>
line --> </configuration>
line --> </configuration>

Grüße,
Michael

crojay

2011-09-15 17:57

User since
2011-03-08
81 Artikel
BenutzerIn
[default_avatar]

Hi,

vielen Dank.

Mit dem Module File::Slurp funktioniert das auch bei mir, meine eigene Methode zum einlesen der Datei hat wohl hier bei ein Problem mit dem Encoding. Da bleibe ich letzte Zeit immer wieder dran hängen am encoding.

Damit habe ich meine Datei eingelesen bei meinem Code

Code (perl): (dl )

sub getFileContent{
        my ($input,$enc) = @_;
        my $defaultEncoding = "utf8";   
        my $encoding = ($enc) ? "encoding($enc)" : "encoding($defaultEncoding)"; 
        
        
        my @content;
        open(DAT, $input) || die("Could not open file $input $!");      
        binmode(DAT, "$encoding");
        @content=<DAT>;
        close(DAT);
        return @content;
}

View all threads created 2011-09-15 16:25.