Changeset 22485 for main/trunk/greenstone2/perllib/dbutil/gdbmtxtgz.pm
- Timestamp:
- 2010-07-22T18:55:18+12:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/dbutil/gdbmtxtgz.pm
r22076 r22485 114 114 } 115 115 116 117 sub read_infodb_keys 118 { 119 my $infodb_file_path = shift(@_); 120 my $infodb_map = shift(@_); 121 122 my $cmd = "gzip --decompress \"$infodb_file_path\""; 123 124 open (PIPEIN, "$cmd |") 125 || die "Error: Couldn't open pipe from gzip: $!\n $cmd\n"; 126 127 my $infodb_line = ""; 128 my $infodb_key = ""; 129 while (defined ($infodb_line = <PIPEIN>)) 130 { 131 if ($infodb_line =~ /^\[([^\]]+)\]$/) 132 { 133 $infodb_key = $1; 134 } 135 elsif ($infodb_line =~ /^-{70}$/) 136 { 137 $infodb_map->{$infodb_key} = 1; 138 $infodb_key = ""; 139 } 140 } 141 142 close (PIPEIN); 143 } 144 116 145 117 146 sub write_infodb_entry
Note:
See TracChangeset
for help on using the changeset viewer.