1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
# ==== Purpose ====
#
# Wait until the grep for a pattern in a file produces some non-empty
# result.
#
# NOTE: to better support the more strict usage with MySQL error log files
# and MTR, the search output is reset whenever the MTR beginning-of-test
# tag is found (CURRENT_TEST: ...).
#
# ==== Usage ====
#
# --let $grep_pattern = PERL_REGEX
# --let $grep_file = FILENAME
# [--let $wait_timeout = SECONDS]
# --source include/wait_for_pattern_in_file.inc
#
# Parameters:
#
# $grep_pattern
# The pattern to search for. This can be a perl regex.
#
# $grep_file
# The file to search in.
#
# $wait_timeout
# If instantiated, the wait period in seconds to wait for the pattern
# to appear in the file. If not instantiated, it will wait
# indefinitely.
#
--let _WFPIF_GREP_PATTERN = $grep_pattern
--let _WFPIF_GREP_FILE = $grep_file
--let _WFPIF_WAIT_TIMEOUT = $wait_timeout
--echo include/wait_for_pattern_in_file.inc [$grep_pattern]
--perl
use strict;
use IO::File;
my $file = $ENV{'_WFPIF_GREP_FILE'} or die "grep_file is not set";
my $pattern = $ENV{'_WFPIF_GREP_PATTERN'} or die "grep_pattern is not set";
my $wait_timeout = $ENV{'_WFPIF_WAIT_TIMEOUT'};
my $found = 0;
my $timeout = $wait_timeout;
my $line = '';
open(my $fd, "<", $file) or die("Unable to open $file: $!\n");
while ($found == 0) {
while (<$fd>) {
$line = $line . $_;
if (substr($line, length($line) - 1, 1) eq "\n" || substr($line, length($line) - 2, 2) eq "\r\f") {
if (($line =~ /^CURRENT_TEST: /)) {
$found = 0;
}
if ($found == 0 && $line =~ /$pattern/) {
$found = 1;
}
$line = '';
}
}
if ($found == 0) {
if ($wait_timeout != 0) {
if ($timeout == 0) {
die "Wait timeout reached in `wait_for_pattern_in_file.inc`";
}
--$timeout;
}
sleep 1;
# Clear the end-of-file condition,
# see https://perldoc.perl.org/functions/seek
# "This is also useful for applications emulating tail -f"
seek($fd, 0, SEEK_CUR);
}
}
close($fd) or die "Error closing $file: $!";
EOF
|
