$ ls
HR040624.CSV  MMFAU443.log  MMFAU444.log  MMFAU445.log  MMFB0221.log  MMFC0624.log

$ ls {{[Hh][Rr],[Cc][Cc]}*.[Cc][Ss][Vv],[Mm][Mm][Ff][Bb]*.{[Ll][Oo][Gg],[Bb][Aa][Dd]},{[Ee][Mm],[Rr][Tt]}*.[Tt][Xx][Tt]} 2>/dev/null
HR040624.CSV  MMFB0221.log

$ perl -e 'print join(" ", glob("{{[Hh][Rr],[Cc][Cc]}*.[Cc][Ss][Vv],[Mm][Mm][Ff][Bb]*.{[Ll][Oo][Gg],[Bb][Aa][Dd]},{[Ee][Mm],[Rr][Tt]}*.[Tt][Xx][Tt]}")), "\n";'

$ perl -e 'use File::Glob; print join(" ", glob("{{[Hh][Rr],[Cc][Cc]}*.[Cc][Ss][Vv],[Mm][Mm][Ff][Bb]*.{[Ll][Oo][Gg],[Bb][Aa][Dd]},{[Ee][Mm],[Rr][Tt]}*.[Tt][Xx][Tt]}")), "\n";'
HR040624.CSV MMFB0221.log
$ perl -e 'use File::Glob qw( :glob ); print join(" ", glob("{{[Hh][Rr],[Cc][Cc]}*.[Cc][Ss][Vv],[Mm][Mm][Ff][Bb]*.{[Ll][Oo][Gg],[Bb][Aa][Dd]},{[Ee][Mm],[Rr][Tt]}*.[Tt][Xx][Tt]}")), "\n";'

$

Re: Weird behaviour between CORE::Glob and File::Glob

keszler

created: 2004-07-01 04:54:50

perlmonks

• reply
• node
• thread
• author

• node
• author
• thread

prlmnks

• node
• thread
• author

Try using `perl -d:ptkdb -e ....`
(Assumes that Devel::ptkdb is installed)

1st calls &File::Glob::csh_glob
3rd calls &File::Glob::glob which calls &File::Glob::bsd_glob, just after noting that
"# File::Glob::glob() is deprecated because its prototype is different from CORE::glob() (use bsd_glob() instead)"