|
|
30.5.2007
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...
30.5.2007
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...
25.5.2007
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...
24.5.2007
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...
12.5.2007
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...
11.5.2007
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...
11.5.2007
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...
11.5.2007
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...
8.5.2007
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...
5.5.2007
sleep in Perl - Das aktuelle Script warten lassen Sleep, zu Deutsch schlafen, gibt dem Script den Befehl, eine bestimmte Zeit lang nichts zu tun. Und nichts tun heißt in dem Fall auch wirklich nichts tun!
Syntax sleep(Zeit in Sekunden);
Nach der eingestellten Zeit wird das Script weiter ausgeführt. Weiterlesen...
4.5.2007
Continue in Perl - Erweiterte Schleifenausführung Also Eins mal vorweg: Daß man nicht alles in Perl kennt, ist ja normal. Und wer behauptet, er kennt alles, liegt sowieso falsch! Aber daß ich bei den Schleifenbefehlen noch etwas neues entdecken kann, hätt' ich dann doch nicht gedacht. Aber genauso wars, als ich über den continue{}-Befehl gelesen habe. Ein mir vollkommen neuer Befehl, den ich offensichtlich noch nie gebraucht habe, bzw. wenn ich mal so drüber nachdenke, vielleicht schon gebraucht hätte, wenn ich ihn gekannt hätte. Bevor ich nun aber weiter über "hätte wäre wenn" diskutiere, hier der Befehl:
Syntax continue{ Anweisungsblock }
Weiterlesen...
3.5.2007
Perl: grep, map and sort
Ich habe vor Jahren einmal im Netz diesen Artikel über Perl's grep, map und sort gefunden und habe ihn immer wieder mal als "Hilfestellung" bei komplexen Themen verwenden können. Da der Originalartikel leider nicht mehr existiert, möchte ich ihn jetzt online stellen, da ich denke, daß er es wert ist, nicht verloren zu gehen.
Weiterlesen...
2.5.2007
Vordefinierte Variablen in Perl Ich habe ja bereits hier schon mal über vordefiniete Variablen in Perl geschrieben. Es gibt jedoch noch mehr, die ich dann nun hier nochmal beschreiben will. Ich hoffe, ich hab keine weiter vergessen und hab sie nun alle... $_ Enthält in Schleifen, sofern keine anderere Variable angegeben ist, den jeweils aktuellen Wert. Das $_ wird von manchen Befehlen in Perl auch als Standartwert verwendet (siehe hier: Befehle, die $_ als Standartwert verwenden).
Weiterlesen...
|
|
|
|
| Gelesene Beiträge insgesamt: 4423899 |
|
|