Archives for posts tagged ‘Perl’

audacious Plugin für XChat

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

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

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

Kleinschreibung per perl-script

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; [...]