0

Я открываю папку, читаю все содержимые файлы(без . и ..). Помещаю их в $runner и вот таким образом считаю, если в файле 4 цифры.

if( ($runner =~ s/[0-9]//g)!=4 )
{
     print $runner."\n";
}

Но что-то пошло не так и имея такое содержимое папки :

U0204.online.xml
U204.online.xml
Run.runner.xml

Я наблюдаю такую картину(в консоли):

U.online.xml

Я попробовал использовать оператор tr и WOW, он ничего не заменил,а вывел верные строки.
Может кто объяснить почему политеральная замена работает, а обычная нет.

3
  • Ничего не понял.. в $runner что содержится? Имя файла? Нужно подсчитать сколько в его названии цифр? 2 дек 2013 в 14:49
  • Не готов ответить что вернет оператор =~ в перл, но с точки зрения регулярных выражений идеологически верно искать четыре совпадения так: s/^(?:\D*+\d){4}\D*+$/
    – ReinRaus
    2 дек 2013 в 14:50
  • в runner - имя файла
    – voipp
    2 дек 2013 в 17:28

1 ответ 1

2
#!/usr/bin/perl

use strict;
my @arr=qw(U0204.online.xml U204.online.xml Run.runner.xml);
foreach (@arr){
        print if ((split /\d/) == 4);
}
3
  • спасибо за совет. Но ... у меня уже есть рабочий вариант: if( ($runner =~ tr/[0-9]//g)!=4 ) { print $runner."\n"; } Я просто хочу понять, почему tr работает, а s - нет.
    – voipp
    2 дек 2013 в 17:27
  • 1
    Когда вы вызываете tr/SEARCHLIST//, то происходит обычный поиск без замены найденных вхождений на "", что бы всё таки такая замена происходила (найденные совпадения удалялись) необходимо использовать \d
    – Error
    2 дек 2013 в 19:25
  • все равно странное поведение оператора tr. Если вы зададите 2й аргумент : tr/abcd/efgh/ то произойдет посимвольная замена. Тоесть если заданы оба аргумента, то поведение двух операторов схожее, если задан только 1 - соершенно разное поведение.
    – voipp
    2 дек 2013 в 19:49

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.