|
Thema Perl
Samstag, 5.5.2007, 13:02:54 Uhr
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...
Freitag, 4.5.2007, 00:08:33 Uhr
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...
Donnerstag, 3.5.2007, 11:17:55 Uhr
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...
Mittwoch, 2.5.2007, 10:15:42 Uhr
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...
Samstag, 28.4.2007, 00:00:31 Uhr
Hash of Arrays - Oder: Wie bilde ich ein Hash aus Arrays
Nachdem ich hier das Thema schonmal aufgegriffen habe (etwas versteckt vielleicht), möchte ich das Thema nochmal aufgreifen: Hash of Arrays, also ein Hash, der Arrays enthält.Hört sich nun etwas verquert an, ist aber ne schöne und effektive Sache, wenn man viele Daten im Systemspeicher verwalten will.
Anlegen kann man so ein Array in einem Hash wie gewohnt per push(), also zum Beispiel
push (@{$hashname{$bezeichner}},$wert);
# oder per Wertzuweisung
@{$hashname{$bezeichner}}=@array;
|
Weiterlesen...
Freitag, 27.4.2007, 11:29:17 Uhr
Speedtest File::Find
Wie ich hier ja schon berichtet habe, schien mit das Modul File::Find zu der Zeit etwas unflexibel.Grund dafür war die Tatsache, daß ich keine Dateiendungen übergeben konnte bzw. nicht festlegen konnte, wie viele Ebenen durchsucht werden sollen bzw. nur die aktuelle Ebene oder inklusive Unterebene.
Dies ist zwar natürlich Möglich, aber leider nur per Umweg.
Der Aufruf von File::Find erfolgt ja per
Weiterlesen...
Donnerstag, 26.4.2007, 11:27:33 Uhr
Identische Dateien finden - Der Holzweg
Zum ursprünglichen Beitrag
Hier also der Code, der mich nicht weiter brachte.
use Digest::MD5 qw(md5);
use strict;
my %files=();
my %dateien;
my @nulllength=();
my @dateisize=();
my @dateien=get_all_files('c:/htdocs/',1,'.shtml');
print "Es wurden ".@dateien." Dateien gefunden\n";
## Dateilänge holen und merken
foreach (@dateien){
open (my $IN,'<'.$_);
my $dateilaenge=(stat($_))[7];
binmode ($IN);
read ($IN,my $key,100);
close $IN;
my $size="$dateilaenge|$key";
# Ist Hash-Element der Dateigröße schon vorhanden???
# Wenn nicht, dann Array anlegen, erster Wert ist die Dateigröße
# Übrigens : Hier kann man die Verwendung eines Hashes mit (aus?) Arrays sehen
push (@{$dateien{$size}},"$size") if (!defined @{$dateien{$size}});
push (@{$dateien{$size}},$_);
}
# Ab hir steht in [filename,filename,filename]
# jede Datei, aufgetielt nach Dateigroessen
@dateien=();
foreach (keys %dateien){
my @dats=@{$dateien{$_}};
# wenigstens 2 Filenamen müssen da sein, also @dats >= 3, da erster Eintrag die Dateilaenge
next if @dats < 3;
&get_checksum(@dats);
}
%dateien=();
print qq~Dateien mit Nulllaenge:\n~;
print join("\n",@nulllength);
print qq~\n\nIdentische Dateien:\n~;
foreach (keys %files){
print "$files{$_}\n\n" if (split('\n',$files{$_}) >1);
}
exit;
###################
# Parameter
# Startdir ohne abschließendes /, aktuelles Verzeichnis = .
# Unterverzeichnisse durchsuchen? 1: ja, 0: nein
# Dateitypen in form .txt.htm.html , also direkt hintereinander, aber nur wenn nötig
# ansonsten wird alles gezeigt
#############################################
sub get_all_files{
my $startdir=shift;
my $include_subdirs=shift;
my $endings=shift;
my %endings=();
$endings=~ s/\s//g;
my @endings=split('\.',$endings);
shift @endings;
my $endings=0;
$startdir=~ s/\/$//;
if (@endings != 0){
$endings=1; # wenn Endungen angegeben
foreach (@endings){
$endings{$_}=1;
}
}
@endings=();
my @dateien=();
push (my @all_directories,$startdir);
foreach my $akdir(@all_directories){
local *in;
opendir (in,$akdir);
my @all=readdir(in);
closedir in;
foreach my $akdatei (@all){ next if ($akdatei eq '..' || $akdatei eq '.');
if (-d "$akdir/$akdatei") {
if ($include_subdirs == 1){
push (@all_directories,"$akdir/$akdatei");
next;
}
} else {
if ($endings==0){
push (@dateien,"$akdir/$akdatei");
} else {
my @endung=split('\.',$akdatei);
my $endung=$endung[-1];
if ($endings{$endung} == 1){
push (@dateien,"$akdir/$akdatei");
}
}
}
}
}
return @dateien;
}
######################
# generiert Checksumme einer Datei
#############################################
sub get_checksum{
my ($dateiname,$dateilaenge);
my %tempfiles=(); # temporäre Files
my $data='';
$dateilaenge=shift;
($dateilaenge,my $dummy)=split('\|',$dateilaenge);
return if $dateilaenge > 64000000;
if ($dateilaenge == 0){ # Wenn Dateilaenge = 0, dann gleich alles ins Array und zurück
push (@nulllength,@_);
return;
}
my $firsthundret='';
foreach $dateiname (@_){
open (my $IN,'<'.$dateiname);
binmode($IN);
my $checksum = Digest::MD5->new->addfile(*$IN)->digest;
close $IN;
$files{$checksum}.="$dateiname\n";
}
}
|
Mittwoch, 25.4.2007, 11:15:37 Uhr
Identische Dateien auf dem Computer finden mit Perl
Vor kurzem stand ich vor dem Problem, daß auf einem von mir betreuten Webserver der Speicherplatz aufgebraucht war.
Nach etwas herumsuchen stellte ich dann fest, daß es daran lag, daß viel Speicherplatz verschleudert wurde, weil viele identische Dateien mehrmals vorhanden waren.
Was lag also näher, als ein kleines Perl-Programm zu schreiben, das doppelte (identische) Dateien findet?
Weiterlesen...
Mittwoch, 18.4.2007, 00:01:12 Uhr
stat - Eigenschaften von Dateien ermitteln
Die Funktion stat() ermittelt diverse Eigenschaften einer Datei auf einmal.
Viele dieser Eigenchaften sind jedoch Unix-spezifisch. Manche dieser Eigenschaften lassen sich zwar auch auf anderen Plattformen erfragen, meist ist es jedoch einfacher, die Dateitestoperatoren für Dateien/Verzeichnisse zu verwenden.
Die Funktion stat läßt sich im Gegensatz zu lstat nicht auf Dateirepräsentationen, sondern nur auf "Originale" von Dateien anwenden.
Syntax
@Eigenschaften=stat(Datei);
Weiterlesen...
Dienstag, 17.4.2007, 15:31:03 Uhr
unlink() - Dateien löschen in Perl
Der Befehl unlink() löscht eine oder mehrere Dateien.
Syntax
$result = unlink ( Dateiename );
oder
Weiterlesen...
|
RSS-Feed