pixelchaos.net » Perl

Happy 20th, Perl!

jcl — Tue, 18 Dec 2007 15:41:52 +0000

Today marks the end of Perl’s twentieth year of existence. Yay!

flac2mp3: batch flac to mp3 converter

jcl — Sun, 04 Nov 2007 19:00:30 +0000

Here is a quick script I whipped together to convert flac files to mp3. Its nothing fancy but it does the job. Doesnt require anything but flac and lame.

I was going to include a bunch of fancy id3 tag stuff but to be honest most of the id3 perl libraries out there arent that great to use. I may do something like that in the future though. Since I use quod libet which has a fantastic tagger built in, it isnt really an issue for me.

#!/usr/bin/perl


$lame_opt = "--preset extreme";
foreach (@ARGV) {

if (!($_ =~ /\.flac$/)) {

print "Skipping $_\n";

next;

}

`flac -d "$_"`; $_ =~ s/\.flac$/.wav/; $target = $_; $target =~ s/\.wav$/.mp3/; `lame $lame_opt "$_" "$target"`; `rm "$_"`; }

wipe_tapes.pl

jcl — Thu, 21 Jun 2007 19:35:14 +0000

Here’s a little script I whipped up in perl to sequentially load and erase all the tapes in an auto loader. Hopefully it is of some use to others.

payday loans low interest unsecured personal loans apply online multiple lenders personal loans no fax no call payday loans no fax cash til payday loans cash advances online fast payday loans no credit check loans bad credit personal loans no credit check no turndown personal loans cash advance service payday loans free bad credit personal loans fast cash bad credit personal loans instant bad credit personal loans bad credit payday loans bad credit no fax payday loans instant no faxing payday loans apply online for personal loans hard money lenders for personal loans bad credit high risk unsecured personal loans no credit check same day personal loans bad credit debt personal loans

#!/usr/bin/perl

$num_slots = “20″;
$changer_device = “/dev/changer”;
$tape_device = “/dev/st0″;
$settle_time = “120″;

while ($_ < $num_slots) {

$_ += 1;

print “Loading tape from slot $_…\n”;
`mtx -f $changer_device load $_`;

print “Letting tape drive settle…\n”;
`sleep $settle_time`;

print “Rewinding tape…\n”;
`mt -f $tape_device rewind`;

print “Writing EOF to tape…\n”;
`mt -f $tape_device weof`;

print “Unloading tape…\n”;
`mtx -f $changer_device unload $_`;

print “Done!\n———-\n”;

}