Re: Proper creation of a negative number

[toolic]

Use the substitution operator to move a minus sign at the end of the string (if any) to the front of the string:

use warnings;
use strict;

while (<DATA>) {
    chomp;
    s/(.+)-$/-$1/;
    print "$_\n";
}

__DATA__
1.05
-5.66
7.89-

Outputs:

1.05
-5.66
-7.89

[Anonymous Monk]

Maybe with a regex that is slightly better at finding numbers, e.g. [.0-9]+\- versus 'anything-at-all' that is followed by a minus sign. Seems that the regex as writ could slurp up everything until the first minus.