Perl RegEx и pattern negation

[вЫлЫсЫпЫдЫстЫ]

Привет!

Perl эксперты, прошу помоши.

Столкнулся с постоянно встречаюшейся проблемой исключения значений используя регулярные выражения в Perl.

Простой пример навскидку.
Есть массив со строчными значениями:

us.chicago
us.losAngeles
us.newYork
uk.london
ie.dublin
ie.cork
ee.tallinn
ru.moscow

Надо выдернуть все КРОМЕ Америки, например.

Вот тут как раз загвоздка. В Perlе нет эквивалентного PHPшному "!" (negation).
Другая проблема что представленное выражение должно быть как параметр в настройке программы, т.е. манипуляции с "!~" никак НЕ подходят:

useRegEx = REGEX[.+] (значение по defaultу - всё)

Все становится ещё интереснее, т.к. negative lookbehind работает ТОЛьКО с fixed length.

Из Perl документации:
(?<!pattern) A zero-width negative lookbehind assertion. For example /(?<!bar)foo/ matches any occurrence of "foo'' that isn't following "bar''. Works only for fixed-width lookbehind.
http://www.perl.com/doc/manual/html/pod/perlre.html

Как быть?
Как сказать "все КРОМЕ ^us\..+"?

Заранее благодарю за любую помошь!

P.S. Google молчит как мёртвый, и тока повторяет !~ !~ !~

[Zoyka]

так вроде и ест такая функция все кроме например все кроме цифр будет [^0-9] ну и т.д.

[вЫлЫсЫпЫдЫстЫ]

Сообщение от Zoyka

так вроде и ест такая функция все кроме например все кроме цифр будет [^0-9] ну и т.д.

Есть, но она НЕ будет работать т.к. это класс (идёт перебор).
"^[^us]{2}\..+" выкинет как "uk" так и "se".

И так тоже не будет работать:
"^[^u][^s]\..+", опять же выкинет всё что начинается на u.

Нужно именно "!(^us\..+)", тока по Perlовски.

[V/B]

Why use regexp?

Псевдокод с использованием index:
my substr = "us";
open (MYFILE, 'data.txt');
while (<MYFILE>) {
chomp;
if(index($_,substr) < 0){
print "No $substr on this line!";
} else {
print "Got $substr";
}
}
close (MYFILE);

[rojer]

> Как сказать "все КРОМЕ ^us\..+"?

/^(?!us\.)./

гуглить: negative look behind assertions

[vc]

Php - sucks, Perl - rules!

[rojer]

справедливости ради надо отметить, что пхп тоже поддерживает такой синтаксис, равно как и любой продукт использующий либу pcre.
но pcre - это ж таки perl-compatible regular expressions, так что perl - всему голова, да

[Epo]

Как в перле я хз, но думаю такое сможешь переделать в перл сам:

^[a-z][a-rt-z][.][a-zA-Z]{1,}

пойдём от противного, первый символ может быть какой угодно, затем идёт любой символ кроме "s", а далее по твоему тексту, должна быть точка и после название чего то там, чем оно оканчивается не имеет значение, поэтому $ не нужен.

[rojer]

Epo> первый символ может быть какой угодно, затем идёт любой символ кроме "s"

как насчёт испанцев (es)? пошто их, бедных, под один веник с американцами?

[vc]

Сообщение от Epo

Как в перле я хз, но думаю такое сможешь переделать в перл сам:

пойдём от противного, первый символ может быть какой угодно, затем идёт любой символ кроме "s", а далее по твоему тексту, должна быть точка и после название чего то там, чем оно оканчивается не имеет значение, поэтому $ не нужен.

Так крутость Перла в том, что там не надо знать заранее страну, по которой фильтровать. Там вообще можно акроним страны в переменную запихнуть (только потом препроцессить это выражение):
^(?!$var\.)./

[Epo]

Сообщение от rojer

как насчёт испанцев (es)? пошто их, бедных, под один веник с американцами?
__________________

это им за всё хорошее)) а если серьёзно, то нада подумать)

[rojer]

vc> ^(?!$var\.)./

не забываем про \Q ... \E (если только ты не хотел чтоб $var интерпретировалась как регекс).

[vc]

Я хотел, чтобы перед выполнением regex "скомпилировался", т.е. строчка $var превратилась в "us"

[rojer]

да, но при интерполяции переменных внутри регекса всегда нужно думать - а хочу ли я чтобы содержимое переменной интерпретировалось как регекс?
то есть, грубо говоря, если $var = '.*', то чтоб оно матчило любое число чего угодно, либо только дословно строку .*
для второго варианта (что обычно и требуется) придуманы \Q...\E:

/^(?!\Q$var\E\.)./

[vc]

А ну это без разницы. Я же сказал "us" (или любая другая страна)