Hello! I'm trying to use File::Basename, but it is not behaving well: tessio@pacman:~/tmp/ASAP$ ls
book.div book.tex erotic.div erotic.tex erotyc.tex problem source.a source.c source.o tessio@pacman:~/tmp/ASAP$ cat problem use 5.010; use strict; use warnings; use File::Basename; my %sufixTable = ( '.div' => '.tex', '.o' => '.c', '.a' => '.c', ); opendir my $DIR, '.' or die "Unable to open dir: $!\n"; my @list = readdir $DIR or die "Unable to read dir: $!\n"; foreach my $item ( @list ) { next if $item eq '.'; next if $item eq '..'; # BUG! fileparse is doing it wrong! my ( $file, $dir, $sufix ) = fileparse( $item, %sufixTable ); print "$file -> $sufix\n"; } tessio@pacman:~/tmp/ASAP$ perl problem erot -> ic.tex (ERRO) book -> .div erot -> yc.tex (ERRO) problem -> book -> .tex source -> .c source -> .a source -> .o erot -> ic.div (ERRO) tessio@pacman:~/tmp/ASAP$ --- Note that it is not working with erotic and erotyc file names.. Why? -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/