Problem se splitem

[Honza Pazdziora]

On Wed, Apr 19, 2000 at 11:42:54AM +0200, Jaromir Bosko wrote:
> Zdravim,
> 
> mam retezec $ret='/usr/bin/perl';
> chci jej rozdelit na '/usr/bin' a 'perl'
> pri pouziti
> ($nic, $cesta, $soubor) = split ('(.*)/(.*)',$ret) ;
> 
> se mi to povede , ALE musim pouzit promennou $nic
> kam se mi nacpe nejaky prazdny retezec.
> 
> Jak napsat ten reg. vyraz abych mohl napsat jen
> 
> ($cesta, $soubor) = split (reg_vyraz,$ret) ;  ???

Nepouzivejte split:

	my ($cesta, $soubor) = ($ret =~ m!^(.*)/(.*?)$!);

Tim splitem se to samozrejme taky da, napriklad s lookaheadem, ale
pouziti matchovani v seznamovem kontextu je mnohem cistsi.

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
   .project: Perl, DBI, Oracle, MySQL, auth. WWW servers, MTB, Spain.
------------------------------------------------------------------------