Сообщения

1

Perl / Регулярка

« : 19 Апреля 2003, 22:30:09 »

Нет вот ещё быстрое решение для массивов И всё

   my @array=qw(
mail.com
127.0.0.1
http://www.mail.com
http://www.mail.com/index.html?ttt
http://mail.com);

@array=map{m#^(?:http://)?(?:www\\.)?([^/]*)#}@array;
print "@array";

2

Perl / Регулярка

« : 19 Апреля 2003, 21:55:55 »

OR

foreach(@array)
{
   s#^(?:http://)?(?:www\\.)?##;
   s#/.*$##;
}

3

Perl / Регулярка

« : 19 Апреля 2003, 21:48:46 »

@array=qw(
mail.com
127.0.0.1
http://www.mail.com
http://www.mail.com/
http://mail.com);

foreach(@array)
{
   s#^(?:http://)?(?:www\\.)?##;
   s#/$##;
}

print "@array";

4

Perl / Что может помочь мне в даннм случае?

« : 10 Апреля 2003, 18:18:42 »

Не факт что там ругаются именно на эту строку!
Попробуйте заменит её на похожую по действию конструкцию
$_=~m/$params[0]\\s*\\[(.+)\\]/;
$params[1] = $1;

Убедится что они похожи можно выполнив
$params[0]=\'test\';
$_=\'test [testvalue]\';
m/$params[0]\\s*\\[(.+)\\]/;
$params[1] = $1;
print "1   $params[1]\\n";
$params[1] = substr ((split /$params[0]\\s*\\[/)[1], 0, -1);
print "2   $params[1]\\n";

ЗЫ А можно ещё строчек несколько вверх от это строки

5

Perl / Шаблон

« : 10 Апреля 2003, 16:00:07 »

2Dart Sidius
Как-то на одном форуме (Perl форуме) я увидел тему “Учите перловку ламеры” и в этой теме был один ответ всего один ответ “Учитесь вежливости хамё”

Вот ИМХО правильный ответ на ваш вопрос (хотя символ | разделяет альтернативные шаблоны То есть их фактически два , шаблона ДОБАВИЛ третий)

$_="q";

unless(/(?:^[^А-Яа-яЁё]*[A-Za-z][^А-Яа-яЁё]*$)|(?:^[^A-Za-z]*[А-Яа-яЁё][^A-Za-z]*$)/)
{
   print "ВЫ ввели смесь русских и латинских букв";
}

работает правильно даже при анализе одной буквы Но таким методом могут пользоваться либо Аристократы либо Дегенераты ИМХО

Судя по всему вы Dart Sidius не Аристократ
Тогда если вы не дегенерат вам придётся пользоваться

$_=\'qы\';

if(/[A-Za-z]/ && /[А-Яа-яЁё]/)
{
   print "ВЫ ввели смесь русских и латинских букв";
}