[Chicago-talk] Wildcarding files on readdir

Jim Jacobus JJacobus at PonyX.com
Mon Jul 24 20:49:20 PDT 2006

I'm trying to figure out how to create a string that will enable me 
to read selective files in a directory with a wildcard. In other 
words I'm trying to do a function line "dir *0.jpg" (which would get 
all jpg files that end in zero). Closest I've got is:
main {

sub zardoz {
	$myfile = $_[0];
	$my_files =~ s/\*/\./;		# change asterisk to Perl's "." (any) ---> ".0.jpg"
	opendir(THISDIR, "\.");
	my @allfiles = grep /$my_files/, readdir(THISDIR);
which doesn't work very well. Converting "*" to ".' seems right, but 
the period between the file name and extension seems to confuse me. 

More information about the Chicago-talk mailing list