Søger script

http://www.webmasteren.dk/eksternefiler/Renamer.exe

Sorry - så ikke det var perl. Trykkede fra forsiden ;-)

Det er okay skal bare kunne virke under linux

$a=`ls`;
@files=split(/\n/,$a);
foreach $file (@files)
{
$file2=lc($file);
unless ($file eq $file2)
{
system "mv $file $file2";
}
}

Den gør ikke helt det du beder om, den dør alle bogstaverne til små, men måske er det uden forskel i dit tilfælde?

Ellers må vi lige rette det til

scriptet lægges i det pågældende dir og køres fra kommandolinien med "perl scriptnavn.pl"

Denne tager kunn forbogstavet, gør altså præcis hvad du beder om
$a=`ls`;
@files=split(/\n/,$a);
foreach $file (@files)
{
$firstletter=substr($file,0,1);

$lowercasefirstletter=lc($firstletter);

$file2=$file;
$file2 =~ s/$firstletter/$lowercasefirstletter/g;


unless ($file eq $file2)
{
system "mv $file $file2";
}
}

hmm.. Der er nogle ting du ikke har taget højde for.
Feks. vil det script rette alle forekomster i et filnavn... F.eks. vil KanKun.exe blive rename til kankun.exe, hvorimod KanIkke.exe vil blive rename til kanIkke.exe, hvilket var det der blev bedt om.

Og så checker du ikke om der mon skulle være en fil der allerede skulle hedde det.

Du mangler også at escape dine filnavne. Det vil give store problemer hvis der er whitespace i et filnavn...

Nedenstående skulle virke. Må være ærlig at sige jeg ikke har testet det, men det skulle nok gå.



@files=`ls`;
foreach $file (@files) {
  $firstletter = substr($file,0,1);

  $newfile = substr($file,0,1,lc($firstletter));

  unless ($file eq $newfile) {
    system("mv \"$file\" \"$file2\"") unless (-e "$newfile");
  }
}

$newfile = substr($file,0,1,lc($firstletter));

istedet for den længere omskrivning, kan du bruge lcfirst til at sætte det første bogstav til småt.

http://www.perldoc.com/perl5.6/pod/func/lcfirst.html