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

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; # Don’t rename ourself rename($_, lc($_)); } close(FIND); Einfach mit chmod u+x ausführbar machen und mit [...]