Changeset 396
- Timestamp:
- 09/24/12 17:43:12 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/tiny-import.pl
r380 r396 127 127 my %deleg; 128 128 129 my $ok = 0; 129 130 while (<FLAT>) { 130 131 if (/^#/ || /^\s*$/) { … … 135 136 s/\s*$//; 136 137 my $recstat = recslurp($_); 138 $ok++ if $recstat; 137 139 if ($importcfg{rw}) { 138 140 if ($recstat) { … … 165 167 166 168 # .. but we can at least say how many records weren't imported. 167 print scalar(@deferred)." deferred records in $flatfile\n";169 print "$ok OK, ".scalar(@deferred)." deferred records in $flatfile\n"; 168 170 $#deferred = -1; 169 171
Note:
See TracChangeset
for help on using the changeset viewer.