My file p5dbglob.pl
#!/usr/bin/perl -- use strict; use warnings; Main( @ARGV ); exit( 0 ); sub Main { for my $dir ( @_ ){ chdir $dir or die $!; Fudge( $dir, glob '*' ); } } sub Fudge { my $dir = shift; my $count = @_; print "$dir => $count \n"; }
I want to step into Fudge() but without stepping into glob ( File::Glob::csh_glob ... ), but how?
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |