Quantcast
Channel: Srccode's Blog » Perl
Browsing all 10 articles
Browse latest View live

Image may be NSFW.
Clik here to view.

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 Article



Image may be NSFW.
Clik here to view.

Perl – 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 Article

Image may be NSFW.
Clik here to view.

Perl – 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 Article

Image may be NSFW.
Clik here to view.

Perl – 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 Article

Image may be NSFW.
Clik here to view.

Perl – 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 Article


Image may be NSFW.
Clik here to view.

Perl – 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 Article

Image may be NSFW.
Clik here to view.

Perl – 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 Article

Image may be NSFW.
Clik here to view.

Perl – 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 Article


Image may be NSFW.
Clik here to view.

Perl – 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 Article


Image may be NSFW.
Clik here to view.

Perl – 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
Browsing all 10 articles
Browse latest View live




Latest Images