|
Thema Perl
Freitag, 1.6.2007, 11:55:37 Uhr
Bestimmte Anzahl von Zeilen aus Datei einlesen
Ein Problem beim Einlesen von Dateien kennen viele: Entweder man liest die Datei komplett in den Arbeitsspeicher ein und "verschleudert" so wertvolle Systemressourcen, oder man liest Zeilen nacheinander ein und hat dann das Problem, daß die jeweils nachfolgende zeile nicht da ist, wenn man sie braucht.
Ein Beispiel für das komplette Einlesen von Dateien
Weiterlesen...
Mittwoch, 30.5.2007, 13:18:43 Uhr
goto in Perl oder: Wie erzeuge ich Spaghetti-Code
Der Befehl goto ist vielen wahrscheinlich auch aus anderen Sprachen bekannt und erlaubt das Springen zu einer Codestelle im Script.
Allerdings: Der Befehl goto ist eigentlich DER Befehl, der für ineffiziente und unübersichtliche Programmierung steht.
Syntax
goto SPRUNGMARKE;
wobei die Sprungmarke als
Weiterlesen...
Mittwoch, 30.5.2007, 13:16:41 Uhr
die - Perl-Script wegen eines Fehlers abbrechen
Der Befehl die beendet ein Script, wenn es sinnlos ist, dass das Script weiter ausgeführt wird. Oft geschieht das zum Beispiel, wenn eine "lebenswichtige" Datei nicht geöffnet werden kann.
Dabei kann ein Fehlermeldungstext zur Standartausgabe gesendet werden.
Syntax
die "Text";
bzw.
Weiterlesen...
Freitag, 25.5.2007, 13:20:04 Uhr
LWP::Simple mit timeout-Funktion
Was hab ich mich heute geärgert, weil ein Script, das externe Seiten einliest, bei LWP::Simple immer 180 Sekunden wartet, falls die Seite nicht erreichbar ist.Bei LWP::UserAgent gibts ne timeout-Einstellung, aber bei LWP::Simple laut Doku nicht.
Also mal zum Beispiel ein Code mit LWP::Useragent
use LWP::UserAgent;
my $link='http://www.testmich.de';
$agent = LWP::UserAgent->new;
$agent->timeout(20);
$agent->agent('Mozilla/4.7 [en] (WinNT; I) [Netscape]');
my $request = HTTP::Request->new('GET',$link);
$request ->header( 'Referer' => 'http://www.google.de');
my $result = $agent->request($request);
$seiteninhalt= $result->content();
|
Weiterlesen...
Donnerstag, 24.5.2007, 11:32:47 Uhr
Flipflop in Perl
Ich hab gerade etwas interessantes gefunden, das ich in der Form auch noch nicht kannte.
Beim Stöbern in der Perl-Community las ich etwas über das Flipflop in Perl, was ich auf den ersten Blick nicht verstand und auch noch nicht gehört habe.
Also nachgeforscht, und folgendes dabei rausgefunden:
Weiterlesen...
Samstag, 12.5.2007, 19:45:17 Uhr
Zeitkontrolle eines Scriptes - times() in Perl
Die Funkton times() ermittel die Laufzeit eines Prozesses und, wenn vorhanden, seiner Kindprozesse. Dabei wird unterschieden zwischen einer "system time" und "user time".
Der Wert Usertime gibt den Zeitwert an, den der Prozess selbst gelaufen ist, die Systemtime den Zeitwert, den das Betriebssystem benötigt hat.
Als Summe beider Werte erhält man die tatsächlich verbrauchte CPU-Zeit.
Die gemessenen Zeiten basieren auf so genannten Uhrenticks. Die Anzahl der Uhrenticks pro Sekunde ist auf Unix-Systemen einstellbar (TICKSPERSEC in der Datei conf.h).
Weiterlesen...
Freitag, 11.5.2007, 12:23:47 Uhr
undef in Perl
Der Befehl undef entfernt Werte aus Hashes, Arrays und setzt Skalare auf undef.
Dabei bleibt bei Hashes und Arrays das Element selbst erhalten, es wird jedoch in den Zustand undef versetzt.
Syntax
Skalar:
undef $skalar;
Weiterlesen...
Freitag, 11.5.2007, 12:18:57 Uhr
utime - Zeitstempel von Dateien oder Verzeichnissen ändern
utime setzt den Zeitstempel für Dateien oder Verzeichnissen neu. Zeitstempel bedeutet dabei: Die Zeit des letzten Lese- und Schreibzugriffes.
Syntax
$ergebnis=utime (Lesezeitneu,Schreibzeitneu,@Dateien);
oder
$ergebnis=utime (Lesezeitneu,Schreibzeitneu,$Datei);
Weiterlesen...
Freitag, 11.5.2007, 09:11:48 Uhr
Prüfen ob Variable belegt ist - defined in Perl
Alle Variablen, egal, ob Skalare, Listen- bzw. Array-Elemente oder Hash-Elemente, sind, bis sie mit etwas belegt werden, undefiniert bzw. den Wert undef.
Will man prüfen, ob eine Variable definiert ist, kann man den Befehl defined verwenden.
Syntax
$defined_or_not=defined $variable;
oder meist auch in einer if-Struktur
Weiterlesen...
Dienstag, 8.5.2007, 15:09:15 Uhr
Human Date - Menschliche Datumsangaben erkennen
Beim Stöbern im Internet habe ich eine interessante Problemstellung gefunden, die mich interessiert hat.
Das Problem besteht darin, daß Computer mit Zeitangaben wie "vor einem Jahr" oder "Morgen in einer Woche" nichts anfangen können.
Weiterlesen...
|
RSS-Feed