Re: string change problem

[WC -Sx- Jones]

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";
#! /usr/bin/perl -w

print "Enter ur name";
my $name = <STDIN>;
my $org_name = $name;
$org_name =~ s/[^a-z]/ /gi;
$org_name =~ tr/A-Z/a-z/;
print "       Org = $org_name\n";
print "As Entered = $name\n";
HTH/Sx

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>