Forum Webscript.Ru

Программирование => Perl => Тема начата: webser от 17 Марта 2008, 00:01:57

Название: Поиск файлов в каталоге по "маске"
Отправлено: webser от 17 Марта 2008, 00:01:57

СУТЬ ::: Есть каталог с графическими файлами, названными по правилам $id1-$id2-$id3-[какой-то номер от 1 до ...].gif

Переменные $id1, $id2, $id3 известны до осуществления поиска и равны 0005, 33 и 1 соответственно. Пробовал

$dirname = $path."projects/off/";   # указание файла на сервере
opendir (DIR, $dirname);
@tmp_listfile = grep{"$id1-$id2-$id3-*.gif"} readdir(DIR);
closedir (DIR);

Получил

. | .. | 0005-33-1-1.gif | 0005-33-1-2.gif | 0075-60-1-1.gif | 0075-60-1-2.gif | 0076-35-1-1.gif | 0076-35-1-2.gif | 0195-35-1-1.gif | 0195-35-1-2.gif | 0195-35-1-3.gif | 0298-33-1-1.gif | 0298-34-1-1.gif | 0500-36-1-1.gif | 0502-36-1-1.gif | 0503-31-1-1.gif | 0503-31-1-2.gif | 0503-31-1-3.gif | 0504-33-1-1.gif | 0505-34-1-1.gif | 0506-34-1-1.gif | 0507-35-1-1.gif | 0507-35-1-2.gif | 0507-35-1-3.gif | 0508-34-1-1.gif | 0509-33-1-1.gif | 0510-33-1-1.gif | 0510-33-1-2.gif | 0510-33-2-1.gif | 0510-33-2-2.gif | 0511-33-1-1.gif | 0512-34-1-1.gif | 0512-34-1-2.gif | 0512-34-1-3.gif |

Как мне в grep учесть мои переменные, что-бы искал только нужные? и как можно избавиться от уровней вложенности в массиве  @tmp_listfile - . и ..

Может можно еще как найти? Проще и легче?....

Заранее благодарен..

P.S.
Сделал так -
@files = glob("$dirname$id1-$id2-$id3-*.gif");
print ">>files :::   ",@files;

Все ищет как надо, только с путями к файлам :
>>files ::: V:/localhost/www/projects/off/0005-33-1-1.gifV:/localhost/www/projects/off/0005-33-1-2.gif
Это решается путем выделения имени файла  из всего пути :
for ($i=0;$i<@files;$i++){   
$files[$i] =~ s!^.*/!!;
}
print ">>files2 :::   ",@files;

Получаем нужное   >>files2 ::: 0005-33-1-1.gif0005-33-1-2.gif

НО НАВЕРНЯКА ЕСТЬ ПУТЬ ПРОЩЕ И ЛЕГЧЕ - ПОДСКАЖИТЕ, ПЛИЗ

Название: Поиск файлов в каталоге по "маске"
Отправлено: Yaroslav от 17 Марта 2008, 18:46:32

Код: [Выделить]

while (glob("$dirname$id1-$id2-$id3-*.gif")) {
  s/^.*\\///;
  print "$_";
}

Название: Поиск файлов в каталоге по "маске"
Отправлено: Yaroslav от 17 Марта 2008, 23:20:27

Код: [Выделить]

chdir($dirname);
while (glob ("$id1-$id2-$id3-*.gif")) {
  print "$_ ";
}

Название: Поиск файлов в каталоге по "маске"
Отправлено: webser от 18 Марта 2008, 08:39:02

ДОПОЛНИТЕЛЬНО :::

как одним махом раскидать имя файла, например 0504-33-1-1.gif, на 4 переменные со значениями 0504, 33, 1  и 1?

Название: Поиск файлов в каталоге по "маске"
Отправлено: arto от 18 Марта 2008, 09:31:10

split "[.-]"

perldoc -f split

Название: Поиск файлов в каталоге по "маске"
Отправлено: webser от 18 Марта 2008, 14:49:55

Извини за глупый вопрос : а где надо набрать эту строку perldoc -f split ?

Название: Поиск файлов в каталоге по "маске"
Отправлено: webser от 18 Марта 2008, 14:51:42

Я смотрю через броузер прямое обращение к файлу описания (у меня file:///C:/Perl/html/index.html).

А где надо вводить perldoc -f split ?

Название: Поиск файлов в каталоге по "маске"
Отправлено: arto от 18 Марта 2008, 15:42:55

в терминале.

Название: Поиск файлов в каталоге по "маске"
Отправлено: webser от 18 Марта 2008, 15:56:34

Thanks... Разобрался..
Сделал

@tmp_line = split (/[.-]/, $listfile[$i]); с последующей подстановкой нужных $tmp_line[0] и т.д.

И с командной строкой разобрался... Тупил, однако..