Help for this page
use strict; use warnings; ... $footprint_lnk =~ s/ /\$\|/g; print "footprint_lnk = $footprint_lnk\n\n"; # footprint_lnk = lnk$|LNK
my @image_files = grep{/\.jpg$|\.gif$|\.tiff$|\.tif$/i}readdir $target +_dir; my @video_files = grep{/^VID.+|\.3gp$|\.mp4$|\.avi$/i}readdir $target_ +dir;