Dotaz: Perl a doplnění textu

[Petr]

Zdravím... Mám problém s tímto.

$self->privmsg($kanal, $nick.'@email.cz ' ' - "text"

jedná se o odeslání textu určitému uživateli.

Kde $nick = určitý nick a

'@email.cz = možná použitelná přípona k nicku.

Jde mi o to, aby šlo rozpoznat jen samotný nick a nick s příponou a podle toho byl odeslán text. Poradí někdo jak to zapsat? Nevím zda jsem dotaz napsal srozumitelně, kdyžtak dovysvětlím... Děkuji

Odpovědi

[tyctor]

no napr. ak bude v stringu @ tak je to kompletny email, inak iba nickname? :o)

[pht]

úplně přesně nechápu zadání, ale co něco takového:

print ($nick =~ /\@email\.cz$/) ? 'je' : 'neni';