Update AutoDecompress.rakumod

Better implementation if other archive without using regex.
Zer0-Tolerance · Oct 30, 2022 · b98839d · b98839d
1 parent 2015f5a
commit b98839d
Showing 1 changed file with 24 additions and 0 deletions.
diff --git a/lib/IO/Path/AutoDecompress.rakumod b/lib/IO/Path/AutoDecompress.rakumod
@@ -13,6 +13,18 @@ class IO::Path::AutoDecompress is IO::Path {
             my $proc := run <bunzip2 --stdout>, self, :out;
             $proc.out.lines(:$chomp, :$enc, :$nl-in)
         }
+        elsif $extension eq '7z' {
+            my $proc := run <7z e -so>, self, :out;
+            $proc.out.lines(:$chomp, :$enc, :$nl-in)
+        }
+        elsif $extension eq 'rar' {
+            my $proc := run <unrar p>, self, :out;
+            $proc.out.lines(:$chomp, :$enc, :$nl-in)
+        }
+        elsif $extension eq 'zip' {
+            my $proc := run <7z e -so>, self, :out;
+            $proc.out.lines(:$chomp, :$enc, :$nl-in)
+        }
         else {
             self.IO::Path::lines(:$chomp, :$enc, :$nl-in)
         }
@@ -28,6 +40,18 @@ class IO::Path::AutoDecompress is IO::Path {
             my $proc := run <bunzip2 --stdout>, self, :out;
             $proc.out.slurp(:$enc)
         }
+        elsif $extension eq '7z' {
+            my $proc := run <7z e -so>, self, :out;
+            $proc.out.slurp(:$enc)
+        }
+        elsif $extension eq 'rar' {
+            my $proc := run <unrar p>, self, :out;
+            $proc.out.slurp(:$enc)
+        }
+        elsif $extension eq 'zip' {
+            my $proc := run <7z e -so>, self, :out;
+            $proc.out.slurp(:$enc)
+        }
         else {
             self.IO::Path::slurp(:$enc)
         }