Изпечатай

[CadeFoster]

какво не му е наред на тоя regular expression?

Код

GeSHi (Perl):
~ m/^d{1,3}.d{1,3}.d{1,3}.?*?/

Код:

Nested quantifiers in regex; marked by <-- HERE in m/^d{1,3}.d{1,3}.d{1,3}.?* <-- HERE ?/ at file.pl line 65.

някакви идей? 

[CadeFoster]

Намерих решение

Код

GeSHi (Perl):
~ m/^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/

[b2l]

Код

GeSHi (Perl):
\b(?:\d{1,3}\.){3}\d{1,3}\b

[CadeFoster]

b2l

Код

GeSHi (Perl):
\b(?:\d{1,3}\.){3}\d{1,3}\b

не работи.

Мислех че сам го налучкал ма не работи и по моя начин 

Това е стария код(или поне из нет-а пише че не важи вече в перл5):

Код

GeSHi (Perl):
  if ($network =~ m/^d{1,3}.d{1,3}.d{1,3}.?*?/) {
 
         #Network form x.y.z.
         $network =~ s/^(d{1,3}.d{1,3}.d{1,3}).*/$1/;
         $network .= ".";
         $out_file = "file" . $network . "txt";
 

Може ли да се конвертира за Перл5 ?

[radoulov]

Какво точно съдържа променливата network и какво точно искаш да съвпада с тази regex:

Код

GeSHi (Perl):
^d{1,3}.d{1,3}.d{1,3}.?*?

[b2l]

Какво точно съдържа променливата network и какво точно искаш да съвпада с тази regex:

Код

GeSHi (Perl):
^d{1,3}.d{1,3}.d{1,3}.?*?

Е то се вижда - IP адрес,

[CadeFoster]

мрежова маска

[Demayl]

m/^d{1,3}.d{1,3}.d{1,3}.?*?/
...изтрито... 192.168.0.5 ...изтрито... /^\d{1,3}\.\d{1,3}\.\d{1,3}\,\d{1,3}$/ ...изтрито... s/^(\d{1,3}\.\d{1,3}\.\d{1,3})\,\d{1,3}$/$1/s

Редактирано, съгласно т. 3 от правилата на форума
bop_bop_mara

[b2l]

мрежова маска

Ами тогава регулярния ти израз не е правилен, защото този:

Код

GeSHi (Perl):
^(d{1,3}.d{1,3}.d{1,3}).*/$

Защото така мачваш и: 1.2.3.4