[Workshop] Regular Expressions

[webmichl]

Hab auch noch keine fertige Lösung, nehme aber mal stark an, daß das Anchor-Ende </A> eine grössere Rolle spielen wird...

[webmichl]

Nee, tut er doch nicht...( Muss zu meiner Schande gestehen, daß ich die Syntax auch erst noch mal nachlesen musste...)

Mir der Aufgabe hab ich mir jetzt selber ein Bein gestellt: ich kann zZ leider nur die Perl - Lösung anbieten - in Bezug auf php fehlen mir da noch Kentnisse ( und hab gerade auch keine Zeit zum Experimentieren ). Aber vielleicht kriegt's einer der php-Gurus ja hin...

Aaaalso, die Perl-Lösung:

while ($String =~ m/<a.+?href=['"]?(http[s]?|ftp):\/\/([^\/ "']+)/g) {
print "Protokoll: $1\nDomain: $2\n";
}


Was hat sich geändert? Nach dem ersten Wiederholer-+ wurde ein Fragezeichen ? eingefügt und die ganze regexp in eine Schleife gepackt. Und das ist alles?!?

Nun, regexp sind im Normalfall "gierig" - sie liefern den grösstmöglichen bzw letztmöglichen Treffer zurück. Das waren in unserem Beispiel die Daten des zweiten Links. Um das zu unterdrücken und die regexp gleich beim ersten Treffer aufhören zu lassen, langt es, ein Fragezeichen hinter dem (ersten ) Wiederholungswert zu setzen. Dann gibt die regexp den erstmöglichen Treffer zurück.

Und die Schleife? Nun, eine regexp hat eine Art "Kurzzeitgedächtnis". Solange keine andere regexp aufgerufen wird oder die Suchbedingung geändert wird, "merkt" sie sich, wo sie war und macht beim nächsten Aufruf an der Folgestelle weiter.

That's it...

[LANtastic]

Da fällt mir gerade noch dieser Link zu ein, den ich jedem nur ans Herz legen kann.

Regular Expression Library

Kleine Spielzeug auf der Seite .... man seine Expressions online testen. Der Hammer ist jedoch die Masse an vorgegebenen Ausdrücke, von der man schlichtweg erschlagen wird.

[Strogij]

Schon ganz gut diese Sache, habe mir auch vor paar Tagen das O'Reilly Buch gekauft über Reg. Ausdrücke, bin jetzt bisschen weiter als ihr im Moment mit diesem Workshop, deswegen wollte ich mal fragen ob ich falls Interesse besteht auch paar weitere Begriffe/Lösungen hier erklären soll, mir fehlen hier im Augenblick die ganzen ?<= ... Sachen

[webmichl]

hab nix dagegen...

[Strogij]

.

[#!/usr/bin/beer]

folgendes problemchen:
viele, viele, viele,wirklich ganz viele dateien mit einem namen die unerwünschte zeichen enthalten, z.b ,-leerzeichen, umlaute.
die alle (ausser die umlaute natuerlich) sollen durch einen _ ersetzt werden.

das habe ich bisher so gemacht (perl)
...
$name_neu =~ s/([\ |\_{2,}|\,|\'])/\_/g;
...
dabei ist es vorgekommen, dass mehrere _ hintereinander im resultat standen, beispielsweise (blubb___alt__test_irgendwas.bla)
es soll aber immer nur ein _ auftauchen.

geht das mit einem einzigen regexpr??

im moment habe ich zwei hintereinander zu stehen

$name_neu =~ s/([\ |\_{2,}|\,|\'])/\_/g;
$name_neu =~ s/(\_{2,})/\_/g;

[Stuck Mojo]

Dafür kann man normalerweise den Quantifier + benutzen.
Muss man in Perl soviele Zeichen escapen?? Ich würds so machen:

/([-_,' ])+/

Hoffe das ist richtig... kann mich auch irren Mit JavaScript funzts auf alle Fälle:

<script language="JavaScript">
var testen = "hallo-,  das    'ist' toll_.htm";
testen = testen.replace(/([-_,' ])+/g,"_");
alert(testen);
</script>

Gruss
Jan

[#!/usr/bin/beer]

naja, das mit dem fehlenden + ,tztztztz.....
war wohl die hitze.

aber mal was ähnliches.
bei den angesprochenen dateien ersetze ich die umlaute
mit dem in perl eingebauten

tr/SEARCHLIST/REPLACELIST/cds;
(ersetzt jeden buchstaben in SEARCHLIST durch den entsprechenden buchstaben in REPLACELIST)

also mittels

$neu =~ tr/äüöß/auos/;

das macht aber aus einem ä ein a, aus einem ü ein u, und so weiter..

aber richtiger wäre natürlich aus ä mach ae, aus ü mach ue, und so weiter...
aber die formel $neu =~ tr/äöüß/aeoeuess/; funktioniert natürlich nicht

hat da jemand eine idee wie man das umsetzen könnte

[Stuck Mojo]

In PHP kann man Arrays die Pattern und die zu ersetzenden Bereiche als Arrays angeben. Wie das bei Perl aussieht weiss ich net. -> http://de3.php.net/preg_replace

Gruss
Jan

[webmichl]

Die Array-Lösung funktioniert auch in Perl - allerdings nicht mit dem tr-, sondern mit dem s-Befehl:

#! /usr/bin/perl
( %trans ) = ( 'ä','ae','ö','oe','ü','ue' );

$String="Bläblöblü";

$String =~ s/([äöü])/$trans{$1}/g;

print $String,"\n";

[flash mx]

***gelöscht auf Wunsch von falsh mx. Beitrag sollte garnicht hier landen ***

Gruss
Jan

[webmichl]

[Strogij]

Man lernt nur dann, wenn man "geschlagen" wird

Spruch des Jahres, Copyright ist schon drauf

[Tiny Boom]

Ich glaube dieser Thread ist eins der ersten Tutorials wo es bei mir auf Anhieb klick gemacht hat.(Ohne die Codes erst zu testen)
Immer weiter so