hihn.org » Perl

audacious Plugin für XChat

rh — Fri, 27 Feb 2009 14:09:54 +0000

Plugin für XChat um den aktuellen Titel in audacious anzuzeigen:

Download

Das Ausgabeformat entspricht dem Format der audacious Playlist.

Aufruf erfolg aus XChat raus mit

/audacious

Exaile Plugin für XChat

rh — Thu, 05 Feb 2009 13:52:27 +0000

Plugin für XChat um den aktuellen Titel (mit Interpret und Album) aus Exaile anzuzeigen:

Download

Die Ausgabe sieht so aus:

* vesperlynd is listening to 'Bob Dylan - 4Th Time Around' from 'Blonde On Blonde'

Aufruf erfolg aus XChat raus mit

/exaile

Eigene foreach-Variable in perl

rh — Sat, 14 Jun 2008 20:58:57 +0000

Falls man in einer foreach-Schleife mit einer anderen foreach-Schleife arbeiten will dann kann man nicht mit $_ arbeiten wenn man die Variable der äusseren foreach-Schleife in der inneren benutzen möchte. Deshalb kann man sich eigene Variablen deklarieren:

#!/usr/bin/perl
my $var;
my $var2;
my @liste = qw( asdf jkl 1 2 3 4.56 );
my @liste2 = qw( a b c d e f g );
foreach $var ( @liste ) {
	foreach $var2 ( @liste2 ) {
		print $var."\n";
	}
}

Kleinschreibung per perl-script

rh — Sun, 10 Feb 2008 20:49:22 +0000

Hier ein perl-script[1], das alle Dateien in einem Ordner (inklusive Unterordner) in Kleinbuchstaben umwandelt:

#!/usr/bin/perl -w
use strict;

# Open 'find' process to list files recursively with paths
open(FIND, "find |");
while() {
        chomp;
        next if $_ eq $0;        # Don't rename ourself
        rename($_, lc($_));
        }
close(FIND);

Einfach mit chmod u+x ausführbar machen und mit ./foo.pl starten.

Es lief auf meinem Debian-Rechner problemlos, allerdings konnte ich es nicht auf meinem OpenBSD-Server starten. Die Ursache war find – im Gegensatz zu Linux muss man unter OpenBSD noch ein Verzeichnis angeben, zB “.” für das aktuelle.
So lief es auf OpenBSD:

#!/usr/bin/perl -w
use strict;

# Open 'find' process to list files recursively with paths
open(FIND, "find . |");
while() {
        chomp;
        next if $_ eq $0;        # Don't rename ourself
        rename($_, lc($_));
        }
close(FIND);

[1] http://webxadmin.free.fr/article/shell-rename-all-files-in-subdirectories-to-lowe-135.php