Help for this page

Select Code to Download


  1. or download this
    use strict;

...
print "$seg_read\n";

exit(0);
  2. or download this
    Use of uninitialized value in concatenation (.) or string at c:/Active
+Perl/site/lib/Plucene/Index/SegmentInfos.pm line 57.
read_file '/segments' - sysopen: No such file or directory at c:/Activ
+ePerl/site/lib/Plucene/Index/SegmentInfos.pm line 57
  3. or download this
    my ($count, @unpack) = unpack "NN/(w/aN)", read_file("$directory/segme
+nts");