Большинство других решений будут перезаписывать существующие файлы, уже названные как число. Это особенно проблема при запуске скрипта, добавлении большего количества файлов и повтор сценария.
Этот сценарий сначала переименовывает существующие цифровые файлы:
#!/usr/bin/perl
use strict;
use warnings;
use File::Temp qw/tempfile/;
my $dir = $ARGV[0]
or die "Please specify directory as first argument";
opendir(my $dh, $dir) or die "can't opendir $dir: $!";
# First rename any files that are already numeric
while (my @files = grep { /^[0-9]+(\..*)?$/ } readdir($dh))
{
for my $old (@files) {
my $ext = $old =~ /(\.[^.]+)$/ ? $1 : '';
my ($fh, $new) = tempfile(DIR => $dir, SUFFIX => $ext);
close $fh;
rename "$dir/$old", $new;
}
}
rewinddir $dh;
my $i;
while (my $file = readdir($dh))
{
next if $file =~ /\A\.\.?\z/;
my $ext = $file =~ /(\.[^.]+)$/ ? $1 : '';
rename "$dir/$file", sprintf("%s/%04d%s", $dir, ++$i, $ext);
}
Инструменты CHUD - это набор инструментов профилирования и повышения производительности для использования при разработке приложений на Mac. Пакет включает в себя множество вещей, таких как DTrace, OpenGL Profiler и Instruments. В частности, акула - мой любимый инструмент; это впечатляющий профилировщик с отличным интерфейсом.
Двое других рассказали вам, что такое ЧУД. Причина, по которой вы хотите его удалить? Конечно, для установки более новой версии!
Если вы когда-нибудь планируете оптимизировать производительность, Shark - замечательный инструмент. Так что не удаляйте его =)
CHUD означает Computer Hardware Understanding Developer
Инструменты.