Shell Programming and Scripting

"ROWS merge process complete.  thousand rows changed"

#!/usr/bin/env perl

# @(#) p2       Demonstrate conversion of English to numbers, perl module.

use strict;
use warnings;
use Lingua::EN::Words2Nums;

my ( $num, $e, $f );
print "\n";

$e = "two thousand and one";
$num = words2nums($e);
print " $e = $num\n\n";

$e   = "ROWS merge process complete.  thousand rows changed";
$num = words2nums($e);
print " $e = $num\n\n" if defined $num;

$e   = "twenty-second";
$num = words2nums($e);
print " $e = $num\n\n" if defined $num;

$e   = "15 billion, 6 million, and nineteen";
$num = words2nums($e);
$f   = commify($num) if defined $num;
print " $e = $num, commified = $f\n" if defined $num;

exit(0);

sub commify {
  my $number = shift;

  # 1 while $number =~ s/(\d+)(\d\d\d)/$1,$2/;
  1 while $number =~ s/^([-+]?\d+)(\d{3})/$1,$2/;
  return $number;
}

$ ./p2

 two thousand and one = 2001

 twenty-second = 22

 15 billion, 6 million, and nineteen = 15006000019, commified = 15,006,000,019

OS, ker|rel, machine: Linux, 3.16.0-4-amd64, x86_64
Distribution        : Debian 8.7 (jessie) 
perl 5.20.2