percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-10 05:00:45 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix for 1052722: pt-fifo-split is processing n-1 rows initially

Browse Source
This commit is contained in:
Brian Fraser fraserb@gmail.com
2012-10-22 18:04:38 -03:00
parent ca2675dd98
commit 4a22e1e545
2 changed files with 75 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
bin/pt-fifo-split
View File

@@ -1284,13 +1284,9 @@ sub main {
if ( $o->get('force') && -e $file ) {
unlink($file) or die "Can't unlink $file: $OS_ERROR";
}
mkfifo($file, 0777) or die "Can't make fifo $file: $OS_ERROR";
my $fh;
$fh = IO::File->new($file, '>') or die "Can't open $file: $OS_ERROR";
$fh->autoflush(1);
if ( $o->get('statistics') ) {
printf("%5s %9s %5s %8s %8s\n", qw(chunks lines time overall current));
}
@@ -1299,21 +1295,25 @@ sub main {
my $OFFSET = $o->get('offset');
my $LINES = $o->get('lines');
my $lines = 0;
my $chunks = 0;
my $start = time();
my $cstart = time();
my $chunks = 0;
my $start = time();
my $cstart = time();
my $printed = 0;
while ( my $line = <> ) {
$lines++;
my $lines = $INPUT_LINE_NUMBER;
next if $OFFSET && $lines < $OFFSET;
if ( $lines % $LINES == 0 ) {
if ( $printed == 0 ) {
mkfifo($file, 0777) or die "Can't make fifo $file: $OS_ERROR";
$fh = IO::File->new($file, '>') or die "Can't open $file: $OS_ERROR";
$fh->autoflush(1);
}
print $fh $line or die "Can't print: $OS_ERROR";
$printed++;
if ( ($lines % $LINES) == 0 ) {
close $fh or die "Can't close: $OS_ERROR";
unlink($file) or die "Can't unlink $file: $OS_ERROR";
mkfifo($file, 0777) or die "Can't make fifo $file: $OS_ERROR";
$fh = IO::File->new($file, '>') or die "Can't open $file: $OS_ERROR";
$fh->autoflush(1);
$printed = 0;
$chunks++;
my $end = time();
@@ -1325,11 +1325,10 @@ sub main {
}
$cstart = $end;
}
print $fh $line or die "Can't print: $OS_ERROR";
}
close $fh or die "Can't close: $OS_ERROR";
unlink($file) or die "Can't unlink $file: $OS_ERROR";
close $fh or die "Can't close: $OS_ERROR" if $fh && $fh->opened;
unlink($file) or die "Can't unlink $file: $OS_ERROR" if -e $file;
return 0;
}