#!/usr/bin/ruby

=begin
  rename.rb

  (c) Derechos de autor 2001 Esteban Manchado Velázquez

  Programa para renombrar ficheros por sustituciones de Ruby, como el programa
  en Perl del mismo nombre, del CD de O'Reilly de UNIX Power Tools.

  Sintaxis:
    $ rename regex/sustitucion fichero1 fichero2 fichero3

  Ejemplo:
    $ rename 'JPG|jpeg/jpg' *.JPG *.jpeg
=end

regexp = ARGV.shift
subst  = regexp.split ('/')[1]
regexp = regexp.split ('/')[0]

ARGV.each do |f|
   nuevo = f.sub (regexp, subst)
   if (f == nuevo)
      puts "Atención: '#{f}' se queda con el mismo nombre tras renombrar"
   else
      begin
         File.rename (f, nuevo)
      rescue
         $stderr.puts "No se puede mover el fichero #{f}: " + $!
      end
   end
end