Perl – Dateien in einem Verzeichnis bearbeiten
Mit Perl alle Dateien aus einem Verzeichnis bearbeiten: my $dir = "./rechnungen"; opendir(DIR, $dir); my @files = readdir(DIR); foreach my $file ( @files ) { next if ( $file eq "." ); next if ( $file...
View ArticlePerl – Umgebung lt. profile setzen
Mit einem kleinen Trick kann man auch über die crontab die Umgebung in einem Perl-Skript setzen: #------------------------------------------------------------- # This function expands the environment...
View ArticlePerl – Script location – working directory ermitteln
Mit Hilfe von Perl den Pfad des gerade ausgeführten Scriptes und das Verzeichnis in dem das Script gestartet wurde, ermitteln: #!/usr/bin/perl -w use Cwd; my $script = $0; my $workdir = getcwd; print...
View ArticlePerl – Datenstrukturen mit Data::Dumper ausgeben
Mit Data::Dumper kann man in Perl mit einer Zeile Code gesamte Datenstrukturen ausgeben. Dazu wird einfach die Funktion Dumper mit einer Referenz auf die Struktur aufgerufen: #!/usr/bin/perl -w...
View ArticlePerl – doppelte Werte in einem Array aussortieren
doppelte Werte aus einem Array entfernen: #!/usr/bin/perl -w my @array = ( "a", "b", "c", "a", "b", "d" ); print "@array\n"; my %saw; my @out = grep(! $saw{$_}++, @array); print "@out\n";
View ArticlePerl – einen Hash durchlaufen
Ein Perl-Hash durchlaufen: #!/usr/bin/perl -w my %hash = ( a => 'A', b => 'B', ); while(my ($key, $value) = each(%hash)) { print "$key => $value\n"; }
View ArticlePerl – XML Dokumente mit XML::Simple einlesen
Mit XML::Simple kann man XML-Dokumente in eine Perl-Datenstruktur übertragen: #!/usr/bin/perl -w use XML::Simple; use Data::Dumper; my $xml = new XML::Simple; my $doc = $xml->XMLin("./bla.xml");...
View ArticlePerl – Execute commmand, capture STDOUT und STDERR
Mit Perl ein Systemkommando ausführen und das Ergebnis (STDOUT und STDERR) verarbeiten: open(IN, "ls -lrt 2>&1 |") || die "Failed: $!\n"; while ( <IN> ) { print "Line: $_"; } hier noch das...
View ArticlePerl – Hostnamen ermitteln
Mit dem Modul Sys::Hostname kann der Hostname einfach ermittelt werden: #!/usr/bin/perl -w use Sys::Hostname; my $host = hostname(); print "Host: $host\n";
View ArticlePerl – Verzeichnisse mit File::Find durchsuchen
Mit File::Find alle Dateien unter einem Verzeichnis auflisten: #!/usr/bin/perl -w use File::Find; find(\&print_filename, "/tmp/"); sub print_filename { print $File::Find::name."\n"; }
View Article
More Pages to Explore .....