CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Perl Programming Help: Beginner: Re: [rovf] Substitutions: Edit Log



IsabelleFr
Novice

Feb 13, 2013, 6:11 AM


Views: 897
Re: [rovf] Substitutions

Hey, ty! I've tried something but it's not yet what i wanted cause i can't do the replacement and recover all the string with the replaced items:

use strict;
use warnings;

my $ligne = <STDIN>;
my %norm = ("one" => 1, "two" => 2, "three" => 3);
my @array = split(' ', $ligne);

foreach my $elem (@array) {
if (exists $norm{$elem}) {
print "$norm{$elem}\n";
}
}

This will only print the value of the key if it is also in the array :X
I woud like to be able to write down "bobby has two cats and one dog" and get "bobby has 2 cats and 1 dog".


(This post was edited by IsabelleFr on Feb 13, 2013, 6:13 AM)


Edit Log:
Post edited by IsabelleFr (Novice) on Feb 13, 2013, 6:13 AM


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives