Changeset 8734 for trunk/ippScripts/scripts/detrend_stack.pl

Timestamp:

Sep 5, 2006, 12:03:01 PM (20 years ago)

Author:

jhoblitt

Message:

slurp statsfile

File:

• trunk/ippScripts/scripts/detrend_stack.pl (modified) (1 diff)

trunk/ippScripts/scripts/detrend_stack.pl

@@ -81 +81 @@
 my $stats;                      # Statistics from ppImage
 {
-    my $statsFile;              # File handle
-    open $statsFile, "$outputStats" or die "Can't open statistics file $outputStats: $!\n";
-    my @contents = <$statsFile>; # Contents of file
-    close $statsFile;
+    open(my $statsFile, "$outputStats")
+        or die "Can't open statistics file $outputStats: $!\n";
+    my $contents = do { local $/; <$statsFile> }; # Contents of file
+    close($statsFile);
+
     my $mdcParser = PS::IPP::Metadata::Config->new;     # Parser for metadata config files
-    my $metadata = $mdcParser->parse(join "", @contents)
+    my $metadata = $mdcParser->parse($contents)
         or die "unable to parse metadata config doc";
     $stats = PS::IPP::Metadata::Stats->new(); # Stats parser