#counter opendir(DIR, '.'); while (defined($file = readdir(DIR))) { if($file =~/JPG$/){ &print_jpg("${ARGV[0]}","${ARGV[1]}","$file"); } } closedir(DIR); ---- #comment ---- -[[メモメモ]]