#!/usr/bin/perl
# ****************************************************************************
# *                                                                          *
# *   Script:  "@(#)ren.pl 1.00 25.01.94"               Version:  perl4.036  *
# *                                                                          *
# *   Beschreibung:  ren  -  (rename files)  -  Umbennen der in der Kom-     *
# *                  mandozeile angegebenen Dateien nach der in 'perlexpr'   *
# *                  bezeichneten Regel (Reguläre Ausdrücke). Falls keine    *
# *                  Dateien angegeben wurden, liest rn die Namen zeilen-    *
# *                  weise aus STDIN (1 Namen pro Zeile).                    *
# *                                                                          *
# *   Aufruf:   ren 'perlexpr'[ file..]                                      *
# *             z.B. perlexpr:  s/regalt/regneu         substitute           *
# *                            tr/chralt/chrneu[cds]    translate            *
# *                                                                          *
# ****************************************************************************


($op = shift) || die "rn: rename files\nusage: rn_'perlexpr'[file..]\n";

if (!@ARGV)
{
  @ARGV = <STDIN>;
  chop(@ARGV);
}

for (@ARGV)
{
  $file = $_;
  eval $op;
  die $@ if $@;
  if ($file ne $_)
  {
    rename($file, $_) || warn "rn: can't rename $file\n";
  }
}
