Perl HowTo

Net::NTP - Antwortpakete eines NTP-Servers einfach dekodieren

2012-03-22T19:15:00Z

"Das Network Time Protocol (NTP) ist ein Standard zur Synchronisierung von Uhren in Computersystemen über paketbasierte Kommunikationsnetze. NTP verwendet das verbindungslose Transportprotokoll UDP. NTP wurde speziell entwickelt, um eine zuverlässige Zeitgabe über Netzwerke mit variabler Paketlaufzeit zu ermöglichen." Quelle: Wikipedia: Network Time Protocol.

NTP-Server versenden Antworten im NTP Message Format, die sich mit Net::NTP - Perl extension for decoding NTP server responses von Ask Bjørn Hansen einfach dekodieren lassen.

Beispiel:

Net::NTP exportiert eine einzige Funktion, get_ntp_response(), die als optionalen Parameter auch die Adresse eines NTP-Server annimmt und liefert einen Hash zurück, dessen Schlüssel die einzelnen Abschnitte des NTP Antwort Pakets enthält.

#!/usr/bin/perl
use strict;
use warnings;

use Net::NTP qw(get_ntp_response);

my $ntp_server = shift ||  'ptbtime1.ptb.de';

my %response = get_ntp_response( $ntp_server );

my @response_keys = sort keys %response;

foreach my $response_key ( @response_keys ) {
	print "$response_key: $response{ $response_key }\n";
}

Das Programm liefert folgende Ausgabe:

Leap Indicator: 0
Mode: 4
Originate Timestamp: 1332443226.50195
Poll Interval: 0.0000
Precision: -21
Receive Timestamp: 1332443226.90883
Reference Clock Identifier: PTB
Reference Timestamp: 1332443217.35515
Root Delay: 0
Root Dispersion: 0.0000
Stratum: 1
Transmit Timestamp: 1332443226.90883
Version Number: 3

Die Schlüssel des %response ensprechen den einzelnen Feldern des NTP Antwortpakets:

                           1                   2                   3
       0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1
      +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
      |LI | VN  |Mode |    Stratum    |     Poll      |   Precision   |
      +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
      |                          Root Delay                           |
      +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
      |                       Root Dispersion                         |
      +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
      |                     Reference Identifier                      |
      +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
      |                                                               |
      |                   Reference Timestamp (64)                    |
      |                                                               |
      +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
      |                                                               |
      |                   Originate Timestamp (64)                    |
      |                                                               |
      +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
      |                                                               |
      |                    Receive Timestamp (64)                     |
      |                                                               |
      +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
      |                                                               |
      |                    Transmit Timestamp (64)                    |
      |                                                               |
      +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
      |                 Key Identifier (optional) (32)                |
      +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
      |                                                               |
      |                                                               |
      |                 Message Digest (optional) (128)               |
      |                                                               |
      |                                                               |
      +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+

Quelle: RFC 2030

Siehe auch

Perl Advent(ures) 2011

2011-12-01T17:15:00Z

Es ist wieder so weit - Perl Adventskalender 2011 sind online:

Via:

PreshBlog: Perl Advent Calendars for 2011

Perl in the Cloud - OpenShift Express by Red Hat - Installation, Initialisierung und Konfiguration

2011-11-24T11:22:45Z

OpenShift by Red Hat soll die Entwicklung von Open-Source-Anwendungen für die Cloud vereinfachen. Dieser Plattform-as-a-Service stellt eine Infrastruktur für verschiedene Programmiersprachen und Web-Frameworks zur Verfügung.

Red Hat unterscheidet zwischen den Produktvarianten Express, Flex und Power.

Die kostenlose Express Variante (Registrierung erforderlich) erlaubt u.a. die Verwendung der dynamischen Programmiersprache Perl in Version 5.10.1, der Datenbanken MySQL in Version 5.1 oder SQLite in Version 3 und (ganz wichtig) die Installation von CPAN-Modulen.

Die bekannten und beliebten Perl Web-Frameworks Dancer, Mojolicious und Catalyst können verwendet werden.

Schritt für Schritt

Dieser Beitrag geht zuerst Schritt für Schritt durch die Installation, Initialisierung und Konfiguration von OpenShift Express. Danach wird ein betont einfaches, aber nützliches Perl-Programm erstellt und gezeigt, wie dieses in die Cloud ausgeliefert (deployed) wird.

Registrierung

Zur Verwendung von OpenShift Express ist eine Registrierung mit einer gültigen E-Mail-Adresse erfoderlich. Alternativ kann auch ein bestehender RHN-Account verwendet werden.

Installation der Client-Tools

OpenShift funktioniert unter Mac OSX, Linux und Windows - für diesen Beitrag verwende ich CentOS 6 (64-Bit in einer eigenen virtuellen Maschine).

Für die Client-Tools bietet RedHat eine eigenes YUM-Repository an, das wie folgt installiert wird.

# wget https://openshift.redhat.com/app/repo/openshift.repo
# mv openshift.repo /etc/yum.repos.d

Damit alle Paket-Abhänigkeiten aufgelöst werden, musste ich auch die EPEL- und RPMForge-Repositories hinzufügen.

Nun können die Client-Tools installiert werden:

# yum install rhc

Initialisierung

Alle Apps eines Users werden in einen eigenen Namensraum (Domain) installiert. Apps sind dann nach dem Schema http://$app-$domain.rhcloud.com öffentlich erreichbar. Dazu gleich mehr.

Das Kommando rhc-create-domain erzeugt einen neuen Namensraum, die Konfigurationsdatei express.conf und SSH-Schlüssel (libra_id_rsa) zur Git-Authentifizierung.

$ rhc-create-domain -n yourdomain -l user@example.com
Password: <user password>

Generating Openshift Express ssh key to /home/UserName/.ssh/libra_id_rsa
Generating public/private RSA key pair.
Created directory '/home/UserName/.ssh'.
Enter passphrase (empty for no passphrase):
Enter same passphrase again:
Your identification has been saved in /home/UserName/.ssh/libra_id_rsa.
Your public key has been saved in /home/UserName/.ssh/libra_id_rsa.pub.
.
.
Contacting https://openshift.redhat.com
Adding rhlogin to /home/UserName/.openshift/express.conf
Creation successful

You may now create an application.  Please make note of your local config file
in /home/UserName/.openshift/express.conf which has been created and populated for
you.

Jetzt noch Git (minimal) konfigurieren

$ git config --global user.name "Your Name"
$ git config --global user.email you@example.com

und dann kann endlich die erste App erstellt werden.

Appgerüst erzeugen

Das Kommando rhc-create-app erzeugt das Gerüst der neuen App. Über die Option -a wird der Name der Applikation angegeben. Die Option -t legt den Typ der Applikation, hier perl-5.10, fest. Typen werden in der Dokumentation auch gerne als cartridge bezeichnet.

$ rhc-create-app -a X1 -t perl-5.10 
Password: 

Attempting to create remote application space: X1
Now your new domain name is being propagated worldwide (this might take a minute)...
Pulling new repo down
Warning: Permanently added 'x1-thomasfahle.rhcloud.com,184.73.107.7' (RSA) to the list of known hosts.
Confirming application 'X1' is available
  Attempt # 1

Success!  Your application 'X1' is now published here:

      http://X1-thomasfahle.rhcloud.com/

The remote repository is located here:

    ssh://ce3eb6cc3b1942a2a61a76db6ff63274@X1-thomasfahle.rhcloud.com/~/git/X1.git/

To make changes to 'X1', commit to X1/.

Successfully created application: X1

Die neu erstellte Applikation mit dem Namen X1 innerhalb des Namensraumes thomasfahle ist sofort unter der URL http://x1-thomasfahle.rhcloud.com/ erreichbar.

Wer lieber seine eigene Domain verwenden möchte und über einen eigenen Nameserver verfügt, kann einen DNS Alias einrichten.

Orientierung im Gelände

Die neu erstellte Applikation befindet sich im Verzeichnis $app, hier X1.

$ tree X1
X1
|-- deplist.txt
|-- libs
|-- misc
|-- perl
|   |-- health_check.pl
|   `-- index.pl
`-- README

Das Verzeichnis perl ist die DocumentRoot der Webapp. Alle hier abgelegten Dateien sind öffentlich. Die Datei index.pl dient als DirectoryIndex.

Die Datei deplist.txt nimmt eine Liste der zu installierenden CPAN-Module auf, pro Zeile ein Modul ohne Versionsnummer.
Beispiel:

Test::Base
YAML
Dancer
Plack::Handler::Apache2

Das Verzeichnis misc ist nicht öffentlich und kann für eigene Zwecke genutzt werden.

Das Verzeichnis libs ist ebenfalls nicht öffentlich und dient als Speicherort für eigene Module.

Sinn und Zweck der Datei health_check.pl ist mir nicht ganz klar geworden.

Weiterhin gibt es noch ein verstecktes Verzeichnis .openshift zur Steuerung des Build-Prozesses. Dazu später mehr.

Das erste Programm: Umgebungsvariablen

Einige Konfigurationseinstellungen, z.B. für Datenbanken, sind als Umgebungsvariablen abgelegt.

Daher erstellen wir als erstes einfaches Beispiel keine Hallo-Welt-App, sondern eine nützliche App, welche die Umgebungsvariablen anzeigt.

Das Programm wird unter dem Namen printenv.pl im Ordner perl abgelegt.

#!/usr/bin/perl
use strict;
use warnings;

#  printenv -- demo CGI program which just prints its environment
print "Content-type: text/plain\n\n";

foreach my $key ( sort( keys(%ENV) ) ) {
    my $val = $ENV{$key};
    $val =~ s|\n|\\n|g;
    $val =~ s|"|\\"|g;
    print qq~$key = $val\n~;
}
exit();

Zur Veröffentlichung (Deployment) der App verwendet OpenShift Git. Sobald die Datei hinzugefügt und commited wurde, kann diese per git push in die Cloud ausgeliefert werden.

$ git add printenv.pl
$ git commit -m 'Umgebungsvariablen App'
$ git push

Counting objects: 6, done.
Compressing objects: 100% (4/4), done.
Writing objects: 100% (4/4), 594 bytes, done.
Total 4 (delta 1), reused 0 (delta 0)
remote: Stopping application...
remote: Waiting for stop to finish
remote: Done
remote: Running .openshift/action_hooks/pre_build
remote: strict is up to date. (1.04)
remote: skipping F/FL/FLORA/perl-5.15.4.tar.gz
remote: Running .openshift/action_hooks/build
remote: Running .openshift/action_hooks/deploy
remote: Starting application...
remote: Done
remote: Running .openshift/action_hooks/post_deploy
To ssh://ce3eb6cc3b1942a2a61a76db6ff63274@X1-thomasfahle.rhcloud.com/~/git/X1.git/
   ee74341..e31f2ec  master -> master

Das Programm ist nun unter der URL http://x1-thomasfahle.rhcloud.com/printenv.pl erreichbar.

Hinweis: Alle Daten innerhalb des Git-Repositories werden dabei auf dem OpenShift Express Server zunächst gelöscht und dann neu eingespielt.

Hinweis: Da Umgebungsvariablen auch Benutzernamen und Passwörter enthalten können, sollte dieses Programm nicht auf dem Cloud-Server verbleiben.

Zum Bau und zur Auslieferung der Applikation werden die Programme im Ordner .openschift/action_hooks/ ausgeführt. Um sich die Umgebungsvariablen anzeigen zu lassen, genügt es in die Datei build die Anweisung export einzufügen. Dann werden die Umgebungsvariablen bei jedem push angezeigt.

$ cat .openshift/action_hooks/build 
#!/bin/bash
# This is a simple build script and will be executed on your CI system if 
# available.  Otherwise it will execute while your application is stopped
# before the deploy step.  This script gets executed directly, so it
# could be python, php, ruby, etc.
export

Eigene Umgebungsvariablen können derzeit nicht gesetzt werden.

Logfiles

Das Kommando rhc-tail-files ermöglicht den Zugriff auf die Logdateien auf dem Cloud-Server.

$ rhc-tail-files -a X1 
Password: 

Attempting to tail files: X1/logs/*
Use ctl + c to stop

==> X1/logs/error_log-20111122-000000-EST <==
[Tue Nov 22 16:43:18 2011] [notice] Apache/2.2.15 (Unix) mod_perl/2.0.4 Perl/v5.10.1 configured -- resuming normal operations

==> X1/logs/access_log-20111122-000000-EST <==
xx.xxx.xxx.IP - - [22/Nov/2011:16:47:04 -0500] "GET /printenv.pl HTTP/1.0" 200 2323 "-" "Mozilla/5.0 (X11; U; Linux i686; de; rv:1.9.2.24) Gecko/20111107 Ubuntu/10.04 (lucid) Firefox/3.6.24"

Der Zugriff auf die error_log Dateien erleichert das Debuggen erheblich.

Snapshots

Das Kommando rhc-snapshot erstellt einen Snapshot der Applikation und liefert diesen als gezippte tar Datei zurü:

$ rhc-snapshot  -a X1 
Password: 

Pulling down a snapshot to X1.tar.gz

Stopping application...
Waiting for stop to finish
Done
Creating and sending tar.gz
Starting application...
Done

Wenn man die Datei X1.tar.gz auspackt, sieht man alle Verzeichnisse und Dateien der Applikation.

$ tar -xzvf X1.tar.gz
$ cd app-verzeichnis

$ tree
.
|-- git
|   `-- X1.git
|       |-- branches
|       |-- config
|       |-- description
|       |-- HEAD
|       |-- hooks
|       |   |-- applypatch-msg.sample
|       |   |-- commit-msg.sample
|       |   |-- post-commit.sample
|       |   |-- post-receive
|       |   |-- post-receive.sample
|       |   |-- post-update.sample
|       |   |-- pre-applypatch.sample
|       |   |-- pre-commit.sample
|       |   |-- prepare-commit-msg.sample
|       |   |-- pre-rebase.sample
|       |   |-- pre-receive
|       |   `-- update.sample
|       |-- info
|       |   |-- exclude
|       |   `-- refs
|       |-- objects
|       |   |-- 0a
|       |   |   `-- bed1546ab3d6aee5b42c68f57100f52949b4bf
|       |   |-- 10
|       |   |   `-- cd54466b8f66bb40d6c50ab5519bf7727e51dd
|       |   |-- 1d
|       |   |   `-- b60ffa4e6b41be6ed92a6a2b3343c70b301fb6
|       |   |-- 2f
|       |   |   `-- a0243ca6abb34233618e9ea809871be855a225
|       |   |-- 40
|       |   |   |-- 0b36608e5e4405636bf7394c546ec18de53252
|       |   |   `-- c24d558d8a1196d4170f56182b8f69fbe6741f
|       |   |-- 5e
|       |   |   `-- 1c48b299eb8c1fd204b69e520236d3a2a3217e
|       |   |-- 6a
|       |   |   `-- e37b40a1cd342e2661bdf06b65fc4731e1af1e
|       |   |-- 9b
|       |   |   `-- 594ba566f5036940fd00dfeca9cd38e51579a8
|       |   |-- a5
|       |   |   `-- 7d1f5806d714a998130b9517a4240de0c39fe3
|       |   |-- b5
|       |   |   `-- 3bde9fe6346b3d54d39b9d970308cc25080cbe
|       |   |-- c0
|       |   |   `-- df17bb0b3dbdb4da6c06ad6fe4e070e3061485
|       |   |-- c1
|       |   |   `-- d6344439cdc822df02c54bb39aabb5ccd4a7de
|       |   |-- d5
|       |   |   `-- 64d0bc3dd917926892c55e3706cc116d5b165e
|       |   |-- df
|       |   |   `-- 8d841a9e8c1afd175e0061bb7b762d708b0c58
|       |   |-- e3
|       |   |   `-- 1f2ec741b91b2d4ddc9500991cc660a8cf037d
|       |   |-- e6
|       |   |   `-- 9de29bb2d1d6434b8b29ae775ad8c2e48c5391
|       |   |-- ed
|       |   |   `-- 5eb993715da4af89ce517eedb2c3879994e10e
|       |   |-- ee
|       |   |   `-- 74341ac408153e9bfe02fe55669533ccdfdbba
|       |   |-- f1
|       |   |   `-- 25e7fa5f3603669e173695b284d170ddd7b62f
|       |   |-- info
|       |   |   `-- packs
|       |   `-- pack
|       |       |-- pack-e8aca9b5d216bb7c5a7ac884d5cdcb6c0a9faabe.idx
|       |       `-- pack-e8aca9b5d216bb7c5a7ac884d5cdcb6c0a9faabe.pack
|       |-- packed-refs
|       `-- refs
|           |-- heads
|           |   `-- master
|           `-- tags
`-- X1
    |-- ci
    |-- conf
    |   `-- magic -> /etc/httpd/conf/magic
    |-- conf.d
    |-- data
    |-- logs
    |   |-- access_log-20111122-000000-EST
    |   |-- access_log-20111123-000000-EST
    |   |-- error_log-20111122-000000-EST
    |   `-- error_log-20111123-000000-EST
    |-- modules -> /usr/lib64/httpd/modules
    |-- perl5lib
    |-- repo -> runtime/repo
    |-- run
    |-- runtime
    |   `-- repo
    |       |-- deplist.txt
    |       |-- libs
    |       |-- misc
    |       |-- perl
    |       |   |-- health_check.pl
    |       |   |-- index.pl
    |       |   `-- printenv.pl
    |       `-- README
    `-- tmp

45 directories, 53 files

Persistent Storage

Wie oben bereits erwähnt, werden bei der Auslieferung (git push) alle Dateien, die sich innerhalb des Git-Repositories befinden, auf dem Cloud-Server gelöscht und neu eingespielt.

Persistente Daten, z.B. SQLite Dateien, müssen daher ausserhalb des Git-Repositories auf dem Server aufbewahrt werden. Dazu stellt OpenShift Express den Ordner data zur Verfügung.

Der Pfad zum Ordner data kann aus der Umgebungsvariablen OPENSHIFT_DATA_DIR ermittelt werden.

#!/usr/bin/perl
use strict;
use warnings;

print "Content-type: text/plain\n\n";

my $data_dir = $ENV{OPENSHIFT_DATA_DIR};
my $file = 'test.txt';

open (OUT, ">" , "$data_dir/$file" ) or die $!;

for ( 1 .. 10 ) {
        print OUT "$_\n";
}
close(OUT) or die $!;
exit();

Die im Ordner data gespeicherten Daten lassen sich per rhc-snapshot vom Cloud-Server holen.

$ tree
.
|-- ci
|-- conf
|   `-- magic -> /etc/httpd/conf/magic
|-- conf.d
|-- data
|   `-- test.txt
|-- logs
|   |-- access_log-20111122-000000-EST
|   |-- access_log-20111123-000000-EST
|   |-- error_log-20111122-000000-EST
|   `-- error_log-20111123-000000-EST
|-- modules -> /usr/lib64/httpd/modules
|-- perl5lib
|-- repo -> runtime/repo
|-- run
|-- runtime
|   `-- repo
|       |-- deplist.txt
|       |-- libs
|       |-- misc
|       |-- perl
|       |   |-- health_check.pl
|       |   |-- index.pl
|       |   |-- printenv.pl
|       |   |-- read.pl
|       |   `-- write.pl
|       `-- README
`-- tmp

Siehe auch

OpenShift by Red Hat
OpenShift Express
User Guide - Using OpenShift Express to manage your applications in the cloud
Frequently Asked Questions > OpenShift FAQ
OpenShift Knowledge Base - How to onboard a Perl application
OpenShift Beispiele auf GitHub
OpenShift Knowledge Base - How to deploy the Perl Dancer framework on OpenShift Express
openshift / dancer-example
OpenShift Knowledge Base - Installing OpenShift Express client tools on Mac OSX, Linux, and Windows
man 5 express.conf - configuration file for OpenShift Express
man 1 rhc-create-domain - creates a new OpenShift Express domain namespace with a user
man 1 rhc-create-app - creates a new hosted application at rhcloud.com
man 1 rhc-tail-files - Tail files from remote running applications in real-time
man 1 rhc-user-info - Displays information about a user on the rhcloud.com system
man 1 rhc-chk - Diagnoses the connection between this client and the OpenShift servers
man 1 rhc-ctl-app - Control an existing rhcloud.com application
man 1 rhc-snapshot - Pulls down an application snapshot as gzipped tarfile
OpenShift Knowledge Base - I have deployed my app, but I don't like telling people to visit <my_app>-<my_username>.rhcloud.com. How can I set up my own domain name to point to my app?
OpenShift Knowledge Base - Redirecting your server to OpenShift Express with mod_rewrite
Linux Magazin - Cloud-Küche - Red Hat Open Shift: Plattform für Webentwickler und Hoster

WWW::Google::PageRank - Google Pagerank für Websites abfragen

2011-11-21T17:17:53Z

WWW::Google::PageRank von Yuri Karaban ermittelt den Google Pagerank für Websites.

Pagerank ermitteln: get()

Die Methode get() liefert im skalaren Kontext den Pagerank, im Listenkontext den Pagerank und zusätzlich ein HTTP::Response Objekt zum Debuggen zurück.

Beispiel: get() im skalaren Kontext

#!/usr/bin/perl
use strict;
use warnings;

use WWW::Google::PageRank;

my $pr = WWW::Google::PageRank->new( host => 'toolbarqueries.google.de' );

my @urls = qw!
  http://perl-howto.de
  http://yahoo.de
  http://web.de
  !;

foreach my $url (@urls) {
    print "URL: $url ", scalar( $pr->get($url) ), "\n";
}

Das Programm liefert folgende Ausgabe:

URL: http://perl-howto.de 4
URL: http://yahoo.de 8
URL: http://web.de 7

Beispiel: get() im Listenkontext

#!/usr/bin/perl
use strict;
use warnings;

use WWW::Google::PageRank;

my $pr = WWW::Google::PageRank->new( host => 'toolbarqueries.google.de' )
  or die $!;

my @urls = qw!
  http://perl-howto.de
  http://yahoo.de
  http://web.de
  http://example.tld
  !;

# Debug
foreach my $url (@urls) {
    print "URL: $url ";

    my ( $pagerank, $response ) = $pr->get($url);

    if ( defined $pagerank ) {
        print "PageRank: $pagerank\n";
    }
    else {
        print "Fehler: ", $response->status_line, "\n";
        warn $response->as_string, "\n";
    }
}

Das Programm liefert folgende Ausgabe (die lange XML-Ausgabe des as_string() habe ich weggelassen):

URL: http://perl-howto.de PageRank: 4
URL: http://yahoo.de PageRank: 8
URL: http://web.de PageRank: 7
URL: http://example.tld Fehler: 403 Forbidden

Siehe auch:

FLOSS-Weekly Episode 189: Interview mit Jeffrey Thalhammer - Perl::Critic

2011-11-14T21:00:00Z

Perl::Critic ist ein statischer Source Code Analyzer für Perl, der die Einhaltung der Perl Best Practices - Standards and Styles for Developing Maintainable Code, prüft.

Twit.tv hat ein Interview mit Jeffrey Thalhammer, dem Erfinder von Perl::Critic veröffentlicht.

Das Interview führt Randal Schwartz zusammen mit Aaron Newcomb.

In dem sehenswerten Video gehen die drei auf die Hintergründe und die Geschichte von Perl::Critic ein, zeigen Beispiele für die Verwendung und finden mit Perl::Critic gleich ein paar Bugs.

Enjoy!

Perl::Critic ausprobieren

Wer Perl::Critic einfach mal ausprobieren möchte, kann eine Datei mit Perl Source Code auf der Website http://www.perlcritic.org/ (Some Ways Are Better Than Others) hochladen und prüfen lassen.

Siehe auch:

Via:

Perl-News: FLOSS-Weekly: Interview mit Jeffrey Thalhammer - Perl::Critic

Carp::Always - warn und die mit stack backtrace

2011-10-25T18:50:00Z

Carp::Always - Warns and dies noisily with stack backtraces von Adriano Ferreira erleichtert das Debuggen von Perl-Programmen.

Statt mühselig den Debugger an zu werfen, wird Carp::Always einfach ohne Änderung des Programms auf der Kommandozeile aufgerufen.

$ perl -MCarp::Always programm.pl

Beispiel:

Das folgende Beispielprogramm versucht eine nicht existierende Webseite auf zu rufen.

#!/usr/bin/perl
use strict;
use warnings;

use WWW::Mechanize;

my $mech = WWW::Mechanize->new();

my $url = 'http://example.tld';

$mech->get( $url );

Das Programm erzeugt folgende Ausgabe:

Error GETing http://example.tld: Can't connect to example.tld:80 (Bad hostname 'example.tld') at mech.pl line 11

Carp::Always wird auf der Kommandozeile aufgerufen

$ /opt/perl-5.12.3/bin/perl -MCarp::Always mech.pl

und erzeugt folgenden Stack Backtrace (den ich hier ein wenig umgebrochen habe):

Error GETing http://example.tld: Can't connect to example.tld:80 (Bad
hostname) at /opt/perl-5.12.3/lib/site_perl/5.12.3/WWW/Mechanize.pm
line 2747
	WWW::Mechanize::_die('Error ', 'GET', 'ing ',
	'URI::http=SCALAR(0xa1f2db0)', ': ', 'Can\'t
	connect to example.tld:80 (Bad hostname)') called at
	/opt/perl-5.12.3/lib/site_perl/5.12.3/WWW/Mechanize.pm line 2734

	WWW::Mechanize::die('WWW::Mechanize=HASH(0xa11cf98)',
	'Error ', 'GET', 'ing ', 'URI::http=SCALAR(0xa1f2db0)', ': ',
	'Can\'t connect to example.tld:80 (Bad hostname)') called at
	/opt/perl-5.12.3/lib/site_perl/5.12.3/WWW/Mechanize.pm line 2381

	WWW::Mechanize::_update_page('WWW::Mechanize=HASH(0xa11cf98)',
	'HTTP::Request=HASH(0xa211690)', 'HTTP::Response=HASH(0xa15f480)')
	called at /opt/perl-5.12.3/lib/site_perl/5.12.3/WWW/Mechanize.pm
	line 2213

	WWW::Mechanize::request('WWW::Mechanize=HASH(0xa11cf98)',
	'HTTP::Request=HASH(0xa211690)') called at
	/opt/perl-5.12.3/lib/site_perl/5.12.3/LWP/UserAgent.pm line 411

	LWP::UserAgent::get('WWW::Mechanize=HASH(0xa11cf98)',
	'http://example.tld') called at
	/opt/perl-5.12.3/lib/site_perl/5.12.3/WWW/Mechanize.pm line 407

	WWW::Mechanize::get('WWW::Mechanize=HASH(0xa11cf98)',
	'http://example.tld') called at
	/opt/perl-5.12.3/lib/site_perl/5.12.3/WWW/Mechanize.pm line 2747

	WWW::Mechanize::_die('Error ', 'GET', 'ing ',
	'URI::http=SCALAR(0xa1f2db0)', ': ', 'Can\'t
	connect to example.tld:80 (Bad hostname)') called at
	/opt/perl-5.12.3/lib/site_perl/5.12.3/WWW/Mechanize.pm line 2734

	WWW::Mechanize::die('WWW::Mechanize=HASH(0xa11cf98)',
	'Error ', 'GET', 'ing ', 'URI::http=SCALAR(0xa1f2db0)', ': ',
	'Can\'t connect to example.tld:80 (Bad hostname)') called at
	/opt/perl-5.12.3/lib/site_perl/5.12.3/WWW/Mechanize.pm line 2381

	WWW::Mechanize::_update_page('WWW::Mechanize=HASH(0xa11cf98)',
	'HTTP::Request=HASH(0xa211690)', 'HTTP::Response=HASH(0xa15f480)')
	called at /opt/perl-5.12.3/lib/site_perl/5.12.3/WWW/Mechanize.pm
	line 2213

	WWW::Mechanize::request('WWW::Mechanize=HASH(0xa11cf98)',
	'HTTP::Request=HASH(0xa211690)') called at
	/opt/perl-5.12.3/lib/site_perl/5.12.3/LWP/UserAgent.pm line 411

	LWP::UserAgent::get('WWW::Mechanize=HASH(0xa11cf98)',
	'http://example.tld') called at
	/opt/perl-5.12.3/lib/site_perl/5.12.3/WWW/Mechanize.pm line 407

	WWW::Mechanize::get('WWW::Mechanize=HASH(0xa11cf98)',
	'http://example.tld') called at mech.pl line 11

Wem Schwarz-Weiß zu langweilig ist, kann die Ausgabe mit Carp::Always::Color aufhübschen.

$ perl -MCarp::Always::Color programm.pl

Hinweis:

Da Carp::Always eigene Signalhandler für die() und warn() installiert, funktioniert dieses Modul nicht mit Programmen oder Modulen, die bereits Signalhandler für die() und/oder warn() verwenden.

Siehe auch:

Vortragsprogramm des 13. Deutschen Perl-Workshops (19.10.2011 bis 21.10.2011) ist online

2011-09-12T19:21:39Z

Renée Bäcker hat das Vortragsprogramm des 13. Deutschen Perl-Workshops (19.10.2011 bis 21.10.2011) online gestellt.

Memory::Usage - Aktuelle Speichernutzung

2011-09-11T20:19:19Z

Memory::Usage von David O'Neill zeigt den aktuellen Speicherbedarf eines Programms aus der Sicht des Betriebssystems an. Da hierzu die Datei /proc/$pid/statm genutzt wird, funktioniert Memory::Usage derzeit nur auf Betriebssystemen, welche diese Datei zur Verfügung stellen, z.B. Linux.

Memory::Usage untergliedert die Speichernutzung wie folgt:

virtual memory size (vzs)
resident set size (rss)
shared memory size (shared)
text (aka code or exe) size (code)
data and stack size (data)

Beispiel

Im diesem Beispiel wird der Speicherverbrauch vor und nach dem Aufbau einer speicherhungrigen Datenstruktur mit record() gemessen. Anschließend wird ein Report auf den Standardfehlerkanal STDERR via dump() ausgegeben.

#!/usr/bin/perl
use strict;
use warnings;

use Memory::Usage;

my $mu = Memory::Usage->new();

my %hash = ();

# Record amount of memory used by current process
$mu->record('starting work');

# Use some memory
for ( 1 .. 10_000_000 ) {
	$hash{ $_ } = 1;
}

# Record amount in use afterwards
$mu->record('finished work');

# Spit out a report
$mu->dump();

exit();

Das Programm liefert folgende Ausgabe:

time    vsz (  diff)    rss (  diff) shared (  diff)   code (  diff)   data (  diff)
    0   5304 (  5304)   2072 (  2072)   1652 (  1652)   1244 (  1244)    692 (   692) starting work
   37  834004 ( 828700) 830784 ( 828712)   1676 (    24)   1244 (     0)  829392 ( 828700) finished work

Die Laufzeit wird in Sekunden angeben, alle Speicherangaben in Kilobytes. Memory::Usage rechnet intern pages in Kilobyte um (4 kb je page).

Siehe auch:

Talk: Ricardo Signes - Perl 5.14 for Pragmatists

2011-08-23T18:49:08Z

Ricardo Signes (RJBS) hat die lesenswerten Slides seines Vortrags Perl 5.14 for Pragmatists veröffentlicht.

Perl 5.14 for Pragmatists

View more presentations from Ricardo Signes

Alles Wesentliche auf einen Blick.

Siehe auch

Perl 5.14 parallel zu einem bestehendem Perl installieren

Call for Papers für den 13. Deutschen Perl-Workshop(19.10.2011 bis 21.10.2011)

2011-06-26T08:15:00Z

Call for Papers / Participation

Vom 19.10.2011 bis 21.10.2011 (Mittwoch bis Freitag) findet der 13. Deutsche Perl-Workshop im Haus der Jugend in Frankfurt am Main statt. Zielgruppe des Workshops sind alle ernsthaften Perl-Anwender und die, die es werden wollen.

Unser Workshop steht und fällt mit den Vorträgen. Üblicherweise sind Vorträge 5, 20 oder 40 Minuten lang. Alle Themen, die in irgendeiner Weise mit Perl oder dem Perl-Umfeld zu tun haben, können als Vorträge für den Workshop interessant sein.

Du hast im Moment nur eine vage Idee für ein Thema? Kein Problem: uns interessieren im Prinzip alle Themen, die in irgendeiner Weise mit Perl zu tun haben. Frag' im Zweifelsfall einfach früh genug bei uns (wsorga@perl-workshop.de) nach. Wir helfen gerne dabei, ein vages Thema zu konkretisieren.

Alle Vorträge werden im Plenum (120 - 150 Teilnehmer) angeboten. Zusätzlich zu den eigentlichen Vorträgen wird es zwei oder drei halbtägige Tutorials zu jeweils einem größeren Thema geben; auch hierzu sind uns Vorschläge von Referenten hochwillkommen. Konferenzsprache ist Deutsch, aber Du kannst Deinen Vortrag auch auf Englisch halten, wenn Deutsch nicht Deine Muttersprache ist.

Deinen Vorschlag schickst Du uns bitte bis spätestens Sonntag, den 14.08.2011 als Abstract. Du kannst natürlich gerne auch mehrere Themen vorschlagen. Dein Abstract sollte in rund 2000 Zeichen (das sind ca. 30 Zeilen a 72 Spalten) das Thema beschreiben, was besonders an Deinem Ansatz ist und weshalb Perl als Sprache in diesem Fall besonders nützlich ist.

Zum Einreichen eines Vorschlages, melde Dich bitte auf der Perlworkshop-Webseite an und verwende danach das Formular unter Mein Workshop / Meine Vorträge / Neuen Vortrag einreichen.

Die Zuhörer sind, dem Workshop-Charakter gemäß, in erster Linie erfahrene Perl-Anwender. Auf Grund der Räumlichkeiten haben wir aber auch Platz für weniger erfahrene Anwender. Vorträge sollten, müssen aber nicht, technisch ausgerichtet sein. Optimal wäre es, wenn wir Deinem Beitrag praktisch nutzbare Anregungen für die eigene Arbeit entnehmen könnten.

Ultrakurzvorträge (5 Minuten)

Ein Nachmittag des Workshops wird wieder für "Lighting Talks" zur Verfügung stehen. Hier können insbesondere diejenigen, die sich (noch) keinen langen Vortrag zutrauen, einen aktiven Beitrag zum Workshop leisten und ihren ersten Auftritt als Vortragende versuchen.

Ebenso ist hier Platz für Vorträge unter dem Motto "Mein liebstes Modul", in denen ein interessantes, nützliches und evtl. zu wenig bekanntes Perl-Modul kurz vorgestellt wird.

Kurzvorträge (20 Minuten)

Vortrag von 20 Minuten sowie anschliessend 5 Minuten Zeit für Fragen und Antworten. Kurzvorträge sind zum Beispiel zur Vorstellung von Projekten interessant.

Langvorträge (40 Minuten)

Vortrag von 40 Minuten sowie anschliessend 5 Minuten Zeit für Fragen und Antworten. Langvorträge sollten detailliert auf einen oder zwei besonders interessante technische Aspekte des Themas eingehen.

Tagungsband / CD

Wir produzieren zum Workshop im Rahmen unserer Möglichkeiten einen gedruckten Tagungsband sowie eine CD-ROM mit den Beiträgen aller bisherigen Workshops. Dazu benötigen wir eine schriftliche Ausarbeitung Deines Vortrags und Dein schriftliches Einverständnis für die Publikation in den Tagungsmaterialien [und im Web].

Termine

Bis Sonntag, den 14.08.2011, nehmen wir Vorschläge für Vorträge an. Bis Sonntag den 28.08.2011 wirst Du von uns eine Rückmeldung erhalten. Die schriftliche Ausarbeitung des akzeptierten Vortrags muss uns bis spätestens Freitag den 30.09.2011 vorliegen, damit er in den Tagungsband aufgenommen werden kann.

Im Zweifelsfall hilft es uns und Dir, wenn Du frühzeitig mit uns per Email (wsorga@perl-workshop.de) Kontakt aufnimmst, um Fragen zu stellen bzw. Unklarheiten zu klären.

Unverbindliche Themenvorschläge

Als Anregung (nicht als Ausschlussliste!) bieten wir hier eine Reihe von stichwortartigen Anregungen zu Themenbereichen, zu denen wir uns interessante Vorträge oder Tutorials vorstellen können:

Debugging (Nutzung vorhandener Debugging-Tools)
Testen (speziell z.B. Unit Testing, Test-First-Ansatz)
Refactoring (im Sinne von Kent Beck/Martin Fowler)
Entwurf
Dokumentation (Automatisierung/Generierung)
Codegenerierung (Code aus Spezifikationen)
Mein liebstes CPAN-Modul
Grundlagen-Vorträge zu den obigen Themen

Weitere Themen, zu denen wir uns interessante Vorträge vorstellen können (ohne Anspruch auf Vollständigkeit):

Aktuelle Web-Frameworks: Catalyst, Dancer, Mojolicious, ...
Objektorientierung: Moose, Moose::Autobox, ...
Datenbankabstraktion: DBIx::Class, Rose::DB
SPAM-Abwehr/Erkennung
Unicode
Perl-IO
Perl 6
Perl6-in-Perl5-Integration und vice versa
"wirklich große" Perl-Systeme
Releasemanagement
Vergleich von "gleichen" Softwaresystemen (Template-Engines, Wikis, XML-Engines, ...)
Verträglichkeit mit anderen Systemen
(plattformübergreifende) GUI-Programmierung
Erfahrungsberichte zum Einsatz von Perl (z.B. Inbetriebnahme grösserer Perl-Systeme (WebGUI, ...))
Grundlagen-Tutorials zu allen Perl-Themen (XML, Web, DBI, ...)

Perl@FrOSCon2011 - Call for Papers bis 22.07.2011

2011-06-19T10:15:00Z

Die Organisatoren der FrOSCon 2011 haben uns auch in diesem Jahr wieder einen Raum für einen Tag für Perl-Vorträge zur Verfügung gestellt. Am 21. August 2011 wird es also wieder Perl-Vorträge geben.

Vorträge

Insgesamt haben wir 7 Stunden für die Vorträge zur Verfügung. Die Vorträge sollten entweder 20, 40 oder 60 Minuten lang sein und logischerweise etwas mit Perl zu tun haben.

Vortragsraum

Der Raum, der uns zur Verfügung steht, fasst ca. 40 Personen und in den letzten beiden Jahren waren bei den Vorträgen zwischen 20 und 30 Leuten anwesend.

Deadlines

Bitte reicht die Vortragsvorschläge bis zum 22. Juli per E-Mail an froscon2011@perl-magazin.de ein. Bis zum 29. Juli werden wir dann ein Programm zusammenstellen und euch darüber informieren.

Der Vortragsvorschlag sollte eine kurze Zusammenfassung über den Vortragsinhalt sowie eine Längenangabe beinhalten.

Via:

Perl 5.14 parallel zu einem bestehendem Perl installieren

2011-05-23T21:20:00Z

Perl 5.14.0 ist bereits seit dem 15. Mai 2011 verfügbar. Die Neuerungen sind ausführlich in perldelta beschrieben.

Wer die neue Version einfach einmal ausprobieren möchte, kann Perl 5.14.0 aus den Sourcen parallel zu einem bestehenden Perl installieren.

Vorbereitungen: C-Compiler und Bibliotheken installieren

Um Perl kompilieren zu können, werden neben einem C-Compiler weitere Werkzeuge und Bibliotheken benötigt. Unter Ubuntu 10.04 (LTS) installiert man dazu einfach folgende Pakete:

$ sudo apt-get install build-essential
$ sudo apt-get install libdb-dev libdb4.7
$ sudo apt-get install libgdbm-dev libgdbm3

Neuere Ubuntu-Versionen verwenden libdb4.8.

Installation perl-5.14.0

Ziel: Perl 5.14.0 soll parallel zu dem bestehenden Perl 5.10.1 in das Verzeichnis /opt/perl5.14.0 installiert werden.

$ sudo mkdir /opt/perl5.14.0

$ cd /tmp/
$ wget http://search.cpan.org/CPAN/authors/id/J/JE/JESSE/perl-5.14.0.tar.gz
$ tar xzvf perl-5.14.0.tar.gz
$ cd perl-5.14.0/

$ ./Configure -des -Dprefix=/opt/perl-5.14.0 -Dusethreads
$ make
$ make test
$ sudo make install

Jetzt sollten zwei verschiedene Perl-Versionen auf dem System vorhanden sein:

$ /opt/perl-5.14.0/bin/perl -v

This is perl 5, version 14, subversion 0 (v5.14.0) built for i686-linux-thread-multi

Copyright 1987-2011, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl".  If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.

und

$ /usr/bin/perl -v

This is perl, v5.10.1 (*) built for i486-linux-gnu-thread-multi

Copyright 1987-2009, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl".  If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.

Die neue Version verwenden

Für Perl 5.14.0 muss stets der volle Pfad angegeben werden. (Die Umgebungsvariable PATH bleibt unverändert.)

Entweder in der Shebang-Zeile

#!/opt/perl-5.14.0/bin/perl
use strict;
use warnings;

oder auf der Kommandozeile:

$ /opt/perl-5.14.0/bin/perl meinprogramm.pl

CPAN Module installieren

CPAN-Module lassen sich wie gehabt per CPAN-Shell installieren.

$ /opt/perl-5.14.0/bin/cpan

cpan shell -- CPAN exploration and modules installation (v1.9600)
Enter 'h' for help.

cpan[1]> install YAML
....
Appending installation info to 
/opt/perl-5.14.0/lib/5.14.0/i686-linux-thread-multi/perllocal.pod

Leider steht noch keine aktuelle Version von ExtUtils::MakeMaker zur Verfügung. Einige XS-Module lassen sich wegen der Abhängigkeit auf cc_runtime.h nicht installieren. Abhilfe schafft die manuelle Installation des Developer-Releases von ExtUtils::MakeMaker.

$ wget http://search.cpan.org/CPAN/authors/id/M/MS/MSCHWERN/ExtUtils-MakeMaker-6.57_11.tar.gz
$ tar xzvf ExtUtils-MakeMaker-6.57_11.tar.gz
$ cd ExtUtils-MakeMaker-6.57_11
$ /opt/perl-5.14.0/bin/perl Makefile.PL
$ make
$ make test
$ sudo make install

Installation mit App-perlbrew

App-perlbrew, ist ein Werkzeug, welches die Installation und Verwendung mehrerer Perl-Versionen erheblich vereinfacht. Root-Rechte werden nicht benötigt.

$ curl -LO http://xrl.us/perlbrew
$ chmod +x perlbrew
$ ./perlbrew init
$ source ~/perl5/perlbrew/etc/bashrc
$ ./perlbrew install perl-5.14.0 -D=usethreads
....

Die neue Version verwenden

App-perlbrew verändert über den Schalter switch die Umgebungsvariable PATH

$ perlbrew switch perl-5.14.0
$ perl -v

This is perl 5, version 14, subversion 0 (v5.14.0) built for i686-linux-thread-multi

Copyright 1987-2011, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl".  If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.

$ which perl
/home/tf/perl5/perlbrew/perls/perl-5.14.0/bin/perl

Dank der Pfadmanipulation wird nun das passende Perl auf der Kommandozeile gefunden.

$ perl  meinprogramm.pl

Im Programm selbst bietet sich folgende Shebang-Zeile an:

#!/usr/bin/env perl
use strict;
use warnings;

print "Perl-Version: $]\n";

CPAN Module installieren

Das passende Kommandozeilentool cpan liegt im Pfad.

$ perlbrew switch perl-5.14.0
$ cpan
cpan[1]> install YAML
....
Appending installation info to 
/home/tf/perl5/perlbrew/perls/perl-5.14.0/lib/5.14.0/i686-linux-thread-multi/perllocal.pod

Siehe auch

CPAN: Perl 5.14.0
Perl News: Perl 5.14.0 veröffentlicht - IPv6-Support verbessert uvm.
Heise Developer: http://www.heise.de/developer/meldung/Perl-5-14-Fleissrelease-fuer-einen-sanften-Wandel-1225865.html
App::perlbrew - Mehrere Perl-Installationen im Heimatverzeichnis
CPAN: App-perlbrew
Perldoc: perlrun

Devel::Modlist - welche Module verwendet ein Programm?

2011-03-28T18:30:00Z

Devel::Modlist von Randy J Ray ermittelt und zeigt die Module, die von einem Perl-Programm genutzt werden, übersichtlich an.

Verwendete Module auflisten

Devel::Modlist wird auf der Kommandozeile aufgerufen.

$ perl -d:Modlist Programm.pl

Angewandt auf ein einfaches Beispielprogramm

#!/usr/bin/perl
use strict;
use warnings;

use LWP;

liefert Devel::Modlist folgende Ausgabe auf STDERR:

AutoLoader             5.71
Carp                   1.17
Config                     
Config_git.pl              
Config_heavy.pl            
DynaLoader             1.10
Exporter             5.64_01
Exporter::Heavy      5.64_01
Fcntl                  1.06
File::Spec             3.33
File::Spec::Unix       3.33
FileHandle             2.02
HTTP::Date             6.00
HTTP::Headers         5.835
HTTP::Message         5.837
HTTP::Request         5.827
HTTP::Response        5.836
HTTP::Status          5.817
IO                   1.25_02
IO::File               1.14
IO::Handle             1.28
IO::Seekable            1.1
LWP                   5.837
LWP::MemberMixin           
LWP::Protocol         5.829
LWP::UserAgent        5.835
SelectSaver            1.02
Storable               2.25
Symbol                 1.07
Time::Local          1.2000
URI                    1.58
URI::Escape            3.30
XSLoader               0.10
constant               1.20
overload               1.10
vars                   1.01
warnings               1.09
warnings::register     1.01

Optionen

Über Optionen lässt sich das Verhalten von Devel::Modlist steuern. Die allgemeine Syntax:

 perl -d:Modlist=option1[,option2,...]

stdout

Diese Option schickt die Ausgabe von Devel::Modlist zur Standardausgabe STDOUT

$ perl -d:Modlist=stdout Programm.pl

nocore

Bei Verwendung dieser Option werden die verwendeten Core-Module nicht angezeigt:

$ perl -d:Modlist=stdout,nocore Programm.pl

Angewandt auf ein obiges Beispielprogramm, liefert Devel::Modlist folgende Ausgabe

HTTP::Date             6.00
HTTP::Headers         5.835
HTTP::Message         5.837
HTTP::Request         5.827
HTTP::Response        5.836
HTTP::Status          5.817
LWP                   5.837
LWP::MemberMixin           
LWP::Protocol         5.829
LWP::UserAgent        5.835
URI                    1.58
URI::Escape            3.30

cpan, cpandist

cpan reduziert die Liste auf Module, die über das Modul CPAN installiert wurden.

perl -d:Modlist=stdout,cpan Programm.pl

Angewandt auf ein obiges Beispielprogramm, liefert Devel::Modlist folgende Ausgabe

AutoLoader             5.71
Carp                   1.17
Config                     
Config_git.pl              
Config_heavy.pl            
Exporter             5.64_01
File::Spec             3.33
HTTP::Date             6.00
HTTP::Headers         5.835
IO                   1.25_02
LWP                   5.837
Storable               2.25
Time::Local          1.2000
URI                    1.58
XSLoader               0.10
constant               1.20

cpandist funktioniert wie cpan, gibt allerdings den Dateinamen statt des Modulnamen aus:

perl -d:Modlist=stdout,cpandist Programm.pl

Angewandt auf ein obiges Beispielprogramm, liefert Devel::Modlist folgende Ausgabe

S/SM/SMUELLER/AutoLoader-5.71.tar.gz
J/JE/JESSE/perl-5.13.9.tar.gz
Contact Author The Perl5 Porters Mailing List 
/opt/perl5.12.2/lib/5.12.2/i686-linux-thread-multi/Config_git.pl
/opt/perl5.12.2/lib/5.12.2/i686-linux-thread-multi/Config_heavy.pl
F/FE/FERREIRA/Exporter-5.63.tar.gz
S/SM/SMUELLER/PathTools-3.33.tar.gz
G/GA/GAAS/HTTP-Date-6.00.tar.gz
G/GA/GAAS/HTTP-Message-6.01.tar.gz
G/GB/GBARR/IO-1.25.tar.gz
G/GA/GAAS/libwww-perl-6.01.tar.gz
A/AM/AMS/Storable-2.25.tar.gz
F/FL/FLORA/Time-Local-1.2000.tar.gz
G/GA/GAAS/URI-1.58.tar.gz
S/SA/SAPER/XSLoader-0.10.tar.gz
S/SA/SAPER/constant-1.19.tar.gz

stop

Die Option stop lädt das Programm und führt es nicht aus. Die erst zur Laufzeit mit require oder eval geladenen Module können nicht ermittelt werden.

zerodefault, noversion

Falls die Versionsnummmer eines Moduls nicht ermittelt werden kann, setzt zerodefault diese einfach auf 0, noversion unterdrückt die Ausgabe der Versionnummern generell.

Siehe auch

Potenzmengen berechnen mit List::PowerSet

2011-03-18T14:50:00Z

Potenzmengen (engl. Powerset) lassen sich mit dem CPAN-Modul List::PowerSet von Nik Clayton einfach berechnen.

powerset() und powerset_lazy()

List::PowerSet stellt zwei Funktionen, powerset() und powerset_lazy(), bereit.

powerset()

powerset() nimmt eine Liste (Menge) entgegen und gibt eine Referenz auf eine Liste von Referenzen auf Arrays zurück - jede Array Referenz enthält eine Teilmenge.

Beispiel:

#!/usr/bin/perl 
use strict;
use warnings;

use List::PowerSet qw/powerset/;

my @input_list = qw/ x y z /;

my $powerset = powerset(@input_list);

foreach my $ps (@$powerset) {
    print "[ @$ps ]\n";
}

Das Programm erzeugt folgende Ausgabe:

[ x y z ]
[ y z ]
[ x z ]
[ z ]
[ x y ]
[ y ]
[ x ]
[  ]

powerset_lazy()

powerset_lazy() nimmt, wie powerset(), eine Liste entgegen und liefert eine Referenz auf eine Subroutine zurück, die als Iterator verwendet werden kann. Bei jedem Aufruf des Iterators wird eine weitere Teilmenge als Referenz auf einen Array zurückgegeben.

powerset_lazy() bietet sich vor allem bei umfangreichen Listen an. Im Gegensatz zu powerset() werden nicht alle Teilmengen auf ein Mal berechnet, sondern lazy evaluiert.

Beispiel:

#!/usr/bin/perl 
use strict;
use warnings;

use List::PowerSet qw/powerset_lazy/;

my @input_list = qw/ x y z /;

my $ps_iterator = powerset_lazy( @input_list );

while ( my $set = $ps_iterator->() ) {

    # $set is the next powerset entry
    print "[ @$set ]\n";
}

Das Programm erzeugt folgende Ausgabe:

[ x y z ]
[ y z ]
[ x z ]
[ z ]
[ x y ]
[ y ]
[ x ]
[  ]

Siehe auch

List::PowerSet
Data::PowerSet
Data::PowerSet::Hash
Higher-Order Perl
Famous Perl One-Liners Explained, Part III: Calculations
perlreftut - Mark's very short tutorial about references
perllol - Manipulating Arrays of Arrays in Perl
Wikipedia: Potenzmenge
Mathepedia: Potenzmenge
mathe-lexikon.at: Potenzmenge

File::Find::Duplicates - mehrfach vorhandene Dateien finden

2011-02-05T11:45:00Z

File::Find::Duplicates von Tony Bowden durchsucht Verzeichnisse nach mehrfach vorhandenen Dateien.

Vorgehensweise

Zunächst erstellt File::Find::Duplicates Listen von Dateien identischer Größe.

Nur für Dateien der selben Größe wird eine MD5 Prüfsumme erstellt.

Dateien gelten als identisch, wenn sowohl Größe als auch MD5-Prüfsumme übereinstimmen.

Diese Vorgehensweise erzielt eine hohe Geschwindigkeit und nimmt dafür eine sehr geringe Wahrscheinlichkeit für "False Positives" in Kauf.

Beispiel

Dieses einfache Beispielprogramm nimmt eine Liste von Verzeichnissen als Kommandozeilenargumente entgegen, durchsucht diese rekursiv und gibt die gefunden Duplikate (Name,Größe, MD5) aus.

find_duplicate_files liefert im Erfolgsfall eine Liste von Objekten zurück, welche die Methoden size(), md5() und files() zur Verfügung stellen.

Im Misserfolgsfall (keine Duplikate) wird eine leere Liste zurückgegeben.

#!/usr/bin/perl
use strict;
use warnings;

use File::Find::Duplicates;

my @dirs = @ARGV;

# Basic Sanity Check
usage() unless scalar @ARGV > 1;

my @dupesets = find_duplicate_files(@dirs);

foreach my $dupeset (@dupesets) {
	print "Duplicate files: ", join(", ", @{ $dupeset->files } ), "\n";
        print "MD5:  ", $dupeset->md5, "\n";
        print "Size: ", $dupeset->size, " Bytes\n";
	print "\n";
}

sub usage {
    warn "Usage: $0 DIR1 DIR2\n";
    exit;
}

Das Programm erzeugt z.B. folgende Ausgabe:

perl basic.pl . /tmp/
Duplicate files: ./basic.pl, /tmp/basic.pl
MD5:  9bc2302a67edcd34e3f3cd44f6d5284b
Size: 465 Bytes