687 |
my $current = shift; |
my $current = shift; |
688 |
my $total = shift || 1; |
my $total = shift || 1; |
689 |
my $p = int($current * 100 / $total); |
my $p = int($current * 100 / $total); |
690 |
if ($p != $last_p) { |
if ($p < $last_p) { |
691 |
|
$start_t = time(); |
692 |
|
} elsif ($p != $last_p) { |
693 |
my $rate = ($current / (time() - $start_t || 1)); |
my $rate = ($current / (time() - $start_t || 1)); |
694 |
my $eta = ($total-$current) / ($rate || 1); |
my $eta = ($total-$current) / ($rate || 1); |
695 |
printf STDERR ("%5d [%-38s] %-5d %0.1f/s %s\r",$current,"=" x ($p/3)."$p%>", $total, $rate, fmt_time($eta)); |
printf STDERR ("%5d [%-38s] %-5d %0.1f/s %s\r",$current,"=" x ($p/3)."$p%>", $total, $rate, fmt_time($eta)); |
917 |
|
|
918 |
=head1 DESCRIPTION |
=head1 DESCRIPTION |
919 |
|
|
920 |
This command will read ISIS data file using OpenIsis perl module, MARC |
This command will read ISIS data file using IsisDB perl module, MARC |
921 |
records using MARC module and optionally Micro$oft Excel files to |
records using MARC module and optionally Micro$oft Excel files to |
922 |
create one XML file for usage with I<SWISH-E> indexer. Dispite it's name, |
create one XML file for usage with I<SWISH-E> indexer. Dispite it's name, |
923 |
this script B<isn't general xml generator> from isis files (isis allready |
this script B<isn't general xml generator> from isis files (isis allready |