[NEM] Rename af mange filer

- - - - - - - - - - - - - - - - - - - - - - - - (")_(")_.-""-., - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - ' . . '; -._, ')_ - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - -( o_, )' __)_'-._)- - - - - - - - - - - - - - - - - - - - - - - - - - - -

- - - - - - - - - - - - - - - - - - - - - - - - (")_(")_.-""-., - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - ' . . '; -._, ')_ - - - - -
- - - - - - - - - - - - - - - - - - - - - - - -( o_, )' __)_'-._)- - - - -

HELT DØD TIL DET DER :O)

sjove?

lav det i perl ,eller i shell code

UnoCom

sowrdcat >> neeej hvor er du dygtig!!!

killifish>> http://alfalinux.sourceforge.net/mrename.php3

space, det ser godt nok ud det der, men er det ikke overkill? Jeg skal kun bruge det den her ene gang.

Man må kunne gøre det med en enkelt kommando uden at skulle hente et script.

killifish >> det kan du vel ha ret i - Er desvære for lang tid siden jeg har leget med shell scripts til at jeg kan give dig et færdig eks.

Vil du have det i Perl ?

swordcat> det er meget flot, men det hører ikke helt hjemme her, bare husk det til en anden gang.

ztyxx/CoAdmin

Perl er helt fint for mig :o)

ztyxx-> YES forstået master.......gør det aldrig mer´ !!!

*LOL* swordcat

#!/usr/bin/perl

# Omdøber  TN_cifre.JPG  til cifre.jpg

$dir = "/sti/til/dit/katalog";  # uden en "/" til sidst

opendir($d,$dir);
L: while ($f=readdir($d)) {
  next L if ($f=~/^\.{1,2}$/);
  print "$f\n";
  if ($f=~/^TN_([0-9]+)\.JPG$/i) {
    rename("$dir/$f","$dir/$1.jpg");
  }
}
closedir($d);

Jeg får en parse error (eller hvad man nu vil kalde den på følgende linje

opendir($d,$dir);

Ovenfor har jeg sat $dir til:

$dir = "/home/ahpe01/hi0111/billeder/roenbjerg/1/smaa/test";

Biblioteket eksisterer og er fyldt med billederne.

hvad siger den helt præcist ? Og må jeg se en smule mere kode?

ahpe01@hercules:~> perl rn.pl
Bad symbol for filehandle at rn.pl line 4.

----------------

ahpe01@hercules:~> cat rn.pl
#!/dist/bin/perl
# Omdøber TN_cifre.JPG til cifre.jpg
$dir = "/home/ahpe01/hi0111/billeder/roenbjerg/1/smaa/test";
opendir($d,$dir);
L: while ($f=readdir($d)) {
next L if ($f=~/^\.{1,2}$/);
print "$f\n";
if ($f=~/^TN_([0-9]+)\.JPG$/i) {
  rename("$dir/$f","$dir/$1.jpg");
}
}
closedir($d);
ahpe01@hercules:~>

-------------------

ahpe01@hercules:~> ls /home/ahpe01/hi0111/billeder/roenbjerg/1/smaa/test
TN_1001.JPG  TN_1013.JPG  TN_1025.JPG  TN_1037.JPG  TN_1049.JPG  TN_1061.JPG
TN_1002.JPG  TN_1014.JPG  TN_1026.JPG  TN_1038.JPG  TN_1050.JPG  TN_1062.JPG
TN_1003.JPG  TN_1015.JPG  TN_1027.JPG  TN_1039.JPG  TN_1051.JPG  TN_1063.JPG
TN_1004.JPG  TN_1016.JPG  TN_1028.JPG  TN_1040.JPG  TN_1052.JPG  TN_1064.JPG
TN_1005.JPG  TN_1017.JPG  TN_1029.JPG  TN_1041.JPG  TN_1053.JPG  TN_1065.JPG
TN_1006.JPG  TN_1018.JPG  TN_1030.JPG  TN_1042.JPG  TN_1054.JPG  TN_1066.JPG
TN_1007.JPG  TN_1019.JPG  TN_1031.JPG  TN_1043.JPG  TN_1055.JPG  TN_1067.JPG
TN_1008.JPG  TN_1020.JPG  TN_1032.JPG  TN_1044.JPG  TN_1056.JPG  TN_1068.JPG
TN_1009.JPG  TN_1021.JPG  TN_1033.JPG  TN_1045.JPG  TN_1057.JPG
TN_1010.JPG  TN_1022.JPG  TN_1034.JPG  TN_1046.JPG  TN_1058.JPG
TN_1011.JPG  TN_1023.JPG  TN_1035.JPG  TN_1047.JPG  TN_1059.JPG
TN_1012.JPG  TN_1024.JPG  TN_1036.JPG  TN_1048.JPG  TN_1060.JPG
ahpe01@hercules:~>

Vi har vist forskellige Perl versioner. Intet problem.
Du erstatter blot $d med D de 3-4 steder det står

Jeg får stadig den samme fejl:
ahpe01@hercules:~> perl rn.pl
Bad symbol for filehandle at rn.pl line 4.
ahpe01@hercules:~> cat rn.pl
#!/dist/bin/perl
# Omdøber TN_cifre.JPG til cifre.jpg
$dir = "/home/ahpe01/hi0111/billeder/roenbjerg/1/smaa/test";
opendir($D,$dir);
L: while ($f=readdir($D)) {
next L if ($f=~/^\.{1,2}$/);
print "$f\n";
if ($f=~/^TN_([0-9]+)\.JPG$/i) {
  rename("$dir/$f","$dir/$1.jpg");
}
}
closedir($D);
ahpe01@hercules:~> perl -v

This is perl, version 5.005_03 built for sun4-solaris
[SNIP resten]

ikke $D - bare D

simpelthen smukt!

Den udvidede version omdøber også i alle underkataloger :)