Suchen und Ersetzen mit merkwürdigem Ergebnis (Allgemeines zu Perl)

[thread]19299[/thread]

Suchen und Ersetzen mit merkwürdigem Ergebnis

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+7 replies
jan99

2014-09-22 11:32
User since
2008-09-18
439 Artikel
BenutzerIn
Moin!

ich dachte die nächste Aufgabe alleine lösen zu können. Aber es war leider nicht so.

Aus __TOC__ sollte __FORCETOC__ werden.

Dazu habe ich folgendes zusammengebaut:
Code (perl): (dl )

1 2 3

my $suche = "__TOC__"; my $ersetze = "__FORCETOC__"; $content =~ s/$suche/$ersetze/g;
Das Ergebnis ist aber __FOR__ -why ?

Jan :-)
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- +6 replies
- Muffi
 
 2014-09-22 11:41
 
 User since
 2012-07-18
 1465 Artikel
 BenutzerIn
 
 Das Ganze skript wär hilfreich.
 Ich würd mal orakeln, dass in $content nicht das steht was du denkst?
 1 + 1 = 10
 - +5 replies
 - jan99
 
 2014-09-22 12:45
 User since
 2008-09-18
 439 Artikel
 BenutzerIn
 
 dabei wollte ich diesmal wirklich auf the max reduzieren...
 
 Code: (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
 
 #!/usr/bin/perl use strict; use warnings; # Datei Inhalt wird unter __DATA__ abgelegt # ersetze durch einlesen der Datei in Skalar my $content; open (DATEI, "text.wiki_purge") or die $!; while(<DATEI>){ $content = $content.$_; } close (DATEI); # ersetze Vorkommen von TEXT durch ' TEXT ' #$content =~ s#<span\s+[^>]+>([^<]+?)# $1 #sg; # jetzt werden alle -Attribute entfernt $content =~ s#<span\s+[^>]+>([^<]*?)# $1 #sg; my $suche = "__TOC__"; my $ersetze = "__FORCETOC__"; $content =~ s/$suche/$ersetze/g; open (DATEI, ">text.wiki_purge") or die $!; print DATEI $content; close (DATEI);
 
 Gruß Jan :-)
 perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
 - Gast charly54
 
 2014-09-22 14:24
 
 Hallo Jan,
 
 gib doch mal den Inhalt von $content aus, um zu zeigen, ob $suche zu finden ist.
 
 Code (perl): (dl )
 
 1 2 3 4
 
 my $suche = "__TOC__"; my $ersetze = "__FORCETOC__"; print $content . "\n"; $content =~ s/$suche/$ersetze/g;
 
 Viel Erfolg & Gruß
 charly54
 - Muffi
 
 2014-09-22 14:38
 
 User since
 2012-07-18
 1465 Artikel
 BenutzerIn
 
 2014-09-22T10:45:18 jan99
 dabei wollte ich diesmal wirklich auf the max reduzieren...
 
 Der Grundgedanke ist gut, aber ausführbar sollts sein.
 1 + 1 = 10
 - +2 replies
 - Raubtier
 
 2014-09-22 14:55
 
 User since
 2012-05-04
 1075 Artikel
 BenutzerIn
 
 Der Grundgedanke ist nicht schlecht (sofern du min und max vertauscht benutzt), denn man sollte auf das Minimum reduzieren, nicht auf das Maximum.
 
 Allerdings ein sinnvolles Minimum, d.h. wir kennen deine Eingabedaten nicht und daher ist es nicht sinnvoll, über Inhalte von irgendwelchen uns unbekannten Dateien zu sprechen.
 
 Entweder nutze __DATA__, sodass man das Problem per Copy+Paste nachvollziehen kann oder schreib gleich $content = "foobar __TOC__ foobaz", sodass man sofort sieht, welcher String behandelt werden soll.
 
 Noch ein anderer Rat:
 
 Quote
 
 Code (perl): (dl )
 
 1 2 3 4 5
 
 open (DATEI, "text.wiki_purge") or die $!; while(<DATEI>){ $content = $content.$_; } close (DATEI);
 
 Erstens: benutzte lexikalische Dateihandles, also solche mit $ davor.
 Zweitens: Wenn du die Datei als einen String haben willst, ist es ineffizient, zeilenweise einzulesen. Entweder nimm z.B. read_file aus File::Slurp oder du setzt einfach $/ auf undef, z.B. so:
 
 Code (perl): (dl )
 
 1 2 3 4 5
 
 my $content = do { open my $datei, "<", "text.wiki_purge" or die $!; local $/; <$datei> };
 
 Last edited: 2014-09-22 14:57:31 +0200 (CEST)
 - jan99
 
 2014-10-29 09:52
 
 User since
 2008-09-18
 439 Artikel
 BenutzerIn
 
 Moin !
 
 das ist jetzt erleidgt !
 
 Heute morgen lief das dann auf einmal.
 
 Gruß Jan :-)
 perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de

View all threads created 2014-09-22 11:32.