/blog/perl


substr() in Perl
[153463 mal gelesen]
foreach in Perl
[128975 mal gelesen]
Arrays in Perl - Besonderheiten
[125038 mal gelesen]
split() in Perl - Zeichenketten teilen
[113178 mal gelesen]
open() - Dateien öffnen in Perl
[108802 mal gelesen]
grep - Listen durchsuchen in Perl
[94449 mal gelesen]
chomp() in Perl
[93459 mal gelesen]
push in Perl
[90636 mal gelesen]
sleep in Perl - Das aktuelle Script warten lassen
[75789 mal gelesen]
index() in Perl - Zeichenkette in Zeichenkette suchen
[59225 mal gelesen]


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


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...


Der Beitrag "sleep in Perl - Das aktuelle Script warten lassen " wurde 75789 mal gelesen.

Kompletten Beitrag lesen Nach oben



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...


Der Beitrag "Continue in Perl - Erweiterte Schleifenausführung" wurde 8834 mal gelesen.

Kompletten Beitrag lesen Nach oben



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...


Der Beitrag "Perls map, grep und sort - ein alter Beitrag aus dem Internet" wurde 9506 mal gelesen.

Kompletten Beitrag lesen Nach oben



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...


Der Beitrag "Vordefinierte Variablen in Perl" wurde 12406 mal gelesen.

Kompletten Beitrag lesen Nach oben



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...


Der Beitrag "Hash of Arrays - Oder: Wie bilde ich ein Hash aus Arrays? " wurde 37049 mal gelesen.

Kompletten Beitrag lesen Nach oben



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...


Der Beitrag "Speedtest File::Find" wurde 11149 mal gelesen.

Kompletten Beitrag lesen Nach oben



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";
}
}





Der Beitrag "Identische Dateien finden - Der Holzweg" wurde 8395 mal gelesen.

Kompletten Beitrag lesen Nach oben



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...


Der Beitrag "Identische Dateien auf dem Computer finden mit Perl" wurde 10530 mal gelesen.

Kompletten Beitrag lesen Nach oben



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...


Der Beitrag "stat - Eigenschaften von Dateien ermitteln " wurde 20016 mal gelesen.

Kompletten Beitrag lesen Nach oben



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...


Der Beitrag "unlink() - Dateien löschen in Perl " wurde 34990 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
24.7.2024

Es ist
18:18:20 Uhr

Ihre IP:
3.236.112.70

Blog-Einträge: 186

Die letzten 24 Stunden im Überblick


Gelesene Beiträge insgesamt:
4406318


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