From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <evg@altlinux.ru>
To: ALT Linux Community <community@lists.altlinux.org>
References: <200610261946.37624.ashen@nsrz.ru>
	<4540FE05.3080502@bungarus.info> <20061026203314.GF32576@osdn.org.ua>
	<200610270919.55810.ashen@nsrz.ru>
From: Evgenii Terechkov <evg@altlinux.ru>
Organization: ALT Linux Team
Date: Fri, 27 Oct 2006 14:26:21 +0800
In-Reply-To: <200610270919.55810.ashen@nsrz.ru> (=?koi8-r?B?+8XOw8XXIOHM?=
	=?koi8-r?B?xcvTxcog98zBxMnNydLP18neJ3M=?= message of "Fri, 27 Oct 2006
	09:19:49 +0400")
Message-ID: <m3u01qe0ky.fsf@evg.krastel.ru>
User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (gnu/linux)
MIME-Version: 1.0
Content-Type: text/plain; charset=koi8-r
Content-Transfer-Encoding: 8bit
X-Virus-Scanned: ClamAV using ClamSMTP
Subject: Re: [Comm] =?koi8-r?b?8MXSxcnNzsXOz9fBzsnFIMbByszP1y4gW0pUXQ==?=
X-BeenThere: community@lists.altlinux.org
X-Mailman-Version: 2.1.9rc1
Precedence: list
Reply-To: ALT Linux Community <community@lists.altlinux.org>
List-Id: ALT Linux Community <community.lists.altlinux.org>
List-Unsubscribe: <https://lists.altlinux.org/mailman/listinfo/community>,
	<mailto:community-request@lists.altlinux.org?subject=unsubscribe>
List-Archive: <http://lists.altlinux.org/pipermail/community>
List-Post: <mailto:community@lists.altlinux.org>
List-Help: <mailto:community-request@lists.altlinux.org?subject=help>
List-Subscribe: <https://lists.altlinux.org/mailman/listinfo/community>,
	<mailto:community-request@lists.altlinux.org?subject=subscribe>
X-List-Received-Date: Fri, 27 Oct 2006 06:26:51 -0000
Archived-At: <http://lore.altlinux.org/community/m3u01qe0ky.fsf@evg.krastel.ru/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

Шенцев Алексей Владимирович пишет:

>> > А вообще тред начался с замены пробелов на подчеркивания. Так
>> > что уже не на чем ломаться ;)
>> Здрасьте, а табы? :)
> Дык а их нет, см. начало треда ... :)

А я частенько вот таким пользуюсь:

#!/usr/bin/perl -w
use locale;
$op = shift or die "Usage: rename expr [files]\n";
chomp(@ARGV = <STDIN>) unless @ARGV;
for (@ARGV) {
    $was = $_;
    eval $op;
    die $@ if $@;
    rename($was,$_) unless $was eq $_;
}

Типа pmv 's/ /_/g' *\ * можно сказать для решения исходной задачи (табы и
т.п.: pmv 's/\s/_/g' *).

Кто скажет нелюбителю перла - какие тут подвохи могут быть?

-- 
                                        С уважением, системный
                                        администратор ООО "Крастел",
                                        Терешков Евгений.