|
Thema Perl
Freitag, 2.2.2007, 13:38:21 Uhr
Doppelte Einträge aus Array entfernen mit Perl
Ich hab mir da mal eine Funktion geschrieben, die aus einem Array schnell alle doppelten Werte herausfiltert.
Schnell bedeutet übrigens: Ich habe verschiedene Möglichkeiten auf Ihre Schnelligkeit hin getestet und diese war die Schnellste...
Code:
sub del_double{ #Parameter: @liste, die aussortiert werden soll
my %all;
grep {$all{$_}=0} @_;
return (keys %all);
}
|
Weiterlesen...
Freitag, 2.2.2007, 11:40:32 Uhr
Reguläre Ausdrücke - Suche nach Zeichen am Wortanfang und am Wortende
Nochmal zurück zur einfachen Suche.
Wie kann ich nach Zeichen Suchen, die am Wortanfang oder am Wortende stehen? Natürlich bieten reguläre Ausdrücke auch dafür eine Lösung. Die zeichen ^ und $ werden dafür genutzt.
Beispiel:
Weiterlesen...
Freitag, 2.2.2007, 11:26:13 Uhr
Reguläre Ausdrücke - Einfaches Suchen die 2.
Die Grundlagen des Suchens wurde bereits hier vorgestellt.Es wurde vorgestellt, wie man Zeichenketten in Zeichenketten finden kann. Jedoch war das ganze noch ziemlich "unhandlich" und sehr umständlich.
Was zum Beispiel, wenn man zum Beispiel die Groß-Kleinschreibung ignorieren möchte, oder ganze Bereiche von bestimmten Zeichen suchen oder ausschließen möchte?
Also, weiter gehts mit dem "einfachen" Suchen
Weiterlesen...
Freitag, 2.2.2007, 11:24:31 Uhr
Reguläre Ausdrücke
Reguläre Ausdrücke sind das wahrscheinlich mächtigste Werkzeug in Perl. Mit diesen regulären Ausdrücken kann man Skalare relativ einfach nach bestimmten Zeichen oder Zeichenketten durchsuchen, man kann aber auch relativ einfach einzelne Zeichen oder Zeichenketten austauschen, löschen oder einfügen.
Wie sie vielleicht merken, sage ich immer relativ einfach. In Wahrheit braucht es einiges an Zeit und Übung, bis man sich an den Syntax gewöhnt hat.
Aber fangen wir einfach mal von vorne an:
Weiterlesen...
Donnerstag, 1.2.2007, 20:22:56 Uhr
RegEx Spickzettel - Abkürzungen in regulären Ausdrücken
^ Von Beginn der Zeile , also ^abc findet abc, abcdefg, abc234, BESONDERHEIT: in []-Klammer bedeutet das Zeichen eine Negation!
$ Ende der Zeile, also abc$ findet abc, endeabc, 1234abc
. Jedes Zeichen
| Oder, also findet hans|franz hans oder franz
Weiterlesen...
Dienstag, 30.1.2007, 11:52:33 Uhr
reverse() in Perl
Der Befehl reverse dreht die Reihenfolge eines Arrays um, d.h. das erste Element wird das letzte und so weiter.
Syntax
@array=reverse(@array);
Beispiel:
Weiterlesen...
Dienstag, 30.1.2007, 11:50:26 Uhr
Perl-Code ausführen in einer Regular Expression
Ich hatte mal das Problem, daß ich in einem regulären Ausdruck zusätzlich Code ausführen mußte (wollte).
Also, flugs im perlretut nachgelesen, alles auf Englisch gefunden, Hälfte verstanden und dann lang herumprobiert, denn im perlretut steht, daß es prinzipiell funktionieren müßte.
Also, mal so zum Testen, folgende Problemstellung:
Weiterlesen...
Dienstag, 30.1.2007, 11:42:01 Uhr
abs() in Perl
Der Befehl abs() gibt den Absolutwert einer Zahl zurück.
Beispiel
$a=-4;
$a=abs($a);
print $a;
|
Ausgabe
Weiterlesen...
Montag, 29.1.2007, 16:40:52 Uhr
Splice() in Perl
Der Befehlt Splice() ist ein sehr mächtiger Befehl in Bezug auf die verarbeitung von Arrays.
Syntax:
@LIST = splice(@ARRAY, OFFSET, LENGTH, @REPLACE_WITH);
Mit Splice kann man Beliebig viele Elemente eines Arrays hinzufügen, ersetzen oder löschen.
Weiterlesen...
Montag, 29.1.2007, 16:07:47 Uhr
Pop in Perl
Der Befehl pop() löscht den letzten Eintrag eines Arrays und gibt ihn zurück.
Beispiel:
@a=("hans","franz");
$a=pop(@a);
print $a;
|
Weiterlesen...
|
RSS-Feed