Select Code to Download

Moved and renamed: /home/fritz/Pictures/6.pics/2022-12-08-220201009.mp
+4 -> /media/hogan/175F-DC61/Organized_Pics/2022/12/2022_12_08_5.mp4
...
Moved and renamed: /home/fritz/Pictures/Wallpapers/Screenshot from 202
+2-10-16 16-58-24.png -> /media/hogan/175F-DC61/Organized_Pics/2022/10
+/2022_10_16_13.png
Processing complete! Number of files created: 960
fritz@laptop:~/Documents$

#!/usr/bin/perl
use strict;
use warnings;
...
find(\&process_file, $source_dir);

print "Processing complete! Number of files created: $file_count\n";