/blog/perl


substr() in Perl
[152607 mal gelesen]
foreach in Perl
[128770 mal gelesen]
Arrays in Perl - Besonderheiten
[124656 mal gelesen]
split() in Perl - Zeichenketten teilen
[112719 mal gelesen]
open() - Dateien öffnen in Perl
[108603 mal gelesen]
grep - Listen durchsuchen in Perl
[94171 mal gelesen]
chomp() in Perl
[93276 mal gelesen]
push in Perl
[90472 mal gelesen]
sleep in Perl - Das aktuelle Script warten lassen
[75545 mal gelesen]
index() in Perl - Zeichenkette in Zeichenkette suchen
[58909 mal gelesen]


Arrays
Dateien
HTPC
Hashes
Leistungsoptimiert
PHP
Perl
RegEx
Schleifen
Script
Skalare
Sonstiges
System
Webserver
Zur Startseite


Thema Perl


Dienstag, 27.3.2007, 00:06:11 Uhr

redo - Schleife erneut durchlaufen


In Schleifen hat man ja manchmal das Problem, daß sie erneut durchlaufen werden sollen, ohne daß der Schleifenzähler erhöht werden soll.
Hier hilft redo!

for ($i=0;$i<6;$i++){
if ( irgendwas ){redo;}
}


Dies ist kein lauffähiges Beispiel, es dient nur zur Demonstration.
Weiterlesen...


Der Beitrag "redo - Schleife erneut durchlaufen" wurde 9937 mal gelesen.

Kompletten Beitrag lesen Nach oben



Montag, 26.3.2007, 09:50:14 Uhr

Datei komplett einlesen - Die exotische Variante


Beim stöbern im Netz hab ich folgendes entdeckt:

open (FILEHANDLE,"<test.txt");
my $string = do { local $/; <FILEHANDLE> };
print $string;


Der Inhalt der Datei test.txt wird komplett in $string eingelesen. Ohne Schleife oder sonstwas.
Wie geht das?
Also, die Datei wird geöffnet, so weit alles klar.
Weiterlesen...


Der Beitrag "Datei komplett einlesen - Die exotische Variante" wurde 12083 mal gelesen.

Kompletten Beitrag lesen Nach oben



Montag, 26.3.2007, 09:24:55 Uhr

rand() - Zufallszahl ermitteln in Perl


Mit der Funktion rand() ist es möglich, eine Zufallszahl zu erstellen.

Syntax
$zufallszahl=rand(Zahlenbereich);

Der Parameter $parameter ist optional und legt fest, in welchem Bereich die Zufallszahl liegen soll. Wird $parameter weggelassen, so liegt die Zufallszahl zwischen 0 und 1, ansonsten zwischen 0 und $parameter, exclusive Parameter. Das Ergebnis ist immer eine Gleitkommazahl.
Weiterlesen...


Der Beitrag "rand() - Zufallszahl ermitteln in Perl" wurde 29853 mal gelesen.

Kompletten Beitrag lesen Nach oben



Montag, 26.3.2007, 00:04:27 Uhr

opendir() - Verzeichnis öffnen zum Auslesen in Perl


Mit dem Befehl opendir() kann man unter Perl ein Verzeichnis zum Einlesen öffnen. Dies wird im Allgemeinen dazu verwendet, eine Dateiliste einzulesen um sie weiter zu verarbeiten.

Syntax
$result=opendir(handle,verzeichnis);

Das handle kann frei gewählt werden, als Verzeichnis sind Angaben in relativer als auch absoluter Form erlaubt, also zum Beispiel '../test' oder '/usr/bin' (Unix) oder unter DOS 'c:/'.
Weiterlesen...


Der Beitrag "opendir() - Verzeichnis öffnen zum Auslesen in Perl" wurde 46128 mal gelesen.

Kompletten Beitrag lesen Nach oben



Sonntag, 25.3.2007, 00:03:53 Uhr

Uhrzeit und Datum bestimmen in Perl


Wie man bei time gesehen hat, ist Perl ja durchaus in der Lage, die Systemzeit auszugeben. Aber die Zeit in Sekunden seit 1.1.1970 bringt einen nicht wirklich weiter...
Deswegen gibt es in Perl noch die Funktion localtime(). Man kann der Funktion localtime einen beliebigen Wert übergeben, der kompatibel ist zu time ist, und localtime errechnet daraus Tag, Stunde, Minute, Sekunde, Monat, Jahr, Wochentag, Jahrestag und Sommerzeit.

use strict;

my %zeit=&Aktuelle_Zeit;
my $wzsz='';
if ($zeit{sommerzeit} == 0){$wzsz="Winterzeit";} else { $wzsz="Sommerzeit";}
print "$zeit{wochentagtext}, $zeit{tag}.$zeit{monat}.$zeit{jahr}, $zeit{stunde}:$zeit{minute}:$zeit{sekunde} Uhr $wzsz";

############
# Zeit- und Datumsfunktion
#################################
sub Aktuelle_Zeit{
my @wochentage = ("Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag","Sonntag");
my @monatsnamen = ("","Januar","Februar","März","April", "Mai","Juni","Juli","August","September","Oktober", "November","Dezember");
my ($sec,$min,$hour,$heutetag,$heutemonat,$heutejahr,$wday,$yday,$isdst) = localtime(time);
$heutemonat++;
$heutejahr+=1900;
$wday--;
if ($wday eq '-1'){$wday=6;}

$hour="0$hour" if (length($hour) == 1);
$min="0$min" if (length($min) == 1);
$sec="0$sec" if (length($sec) == 1);

my %werte=();
$werte{stunde}=$hour;
$werte{minute}=$min;
$werte{sekunde}=$sec;
$werte{tag}=$heutetag;
$werte{monat}=$heutemonat;
$werte{jahr}=$heutejahr;
$werte{wochentag}=$wday;
$werte{jahrestag}=$yday;
$werte{sommerzeit}=$isdst;

my $tagalstext=$wochentage[$wday];
$werte{wochentagtext}=$tagalstext;

my $monatalstext=$monatsnamen[$heutemonat];
$werte{monattext}=$monatalstext;
return %werte;
}


Ich habe mal ne kleine Subroutine geschrieben, die als Rückgabewert ein Hash zurückgibt, das alle Werte enthält. Mit diesem Unterprogramm kann man auf leichte Weise die aktuellen Zeit- und Datumsdaten abfragen und ausgeben.
Weiterlesen...


Der Beitrag "Uhrzeit und Datum bestimmen in Perl" wurde 30142 mal gelesen.

Kompletten Beitrag lesen Nach oben



Samstag, 24.3.2007, 00:00:23 Uhr

time - Zeit in Sekunden in Perl


Die Funktion time ermittelt die Zeit in Sekunden seit dem 1.1.1970, 0.00 Uhr, bis jetzt. Erwartet werden keine Parameter, zurückgegeben wird ein Skalar, der die Anzahl der Sekunden enthält.

$zeit=time;
print $zeit;




Weiterlesen...


Der Beitrag "time - Zeit in Sekunden in Perl" wurde 33263 mal gelesen.

Kompletten Beitrag lesen Nach oben



Freitag, 23.3.2007, 10:31:07 Uhr

Sicheres sendmail-Script


Ich habe bereits hier auf die möglichen Risiken von sendmail hingewiesen. Sendmail kann dazu verwendet werden, Spam zu versenden oder auch um Systemdateien auszulesen. Deswegen sollte man alle unzulässigen Zeichen aus extern eingelesenen Parametern am Besten mit einer Fehlermeldung entfernen. Ich habe deswegen aus aktuellem Anlaß das folgende Script nach den mir vorliegenden Erkenntnissen erstellt, so daß ein Mißbrauch ausgeschlossen werden kann.

#!/usr/bin/perl

print "Content-Type: text/html\n\n";
print "<HTML>\n<HEAD>\n";

use strict;
&send_mail(
'returnadresse@server.com',
'empfaenger.adresse@seinserver.com',
'absenderadresse@meinserver.com',
'Subject',
'Mailtext'
);


print "OK, Mail versandt...";

sub send_mail{
local *SENDMAIL;
my $ok='';
my $SENDMAIL='';

my $returnadresse=shift;
my $to=shift;
my $from=shift;
my $subject=shift;
my $mailtext=shift;

# gültige Zeichen in Mailadressen sind:
# a-z A-Z 0-9 _ \- \+ \* \$ \. \@
# falls andere Zeichen auftreten -> STOPP
die ('wrong returnadresse') if ($returnadresse=~ /[^a-zA-Z0-9_\-\+\*\$\.\@]/);
die ('wrong to:') if ($to=~ /[^a-zA-Z0-9_\-\+\*\$\.\@]/);
die ('wrong from:') if ($from=~ /[^a-zA-Z0-9_\-\+\*\$\.\@]/);
die ('no mailtext') if ($mailtext eq '');
die ('no subject') if ($subject eq '');
die ('wrong subject') if ($subject=~ /[\n\0\t\r\0\|]/);

my @sendmails=(
'/usr/sbin/sendmail',
'/usr/bin/sendmail',
'/usr/lib/sendmail'
);

# prüfen, wo sendmail sich befindet
foreach (@sendmails){
if (open (SENDMAIL,"|$_ -t")){
$SENDMAIL=$_;
close SENDMAIL;
last;
}
}

die ('Can not find sendmail!!!') if ($SENDMAIL eq '');

open (SENDMAIL,"|$SENDMAIL -t -f $returnadresse") || die('can not open sendmail');
print SENDMAIL <<EOF;
To: $to
Subject: $subject
From: $from
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: 8bit


$mailtext
EOF
close SENDMAIL;
}


Beschreibung
In der Funktion send_mail werden zuerst alle Parameter eingelesen, und zwar in der Reihenfolge:
Returnadresse, falls eine Mail nicht zugestellt werden kann oder der Empfänger antworten will
Weiterlesen...


Der Beitrag "sendmail-Script" wurde 13168 mal gelesen.

Kompletten Beitrag lesen Nach oben



Donnerstag, 22.3.2007, 13:27:48 Uhr

Mails versenden mit Perl - Sendmail


Jeder, der Perl dazu verwendet, um Internetseiten zu betreiben bzw. Internetdienste betreibt, steht irgendwann vor dem Problem, daß er auch mal eine oder auch mehrere Emails versenden will bzw. muß.

Der meist verwendete Ansatz ist die Verwendung von sendmail. Sendmail ist ein Systemdienst von Unix bzw. Linux (das ja ein Unix-Derivat ist).
Eine Lösung könnte z.B. so aussehen:

$text="Dies ist der Text, der versendet werden soll. Natürlich ist dies nur zum Ausprobieren gedacht";

$SENDMAIL='/usr/sbin/sendmail';
open (SENDMAIL,"|$SENDMAIL -t -f -odq meine.mailadresse\@mein-server.de") || &fehler("Kann sendmail nicht öffnen");
print SENDMAIL <<EOF;
To: $sendto
Subject: $subject
From: meine.mailadresse\@mein-server.de
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: 8bit


$text
EOF

close SENDMAIL;


Weiterlesen...


Der Beitrag "Mails versenden mit Perl - Sendmail" wurde 29614 mal gelesen.

Kompletten Beitrag lesen Nach oben



Donnerstag, 22.3.2007, 09:25:59 Uhr

mkdir() - Ein Verzeichnis erstellen in Perl


Mit dem befehl mkdir() lassen sich in Perl Verzeichnisse erstellen und auch gleich die nötigen Rechte vergeben (unter Unix-Systemen...)

Syntax
$ok=mkdir (verzeichnisname,rechte);

Als Parameter werden, wie Sie sehen, der Name des zu erstellenden Verzeichnisses und die Rechte erwartet. Die Rechte sind wie immer in oktaler Schreibweise, so wie man es eben von Unix kennt.
Weiterlesen...


Der Beitrag "mkdir() - Ein Verzeichnis erstellen in Perl" wurde 39614 mal gelesen.

Kompletten Beitrag lesen Nach oben



Mittwoch, 21.3.2007, 00:08:46 Uhr

Link in absoluten Link umwandeln


Ich stand vor kurzem vor dem Problem, daß ich Links einer Webseite in absolute Links umwandeln wollte. Dazu habe ich etwas nachgelesen und das Modul URI::URL gefunden, daß dies auch prima beherrscht.

Vielleicht vorher noch die Erklärung, was ein absoluter Link ist
Ein absoluter Link ist ein Link, der den vollen Domainnamen enthält, wie z.b.: http://www.dingens.de/test.htm. Relativ ist ein Link, der die Form ../test.htm hat, also von dem aktuellen Dokument aus relativ wohin zeigt.


use URI::URL;
my $link=new URI::URL ($datei,$basis);
return $link->abs;


Weiterlesen...


Der Beitrag "Link in absoluten Link umwandeln" wurde 9201 mal gelesen.

Kompletten Beitrag lesen Nach oben



B l o o o o o o o o o o o o o o o o o g
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18


SSD-Festplatte - Wassn das???
Die Transliteration - Nur ein Zeichen in einem Skalar ersetzen
Select - Case in Perl
Windows 7 XP Mode – Wo finde ich den XP-Modus unter Windows 7?
Mac-Adresse beim Apple Macintosh herausfinden
SGN-Funktion für Perl

Eigene IP herausfinden mit Perl
Epoche live in Datum umwandeln
Firefox 3 - Exe-Files downloaden


Gesamtverzeichnis
Februar 2010
Dezember 2009
Oktober 2009
Januar 2009
Dezember 2008
November 2008
September 2008
August 2008
Juli 2008
Juni 2008
Mai 2008
April 2008
Januar 2008
Dezember 2007
November 2007
Oktober 2007
September 2007
August 2007
Juni 2007
Mai 2007
April 2007
März 2007
Februar 2007
Januar 2007
Dezember 2006


Mister Wong

RSS-Feed

Heute ist der
3.3.2024

Es ist
13:31:39 Uhr

Ihre IP:
3.235.145.108

Blog-Einträge: 186

Die letzten 24 Stunden im Überblick


Gelesene Beiträge insgesamt:
4387066


Webseiten vergleichen
Kalender mit Feiertagen - 2028
Links finden und testen
Menschliche Datumsangaben
IP zu Domain herausfinden
Time live in Datum umwandeln
Perl für Windows



Impressum