рег.выражение для Perl

/^(.*?)\,/i

кста выборка будит храниться в $1

А по поводу ключика i... по моему он не нужен :))

$str = "cn=fff,dc=soc,dc=home";
$str =~ /^(.*?)\,/i;

Мне нужно в $str записать "cn=fff".
Что-то не получается...

Слышь, жывотнае... можыт доки пачитиешь?

my $str = "cn=fff,dc=soc,dc=home";
$str =~ s/,.*$//;

Ага, спасибо.
Сам себе угрожаешь?

>$str = "cn=fff,dc=soc,dc=home"; > >$str =~ /^(.*?)\,/i; > >Мне нужно в $str записать "cn=fff". > >Что-то не получается...

---

#!/usr/bin/perl

$str = "cn=fff,dc=soc,dc=home";

$str =~ /^(.*?)\,/i;

print "$1\n";

---

Запусти и увидешь что выведит!!!!!!!!!!

ЗЫ: а по поводу записи в $str:

$str=$1;

man perlre, особенно смотреть, что =~ возвращает в скалярном контексте...

s/,.*//

так правильней будет:

/^([^,]+)/