perl скрипт

Нужно войти в папку

chdir './tmp';

opendir CD, '.';

$b = 1;

rename $_, $b++.'.txt' for readdir CD;

closedir CD;

пробуйте так:

#!usr/bin/perl



opendir CD, "/home/jorik/111";

@a = readdir CD;

$b = '1';

foreach $file (@a){

  rename ($file, $b.".txt"); $b++;

}

(написал в браузере, код не проверял)

используй отладчик и все сразу узнаешь.

1. отфильтровать специальные записи в каталогах '.' и '..'.

2. нужен полный путь для rename, иначе файлы переименуются в текущий каталог

#!usr/bin/perl

opendir CD, "/home/jorik/111";
@a = readdir CD;
$b = '1';
foreach $file (@a) { 
 if ($file ne '.' and $file ne '..') {
  rename ("/home/jorik/111/$file", "/home/jorik/111/" . "$b.txt"); 
  $b++;
 }
}

netwind, благодарю, что под линь посоветуете, юзаю padre

MAXi163, ну раз padre работает, то какой смысл менять. Главное, что пошаговая отладка позволяет сразу видеть в чем ошибки.

Можешь украсть komodo ide, если речь идет о разработке комплексных проектов сразу на разных языках.

настоящие пацаны отладчики не юзают 🙅

_vb_, но при этом отладчики существуют почти для всех императивных языков программирования.