Changeset 24449 for main/trunk/greenstone2/perllib/plugins/ReadTextFile.pm

Timestamp:

2011-08-23T14:06:33+12:00 (13 years ago)

Author:

ak19

Message:

John Thompson improvement to file reading: faster, more efficient way of reading than traditional slurping in of the file (one newline at a time). Will be tested.

File:

• main/trunk/greenstone2/perllib/plugins/ReadTextFile.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/plugins/ReadTextFile.pm

@@ -216 +216 @@
      
     if ($encoding eq "ascii") {
-    undef $/;
-    $$textref = <FILE>;
-    $/ = "\n";
+    # Replace file 'slurp' with faster implementation
+    sysread(FILE, $$textref, -s FILE);
+    
+    # The old slow way of reading in a file
+    #undef $/;
+    #$$textref = <FILE>;
+    #$/ = "\n";
     } else {
     my $reader = new multiread();