| 
 
        
 
 |  | 
 
         
          |   
              
30.5.2007 
 
 goto in Perl oder: Wie erzeuge ich Spaghetti-CodeDer 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 abbrechenDer 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-FunktionWas 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 PerlIch 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 PerlDie 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 PerlDer 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 ändernutime 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 PerlAlle 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 lassenSleep, 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ührungAlso 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 PerlIch 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: 4483043
 | 
 
 |  
 
 
 
        
       
 
 
 |