Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
1.10000E0 1.00000E0 1.00000E0
2.20000E0 2.00000E0 2.00000E0
3.30000E0 3.00000E0 3.00000E0
  2. or download this
    $ perl split.pl
1.100000E+00 1.100000E+03 1.000000E+00
2.200000E+00 2.200000E+03 2.000000E+00
3.300000E+00 3.300000E+03 3.000000E+00
  3. or download this
    use strict;
use warnings;

printf "%E %E %E\n", @{$_}[0..2] for map {$_->[1] *= 1.1E3; $_;} map [
+split], <DATA>;
  4. or download this
    printf "%E %E %E\n", @{$_}[0..2] for map {my $c = [split]; $c->[1] *= 
+1.1E3; $c;} <DATA>;