Enhanced text output during extraction

When extracting, the tool will now display the name of the internal "DCIM" folder where the media file was originally located in the backup/filesystem.

Discussed and proposed in [#12](#12 (comment))

Author: joz-k

src/ios_backup_extractor.pl

@@ -434,6 +434,8 @@ sub extractMediaFiles
                    qq{\t$DBI::errstr.\n};
 
         my $file_index = 1;
+        my $media_location = q{};
+        my $media_subdir   = q{};
 
         # filter all full-size JPG, HEIC... images
         while (my $row = $sth->fetchrow_hashref)
@@ -446,14 +448,18 @@ sub extractMediaFiles
                          && $relative_path =~ /\.$wanted_extensions$/i);
 
             # determine filename
-            unless ($relative_path =~ m{^ .+
-                                        /DCIM
-                                        /\d+APPLE
-                                        /(?<filename>[^./]+)(?:\.|/)
+            unless ($relative_path =~ m{^
+                                        (?<media_location>
+                                            .+
+                                            /DCIM/)
+                                        (?<media_subdir>
+                                            \d+APPLE/)
+                                        (?<filename>
+                                            [^./]+)
+                                        (?:\.|/)
                                         .*
                                         (?<extension>
-                                           (?i:$wanted_extensions)
-                                        )
+                                           (?i:$wanted_extensions))
                                         $
                                        }x)
             {
@@ -464,6 +470,12 @@ sub extractMediaFiles
                 next;
             }
 
+            if ($media_location ne $+{media_location} || $media_subdir ne $+{media_subdir})
+            {
+                ($media_location, $media_subdir) = ($+{media_location}, $+{media_subdir});
+                say STDERR "  ╭────┤Extracting from: [${media_location}$media_subdir]";
+            }
+
             # add '_DELETED' flag to files marked as deleted
             my $deleted_flag = ($cmd_options{'add-trash'} && $g_deleted_files{$relative_path})
                              ? '_DELETED'