First part of fixing #15

Photos downloaded to the device from iCloud are now extracted correctly, but under internal names like `C03E764D-495E-403B-A24C-5C9B5B607218.jpg`.

Author: joz-k

src/ios_backup_extractor.pl

@@ -447,7 +447,10 @@ sub extractMediaFiles
                          && $relative_path !~ /metadata/i
                          && $relative_path =~ /\.$wanted_extensions$/i);
 
-            # determine filename
+            # determine filename, e.g.
+            # [DCIM]
+            # * Media/DCIM/101APPLE/IMG_1111.JPG
+            # * Media/PhotoData/Mutations/DCIM/101APPLE/IMG_1111/Adjustments/FullSizeRender.jpg
             unless ($relative_path =~ m{^
                                         (?<media_location>
                                             .+
@@ -461,6 +464,24 @@ sub extractMediaFiles
                                         (?<extension>
                                            (?i:$wanted_extensions))
                                         $
+                                       }x
+            # [iCloud]
+            # * Media/PhotoData/CPLAssets/group101/1A1A1A1A-1A1A-1A1A-1A1A-1A1A1A1A1A1A.HEIC
+            # * Media/PhotoData/Mutations/PhotoData/CPLAssets/group101 \
+            #             /1A1A1A1A-1A1A-1A1A-1A1A-1A1A1A1A1A1A/Adjustments/FullSizeRender.jpg
+                 or $relative_path =~ m{^
+                                        (?<media_location>
+                                            .+
+                                            /PhotoData/CPLAssets/)
+                                        (?<media_subdir>
+                                            group\d+/)
+                                        (?<filename>
+                                            [^./]+)
+                                        (?:\.|/)
+                                        .*
+                                        (?<extension>
+                                           (?i:$wanted_extensions))
+                                        $
                                        }x)
             {
                 warn   qq{Warning: Cannot determine filename from "$relative_path"\n}