|
Thema Perl
Dienstag, 20.3.2007, 00:01:37 Uhr
join() - Array in Skalar umwandeln - Wie mache ich aus einer Liste eine Zeichenkette?
Mit dem join()-Befehl läßt sich aus einem Array, also einer Liste von Werten, ein Skalar, also eine Zeichenkette, herstellen.
Dies geschieht relativ einfach durch den Aufruf mit
Es wird also aus einem Array durch verknüpfung mit einem Verbindungszeichen ein Skalar produziert. Etwas trocken in der Theorie, darum ein Beispiel:
Weiterlesen...
Montag, 19.3.2007, 11:44:17 Uhr
Pop3-Postfach einlesen und Mails anzeigen bzw. verarbeiten
Und noch ein Beispiel aus der Praxis:
Also, Spam ist ja ein Problem, das wohl jeder kennt. Ich kriege im Moment täglich so ca. 500 Mails, davon sind mindestens 99% Spam. Es gibt zwar inzwischen gute Spamfilter, aber das Problem liegt bei mir darin, daß es inzwischen ca. 15 Minuten dauert, bis alle Mails eingelesen und gefiltert werden. Was liegt also näher, die Mails scho auf dem Server auszusortieren, so daß nur noch die wahrscheinlich Guten übrigbleiben, die dann durch den Spamfilter rattern.
Grundproblem 1: Mails per Perl einlesen
Dafür gibt es ein guten Modul, daß anscheinend auf jedem Server installiert ist. Dieses Modul heißt use Net::POP3.
Weiterlesen...
Montag, 19.3.2007, 11:05:32 Uhr
Praxisbeispiel: Wörter extrahieren aus Text
Vor Kurzem stand ich vor dem Problem, daß ich einen Text zerlegen wollte, und zwar so, daß alle einzelnen Wörter in einem Array landen.
Oder genauer
Mache aus:
Dies ist ein Testtäxt!a!b!c! aäöü ß
Ä Ö Ü Ä!Ö!Ü!
123456 1 2 3 4 5 6 !§%&
Weiterlesen...
Montag, 19.3.2007, 00:02:22 Uhr
values() - Alle Werte eines Hashes ermitteln
Wandelt alle Werte eines Hashes in eine Liste bzw. ein Array.
Syntax
@array = values (%hash);
$hash{1}="test1";
$hash{2}="test2";
$hash{3}="test3";
foreach (values %hash){print "$_ ";}
|
Weiterlesen...
Sonntag, 18.3.2007, 00:03:14 Uhr
abs() in Perl - Absolutwert einer Zahl ermitteln
Syntax
$abswert=abs($wert);
Es wird der absolute Wert einer Zahl ermittelt, d.h. negative Zahlen werden in positive umgewandelt. Positive Zahlen bleiben positiv.
Weiterlesen...
Samstag, 17.3.2007, 00:09:32 Uhr
Mathematische Funktionen in Perl - atan2(), cos(), exp(), sin(), log(), sqrt()
atan2() - Arcus Tangens von y durch xSyntax
$Wert = atan2(x,y);
cos() - Cosinus einer ZahlSyntax
$cosinus = cos($wert);
Weiterlesen...
Freitag, 16.3.2007, 00:00:10 Uhr
int() - Ganzzahlanteil einer Zahl ermitteln - Kommastellen entfernen mit Perl
Die int()-Funktion dient zum Einen dazu, den ganzzahligen Teil einer Zahl zu bestimmen. Nachkommastellen werden also abgeschnitten.
Ausgabe: 1
Weiterlesen...
Donnerstag, 15.3.2007, 00:01:55 Uhr
hex() - Von hexadezimal nach dezimal umwandeln in Perl
Die Funktion hex() wandelt eine hexadezimale Zahl zurück nach dezimal.
Zur Erklärung:
Eine hexadezimale Zahl ist eine Zahl, die auf der Basis 16 existiert. Dezimalzahlen haben die Basis 10.
Weiterlesen...
Mittwoch, 14.3.2007, 00:02:14 Uhr
each() in Perl - Wertepaare aus Hash auslesen
Der Befehl each() ermöglicht es, alle Wertepaare eines Hashes zu verarbeiten.
$hash{test1}='test1';
$hash{test2}='test2';
$hash{test3}='test3';
while (my ($Name, $Wert) = each %hash){ print "$Name, $Wert\n"; }
|
Im Beispiel wird der Hash %hash erzeugt und mit Werten gefüllt, die dann nacheinander ausgegeben werden.
Dienstag, 13.3.2007, 00:03:28 Uhr
exists() - Prüfen, ob ein Hash-Element existiert
Mit Hilfe der Funktion exists()-Funktion kann man prüfen, ob ein Hash-Element existiert.
Syntax
$existiert=exists $hash{$key}
bzw. mit if-Abfrage
if (exists $hash{$key}){...}
Weiterlesen...
|
RSS-Feed