christoph/failnix
1
Fork 0
Code Releases Activity

pass substitution as function

Browse Source
This commit is contained in:
Christoph Urlacher
2026-04-18 18:03:05 +02:00
parent 4d714a4442
commit 5dd763fd8a
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
scripts/runner.pl
View File

@ -289,15 +289,15 @@ sub inject {
}
sub query {
my ( $experiment, $query, $args, $file, $substitution ) = @_;
my ( $experiment, $query, $args, $file, $postprocess ) = @_;
say "Running query $query";
my $result = qx{mariadb --defaults-file=$remote_db_conf $args -e "$query"};
die "Query failed: $?" if $? != 0;
if ( defined $substitution ) {
$result =~ $substitution;
if ( defined $postprocess ) {
$postprocess->($result);
}
open( my $results_handle, '>', "$remote_builds_dir/$experiment/$file" )
@ -339,7 +339,7 @@ GROUP BY p.injection_instr_absolute
ORDER BY SUM(t.time2 - t.time1 + 1) DESC;";
query( $experiment, $fail_markers_query, "--batch --raw",
"markers.csv", s/\t/,/g );
"markers.csv", sub { $_[0] =~ s/\t/,/g } );
}
# Run experiments