Re^3: Find the last item in a series of files


No such thing as a small change
	PerlMonks

Re^3: Find the last item in a series of files

by haukex (Archbishop)

on Jun 20, 2017 at 18:53 UTC ( [id://1193167]=note: print w/replies, xml )

Need Help??

in reply to Re^2: Find the last item in a series of files
in thread Find the last item in a series of files

i haven't tested this code...

Having a variety of test cases is important. I admit I haven't tested your code myself, but if you had tested it with multiple cases, you might have found that, for example, sort @exts; isn't doing what you want. Also, I can warmly recommend one of the filename manipulation modules like Path::Class, or perhaps File::Spec (a core module) - if you use the former you can even use its methods to list files in the directory (->children). A few more suggestions: Be careful with if ($folder), since that will test negative when $folder happens to be "0" (Truth and Falsehood), you probably want to use length or defined tests instead (same goes for if ($type), of course). Also, I think you might have missed a /g on your "remove dots" regex?