Cambiando formato con un script de perl

Mis scripts chaquetos que a nadie le importan, pero que me sirven para sacar tareas sencillas y repetitivas y que a alguien mas le puede ser útil:

#!/usr/bin/perl

use strict;

foreach (< *.tga >) {
my ($line) = $_;
$line =~ m/(\w+_\d+_\d+)/; #WoWScrnShot_121006_220926
system "/usr/bin/convert $_ $1.png";
printf ("$_ --> $1.png\n");
}

Se puede hacer mucho mas elegante y que tome parámetros especificados en la línea de comando y todo, pero nah, así es como lo necesito. Que hace? convierte todas las imágenes de un directorio determinado en formato .tga a .png.

Publicar un comentario

Entradas populares de este blog

Cómo tener un cultivo de búlgaros (Kéfir) por años

Mientras tanto, en internet... MUJERES CHINGONAS