#!/usr/bin/perl -w
#
# Name: cut_sh_ext_-multi_files
# renames multiple files directly, caution !
# 
# by Gerd Hoffmann (C)
#
# 090727

use strict;

my ( $name, $newname, @dirlist ) ;
my $dir = "./"  ;
my $pattern = ".sh";

opendir(DIR, $dir) || die "kein $dir?: $!";
while ( $name = readdir(DIR) ) { # skalarer Kontext, einer pro Schleifendurchlauf
      if( $name =~ /^(.*)\.sh$/) {
         $newname = $1;
         rename($name,$newname);
#         print "mv $name $newname\n";
      }
}