Ola,
Posso preocurar algo para voce mas,,,,,,, fazer e dificil
pois tambem nao "saco" nada de perl , este script eu
tirei de um livro velho que veio quando eu comprei
o CL3.0
----- Original Message -----
From: "Sir Hamacker" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, January 11, 2002 11:36 AM
Subject: Re: (linux-br) script para tornar todos arquivos minusculos
Ol� Bunhara, realmente seu script funcionou nota 10.
Por�m ser� que voce conseguia adapta-lo para trocar letras
acentuadas retirando a acentuacao ?
� que nao entendo nada de perl!
Eu tava tantando criar um script que me facilitasse as coisas, veja
como t� ficando :
echo "renomeando arquivos e diretorios para minusculo..." >test
for x in `ls -Q --color=never --quoting-style=shell |tr ' '
'?'` <= trocando espaco por '?' para nao atrabalhar o laco for
do
if [ -f $x -a -d $x ]; then
continue
fi
x=`echo $x | tr '?' '[:space:]'` <=== ainda nao
consegui desfazer a troca de ? por espaco novamente
echo $x
convert=`echo $x | tr
'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz��
����������� |+=)(*&^%#@"'
'abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzaaa
aeeeiooouu____________"'`
if [ $convert != $x ]; then
echo "mv -i ""$x"" ""$convert""" >>test
#mv -i $x $convert
fi
done
echo "pronto, arquivos renomeados!"
exit
Mas ainda t� faltando algumas coisinhas, como torna-lo recursivo,
assim que terminar eu posto na lista.
Em 11/01/2002 'as 08:21 Brunhara escreveu :
>Ola,
>
>nunca usei isto em muitos arquivos, mas no CL6.0
>tive que usar em um diretorio, de um prog de folha
>e deu blz..
>
>
>perl -e 'for (@ARGV) { rename $_, lc($_) unless -e lc($_); }' *
>
>
>
Assinantes em 13/01/2002: 2218
Mensagens recebidas desde 07/01/1999: 150149
Historico e [des]cadastramento: http://linux-br.conectiva.com.br
Assuntos administrativos e problemas com a lista:
mailto:[EMAIL PROTECTED]
