From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <maga@replay.ru>
From: Sergey Degtyaryov <maga@replay.ru>
To: mandrake-russian@altlinux.ru
Subject: Re: [mdk-re] =?KOI8-R?B?8M/Nz8fJ1MUg0yDSxccg19nSwdbFzsnFzS4uLi4=?=
Message-Id: <20020118001807.2b073cbe.maga@replay.ru>
In-Reply-To: <20020117175542.341C8302A6D@pif.b5.mephi.ru>
References: <20020117200435.327be1f3.kosha@kp.ru>
	<20020117173459.C4C69302A54@pif.b5.mephi.ru>
	<20020117204108.778b8c84.kosha@kp.ru>
	<20020117175542.341C8302A6D@pif.b5.mephi.ru>
Organization: Sweet home
X-Mailer: Sylpheed version 0.6.6 (GTK+ 1.2.10; i586-alt-linux)
Mime-Version: 1.0
Content-Type: text/plain; charset=KOI8-R
Content-Transfer-Encoding: 8bit
Sender: mandrake-russian-admin@altlinux.ru
Errors-To: mandrake-russian-admin@altlinux.ru
X-BeenThere: mandrake-russian@altlinux.ru
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: mandrake-russian@altlinux.ru
List-Help: <mailto:mandrake-russian-request@altlinux.ru?subject=help>
List-Post: <mailto:mandrake-russian@altlinux.ru>
List-Subscribe: <http://altlinux.ru/mailman/listinfo/mandrake-russian>,
	<mailto:mandrake-russian-request@altlinux.ru?subject=subscribe>
List-Id: Linux-Mandrake RE / ALT Linux discussion list <mandrake-russian.altlinux.ru>
List-Unsubscribe: <http://altlinux.ru/mailman/listinfo/mandrake-russian>,
	<mailto:mandrake-russian-request@altlinux.ru?subject=unsubscribe>
List-Archive: <http://altlinux.ru/pipermail/mandrake-russian/>
Date: Fri Jan 18 00:20:01 2002
X-Original-Date: Fri, 18 Jan 2002 00:18:07 +0300
Archived-At: <http://lore.altlinux.org/community/20020118001807.2b073cbe.maga@replay.ru/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

Доброго времени суток, Sergei.
Thu, 17 Jan 2002 20:55:40 +0300 Вы сказали буквально следующее:

S> #!/usr/bin/perl
S> 
S> open (LIST,"ls -1A|");
S> 
S> while ($file=<LIST>)
S> {
S> 	chomp $file;
S> 	next if ($file=~/^\.\.?$/);
S> 	$file1="\L\u$file";
S> 	print "$file -> $file1\n";# можно выкинуть
S> 	rename $file,$file1;
S> }
S> close (LIST);

Ну, "это же неаккуратненько" (с)  =)

#!/usr/bin/perl

for (qx/ls -a/) {
chomp; rename $_, ucfirst;
}
---
Ciao, maga, maga@anykey.spb.ru
--