Hello, did someone know why the code1 version works and the condensed code2 don't?? $TempShapes_folder is something like 'C:.../TempShapes/
Thank you! Guenter code1: opendir(DIR, "$TempShapes_folder") || die "folder not found: $!"; @File_list_TempShapes = grep(/\.png$/, readdir(DIR)); closedir(DIR); opendir(DIR, "$TempShapes_folder") || die "folder not found: $!"; @File_list_TempShapes2 = grep(/\.PNG$/, readdir(DIR)); closedir(DIR); push(@File_list_TempShapes, @File_list_TempShapes2); opendir(DIR, "$TempShapes_folder") || die "folder not found: $!"; @File_list_TempShapes3 = grep(/\.jpg$/, readdir(DIR)); closedir(DIR); push(@File_list_TempShapes, @File_list_TempShapes3); opendir(DIR, "$TempShapes_folder") || die "folder not found: $!"; @File_list_TempShapes4 = grep(/\.JPG$/, readdir(DIR)); closedir(DIR); push(@File_list_TempShapes, @File_list_TempShapes4); code2: opendir(DIR, "$TempShapes_folder") || die "folder not found: $!"; @File_list_TempShapes = grep(/\.png$/, readdir(DIR)); @File_list_TempShapes2 = grep(/\.PNG$/, readdir(DIR)); @File_list_TempShapes3 = grep(/\.jpg$/, readdir(DIR)); @File_list_TempShapes4 = grep(/\.JPG$/, readdir(DIR)); closedir(DIR); push(@File_list_TempShapes, @File_list_TempShapes2, @File_list_TempShapes3, @File_list_TempShapes4); -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
