Re: string change problem

[Flemming Greve Skovengaard]

MuthuKumar wrote:
    Hai all.

        I want to make a script which converts like (pErl1234test = perl).I
wrote like
        #!/usr/bin/perl
        print "Enter ur name"
        $name = <STDIN>
        $org_name = $name
        $name =~ s/\W.*//;      #change 1
        $name =~ tr/A-Z/a-z/;  #change  2
        print "Old = $org_name\n";
        print "New = $name\n";
        But i can not get a change on the change 1 and 2 lines.

    Regards,
    Muthukumar.



This should work:

__BEGIN__

#!/usr/bin/perl

my ($name, $org_name);

print "Enter your name: ";
chomp($name = <STDIN>);
$org_name = $name;

$name =~ s/[^A-Za-z]\w*//g;      #change 1
$name =~ tr/A-Z/a-z/;  #change  2
print "Old = $org_name\n";
print "New = $name\n";
__END__

--
Flemming Greve Skovengaard            And when you kill a man, you're a murderer
a.k.a Greven, TuxPower                Kill many, and you're a conqueror
<[EMAIL PROTECTED]>           Kill them all ... Ooh ... Oh you're a god!
4168.08 BogoMIPS                      - MegaDeth, Countdown to Extinction
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>