Changeset 7 for trunk

Timestamp:

09/21/05 18:31:36 (19 years ago)

Author:

thauvin

Message:

-add compressed

Location:

trunk/soft/ObsData

Files:

• ObsData/Archive (added)
• ObsData/Archive.pm (modified) (1 diff, 1 prop)
• ObsData/Archive/Compressed.pm (added)
• testdata/coin.bz2 (added)
• testdata/coin.gz (added)

trunk/soft/ObsData/ObsData/Archive.pm

@@ -20 +20 @@
     
     for ($archive) {
-        
+        /\.gz$/ and do {
+            $beclass = 'Compressed';
+            $options{uncomp} = 'gzip -dc';
+            last;
+        };
+        /\.bz2$/ and do {
+            $beclass = 'Compressed';
+            $options{uncomp} = 'bzip2 -dc';
+            last;
+        };
     }
+    
     if ($beclass) {
-        require '$class::$beclass';
-        return '$class::$beclass'->new($o);
+        my $obj;
+        eval("require $class\:\:$beclass;");
+        eval("\$obj = $class\:\:$beclass->new(\$o);");
+        return $obj;
     } else {
         bless($o, $class);