20 lines
389 B
Perl
Executable File
20 lines
389 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
|
|
my %conv = (one => 1, two => 2, three => 3
|
|
,four => 4, five => 5, six => 6
|
|
,seven => 7, eight => 8, nine => 9);
|
|
|
|
my $re = "\\d|" . join '|', keys %conv;
|
|
my $sum = 0;
|
|
|
|
while(<>) {
|
|
chomp;
|
|
/($re)/ or die "no head";
|
|
my $start = $conv{$1} || $1;
|
|
/.*($re)/ or die "no tail";
|
|
my $end = $conv{$1} || $1;
|
|
$sum += "$start$end";
|
|
}
|
|
print "$sum\n";
|