Разбор строки по правилам

[gottin]

Привет, подскажите пожалуйста как правильно разобрать строки из текстового файла???
есть текстовый файл,приведу в пример несколько строк из него:
$b_in,$pin,$t1,$t2,$t3,$t4,$t5,$t6,$t7,$numb, $clid
26,     760,   5,  25,18,   5,  31, 10,2651,7495, 48531111
26,     020,   5,  25,18,   4,  37, 106,2651,7485,4853112
26,     760,   5,  25,18,   5,  31, 10,  2651,7485,48531111
Задача простая, мне необходимо из этих строчек убрать (выкинуть) информацию, где переменная $clid содержит номер 7853111
и $numb 7495? все остальные параметры связанные с этим номером оставить!!
Вот кусочек кода:

Код:

 while(<IN>) 
{
 chomp; 
 my ($b_in,$pin,$t1,$t2,$t3,$t4,$t5,$t6,$t7,$numb,$clid) = split /,/;
 next if (($b_in eq "26") and ($clid =~ /^48531111$/) and ($numb!= ~ /^7495$/)); 
 print OUT "$b_in,$pin,$t1,$t2,$t3,$t4,$t5,$t6,$t7,$numb,$clid\n";
}

Но он убирает все строки связанные с номером 48531111   Подскажите что не так и как написать правильно???

[RXL]

Задача простая, мне необходимо из этих строчек убрать (выкинуть) информацию, где переменная $clid содержит номер 7853111
и $numb 7495? все остальные параметры связанные с этим номером оставить!!

Что ты имеешь в виду (выделено жирным)? Просто присвоить $clid = '' и $numb = ''? Не понятно.

[Вад]

Если требуется точное соответствие - то почему пытаешься сделать проверку через =~//, а не eq?

[gottin]

1. В результате (после обработки скриптом) должно быть так:
26,   020,   5,  25,18,   4,  37, 106,2651,7485,4853112
26,   760,   5,  25,18,   5,  31, 10,  2651,7485,48531111
т. е. строка с кодом 7495 не попадает  в конечный результат.
2. С синтаксисом Perl я честно говоря не очень знакома, но "eq" здесь не прокатит, т.к. после кода 7495 могут быть различные цифры(точное соответствие не прокатит, только приблизительные данные)

[Sla]

gottin, тогда расскажи что обозначают кванторы ^  и   $

[Вад]

после кода 7495 могут быть различные цифры(точное соответствие не прокатит, только приблизительные данные)

Тогда шаблон /^7495$/ некорректен, нужно /^7495/ или что-то в духе /^7495\d*/

[gottin]

Попробовала оба варианта - не подходят , опять убираются все строки связанные с этим номером. Какие в  Perle есть аналоги, скажем sql -левскому оператору not like ? ну или может Хорошую ссылочку подкинете по perlу если не трудно, я бы посмотрела сама

[Вад]

Ещё у тебя в тестовом примере есть пробелы, которые попадут в строковые значения. Их тоже нужно учесть или вырезать.

Я тут твой код переделал, сейчас он выводит только те строки, которые не удовлетворяют условию "$clid содержит 48531111 и $numb содержит 7495".

Код:

while(<IN>) 
{
 chomp; 
 my ($b_in,$pin,$t1,$t2,$t3,$t4,$t5,$t6,$t7,$numb,$clid) = split /,/;
 next if (($b_in eq "26") and ($clid =~ /^\s*48531111\s*$/) and ($numb =~ /^\s*7495\d*\s*/));
 print OUT "$b_in,$pin,$t1,$t2,$t3,$t4,$t5,$t6,$t7,$numb,$clid\n";
}

Но можно, конечно, и поизящнее. скажем, просто считывать строку, не разбирая на параметры, а потом

Код:

 next if ( /^26.*\s*7495\d*\s*,\s*48531111\s*$/ );

[RXL]

Код:

while (<IN>) 
{
  # Удаляем потенциально возможные пробелы после последнего числа и перевод строки.
  s/\*$//;
  #
  # Если есть уверенность, что в конце строки нет пробелов, то можно применить chomp.

  # Пробелы съедаются разделителем.
  my ($b_in, $pin, $t1, $t2, $t3, $t4, $t5, $t6, $t7, $numb, $clid) = split /,\s*/;

  # Операторы and и or имею низший приоритет - нет нужды защищаться от них скобками.
  # Существуют аналоги - && и || - с более высоким приоритетом.
  #
  # Здесь выполняем сравнение как числа:
  next if ($b_in == 26 and $clid == 48531111 and $numb == 7495);
  #
  # Или так - как строки:
  # next if ($b_in eq '26' and $clid eq '48531111' and $numb eq '7495');
  #
  # Все зависит от свойств данных...
  #
  # Проверка строки оператором m// нужна только при неконстантном сравнении.

  # OUT - дескриптор для вывода по умолчанию - нет нужды его специально указывать.
  print "$b_in,$pin,$t1,$t2,$t3,$t4,$t5,$t6,$t7,$numb,$clid\n";
}

Главное - логика:
    $b_in == 26
  and
    $clid == 48531111
  and
    $numb == 7495

Это верная логика?

[gottin]

Главное - логика:
    $b_in == 26
  and
    $clid == 48531111
  and
    $numb == 7495

Это верная логика?
 
Почти... единственное только $numb!= 7495 (ну это я может плохо объясняю...), в общем то я поняла как сделать, спасибо большое за помощь!!!

[Sla]

Так не интересно
Я не получил ответа Впрочем, если задача уже сделана, то будет ли он (ответ)?

gottin, тогда расскажи что обозначают кванторы ^  и   $