Массовое переименовывание файлов

46

sergsam1

14 апреля 2009, 15:42

275

Кто нибудь знает такую программу, которая бы справилась с такой задачей:

Есть много txt файлов, название этих файлов цифрами по порядку (т.е. 1.txt, 2.txt, 3.txt и так далее).

Нужно чтобы прога взяла первую строчку внутри этого файла и заменила название, например 1.txt на Первая строчка.txt

90

softsafer

15 апреля 2009, 05:03

#1

Специально для Вас скрипт на Perl:

opendir(DIR,'.');

@f = grep {/^\d+\.txt$/} readdir(DIR);

closedir(DIR);

foreach $f (@f) {

open F, $f;

$line = <F>;

chomp $line;

close F;

rename $f, "$line.txt";

}

Чтобы работало, скачай ActivePerl.

Скрипт автоматического мониторинга сайтов (http://vovanmozg.com/2008/vy-uzhe-mozhete-kupit-ezhamon) продам. И не забывайте, что смысл жизни лежит за её пределами.

268

dspu

15 апреля 2009, 05:31

#2

пользовался renamus - 4000 файлов за 30сек

VK приобрела 70% в структуре компании-разработчика red_mad_robot

Тренды маркетинга в 2024 году: мобильные продажи, углубленная аналитика и ИИ