---

Jeg har i tidernes morgen set et lille script i denne NG, som
omdanner filnavne fra upper case til lower case.

Er der nogen, som ligger inde med et sådan script, eller som
hurtigt lige kan brygge et sammen?

På forhånd tak.
--
Frederik Dannemare, Linux-World Danmark, www.linux-world.dk

---

Frederik Dannemare <frederik@dannemare.dk> writes:

> Jeg har i tidernes morgen set et lille script i denne NG, som
> omdanner filnavne fra upper case til lower case.
>
> Er der nogen, som ligger inde med et sådan script, eller som
> hurtigt lige kan brygge et sammen?
>

I bash burde du kunne goere:

for i in *
do
x = `echo $i | tr '[A-Z]' '[a-z]'`
if [ $i != $x ]
then
mv $i $x
fi
done


> På forhånd tak.
> --
> Frederik Dannemare, Linux-World Danmark, www.linux-world.dk
>

--
Jakob Hilarius
http://rrk.kollegienet.dk/~jhsn

---

Jakob H skrev:

> x = `echo $i | tr '[A-Z]' '[a-z]'`

Der må ikke være luft omkring '=', og jeg ville nok også foretrække at
bruge '[:upper:]' og '[:lower:]' fremfor '[A-Z]' og '[a-z]', altså:

x=$(echo $i | tr '[:upper:]' '[:lower:]')


// Klaus

--
><>°

---

Frederik Dannemare wrote:

> Jeg har i tidernes morgen set et lille script i denne NG, som
> omdanner filnavne fra upper case til lower case.
>
> Er der nogen, som ligger inde med et sådan script, eller som
> hurtigt lige kan brygge et sammen?

>

På trods af de eller nydelige løsninger vil jeg lige sige at det altså
langt fra er nødvendigt med et script:

ls -1 | perl -ne 'chomp;qx(mv \"$_\" \L\"$_\")'

ls -1 genererer en liste af fil/dir navne, der renames af perl via mv.
"\L" betyder skift til alle uppercase til lowercase. Brug "\U" for skift
til uppercase. Virker iøvrigt osse for filnavne med mellemrum og "lidt"
sære karakterer. Meget
sære karakterer så som "&?[]" er dog stadig besværlige og kræver at man
bruger perl's interne rename funktion.

Pseudo rekursiv:
ls -1 | perl -ne 'chomp;qx(mv \"$_\" \L\"$_\")' && \
ls -1 * | perl -ne 'chomp;qx(mv \"$_\" \L\"$_\")' && \
ls -1 */* | perl -ne 'chomp;qx(mv \"$_\" \L\"$_\")' && \
ls -1 */*/* | perl -ne 'chomp;qx(mv \"$_\" \L\"$_\")'
....etc.

Morten S. Nielsen

-- Measure with a micrometer. Mark with chalk. Cut with an axe.