Changeset 64

Timestamp:

11/28/05 13:07:35 (19 years ago)

Author:

thauvin

Message:

• optimize strftime in build_dest_filename()

File:

• trunk/soft/ObsData/ObsData.pm (modified) (2 diffs, 1 prop)

trunk/soft/ObsData/ObsData.pm

@@ -286 +286 @@
         my @destarg = split(/\s+/, $self->getvalue($datatype, 'destarg'));
         my @gmtime = gmtime;
-        my %val = map { '%' . $_ => strftime('%' . $_, @gmtime) } 
-            qw(a A b B c C d D e F G g h H I j k l m M n p P r R s S T t T U V W w x X y Y z Z);
+        my %val;
         foreach (@matcharg) {
             $val{$_} = shift(@data);
@@ -293 +292 @@
         return ($datatype, sprintf(
             $dest,
-            map { $val{$_} } @destarg,
+            map { m/^%/ ? strftime($_, @gmtime) : $val{$_} } @destarg,
         ));
     }