"Mumia W." schreef:

> my $lang = ($topdir =~ /([^\/]+)$/)[0];

ITYRMSL:

  my ($lang) = $topdir =~ m~([^/]+)$~;

-- 
Affijn, Ruud

"Gewoon is een tijger."

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/


Reply via email to