yanick/gimps-review
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

use /r to substitute in place

Browse Source
This commit is contained in:
Yanick Champoux 2023-08-26 11:13:06 -04:00
parent a7ac2aa7e8
commit 352d0b7402
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
script.pl
View File

@ -59,10 +59,8 @@ sub generate_output_table ($ts) {
foreach my $row ( $ts->rows ) { foreach my $row ( $ts->rows ) {
foreach my $cell ($row) { foreach my $cell ($row) {
my $machine = @$cell[0]; my $machine = @$cell[0];
my $ghz_days = @$cell[6]; my $days = @$cell[4] =~ s/\s//gr;
$ghz_days =~ s/\s//g; my $ghz_days = @$cell[6] =~ s/\s//gr;
my $days = @$cell[4];
$days =~ s/\s//g;
if ( $days > 0 ) { if ( $days > 0 ) {
my $perf = $ghz_days / $days; my $perf = $ghz_days / $days;