diff options
| author | YuSanka <yusanka@gmail.com> | 2018-02-16 12:29:28 +0300 |
|---|---|---|
| committer | YuSanka <yusanka@gmail.com> | 2018-02-16 12:29:28 +0300 |
| commit | 53006384d582260f6f8bb1127fda49f0a9233635 (patch) | |
| tree | 9c9c51f5f63c04f89efa128a36387b27717a1dcd /utils | |
| parent | 1167458acdd5ec1414a2f4fae9bc4996bd464482 (diff) | |
Fixed converting of Unicode codepoint (\uXXXX) into a character in Perl.
Diffstat (limited to 'utils')
| -rwxr-xr-x | utils/post-processing/flowrate.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/post-processing/flowrate.pl b/utils/post-processing/flowrate.pl index 4d742631e..f29d2312d 100755 --- a/utils/post-processing/flowrate.pl +++ b/utils/post-processing/flowrate.pl @@ -25,7 +25,7 @@ while (<>) { my $mm_per_mm = $e_length / $dist; # dE/dXY my $mm3_per_mm = ($filament_diameter[$T] ** 2) * PI/4 * $mm_per_mm; my $vol_speed = $F/60 * $mm3_per_mm; - my $comment = sprintf ' ; dXY = %.3fmm ; dE = %.5fmm ; dE/XY = %.5fmm/mm; volspeed = %.5fmm\u00B3/sec', + my $comment = sprintf ' ; dXY = %.3fmm ; dE = %.5fmm ; dE/XY = %.5fmm/mm; volspeed = %.5fmm\x{00B3}/sec', $dist, $e_length, $mm_per_mm, $vol_speed; s/(\R+)/$comment$1/; } |