in reply to Getting a base name

You should use

$base = (split(/\./,$fname))[0];

and better solution is File::Basename

Replies are listed 'Best First'.
Re^2: Getting a base name
by reasonablekeith (Deacon) on Jul 20, 2005 at 08:48 UTC