From: Frank Lichtenheld Date: Mon, 8 Oct 2007 02:23:45 +0000 (+0200) Subject: parse-contents: Update progress approximation X-Git-Url: https://git.deb.at/?a=commitdiff_plain;h=11d08c95c0b38b80f9595b56121a95744d63b03b;p=deb%2Fpackages.git parse-contents: Update progress approximation Make them at least partly match reality... --- diff --git a/bin/parse-contents b/bin/parse-contents index b8cc8e4..ef5c09c 100755 --- a/bin/parse-contents +++ b/bin/parse-contents @@ -91,7 +91,7 @@ for my $suite (@suites) { my $data = ""; my %data = (); chomp; - print "Doing line ".($./1000)."k (out of approx 1.5M)\n" if $. % 250000 == 0; + print "Doing line ".($./1000)."k (out of approx 2.0M)\n" if $. % 250000 == 0; /^(.+?)\s+(\S+)$/o; my ($file, $value) = ($1, $2); $value =~ s#[^,/]+/##og; @@ -162,7 +162,7 @@ for my $suite (@suites) { my $lastpath = my $lastcasepath = my $lastfile = ""; my %matches = (); while () { - print "Doing line ".($./1000000)."M (out of approx. 16M)\n" + print "Doing line ".($./1000000)."M (out of approx. 20M)\n" if $. % 1000000 == 0; chomp; my @line = split /\0/o, $_;