Dotaz: Perl a rozdělení textu

[LuRy]

Ahoj, Pár dní řeším problém jak rozdělit text podle regulerniho vyrazu v momente kdyz se v souboru daný text obevuje víckrát vyhovujivcí stejnému reg. výrazu. "=~" mi vypíše pokaždé jenom první výskyt. Zkouším to mimo na příkladu dole, kde potrebuju z retezce vypsat pouze to co je mezi dvojteckama a podari se mi vypsat jenom 3434 (udělat reg. vyraz pro cely tento retezc mi moc nepomuze vzhledem k tomu ze nemuzu predpovidat kolik tech cisel mezi dvojteckami bude, tohle je jen pouze testovaci priklad) zkousel sem i ty rozdelovaci podminky pod sebe nebo i grepem kterym se mi to moc nepovedlo, nejlepsi vystup by byl do pole nevíte někdo jak na to?

$cislosmajlu = "---:3434: dasdas :2343:dasd a :5678:adasd dsadas:43587:aaaaaaa:23456879:"; if ($cislosmajlu =~ /(:([0-9]+):)+/) { print $1 ;}

---

---

Odpovědi

[Ondřej Kopka]

Ahoj, zkus split

[LuRy]

taky me napad split jenze podle ceho to rozdelit splitem to uz sem nevykoumal.. mozna podle tech dvojtecek jenze to bude desnej chaos z toho vybrat to co fakt potrebujes

[buff]

A co vlastně potřebuješ? Jen to, co je mezi dvojtečkami a zároveň číslo? Nebo...?

[buff]

Kdyžtak toto:

$cislosmajlu = "---:3434: dasdas :2343:dasd a :5678:adasd dsadas:43587:aaaaaaa:23456879:";
map {print "$_\n"} grep {m/[0-9]+/} split(':', $cislosmajlu);

[wamba]

no teoreticky by šlo

$cislosmajlu = "---:3434: dasdas :2343:dasd a :5678:adasd dsadas:43587:aaaaaaa:23456879:";

while ( $cislosmajlu =~ /(:([0-9]+):)+/g ) { print $1 ;}

[wamba]

popřípadě

my $cislo_smajlu
    = "---:3434: dasdas :2343:dasd a :5678:adasd dsadas:43587:aaaaaaa:23456879:";

foreach my $cislo (
    $cislo_smajlu =~ m/(?: :( [0-9]+ ): )+/xg
    ) {
        print "$cislo ";
}

[LuRy]

jo diky moc , jeslit bych te mohl pozadat vysvetlil bys mi ty znaky za a pres / ? m/ /xg hledal sem to ale poradny vysvetleni nebo prehled vsech sem nenasel pouzivam /i nebo bez pismen jinak ti davam bod diky moc

[wamba]

teď jsem si všiml že tam mám závorku zbytečnou (nechal jsem se unést vaším řešením) stačí:

m/:( [0-9]+ ):/xg

m je tam více méně zbytečný, muselo by tam být v případě např:

m{ :( [0-9]+ ): }xg

x umožňuje (pro přehlednost) vkládat do regulárního výrazu mezery a g je "global" tedy najdi všechny výrazy nejen první

[misch]

Jo, ale nepoužil bych to ve while, ale prostě

@smajly = (text =~ /:([0-9]+):/g);