On Wed, Feb 17, 2010 at 02:41:27PM -0800, jbl wrote: > (sorry if there is a duplication, I tried posting this with my > newsgroup client and it has never showed up) > > I need three versions of a string ($city) > (In case EAST BANK is entered) > > (1) capitol first (cowboy case) East Bank > (2) Any spaces present changed to undersccore East_Bank > (3) Any spaces present changed to plus sign East+Bank > > #!/usr/local/bin/perl -w > use strict; > > print "\nEnter the city name: ? "; > chomp(my $city = <STDIN>); > > # make sure that it is capitol first (cowboy case) ie East Bank > $city =~ s/(\w+)/\u\L$1/g; > > my $cityUnderscore = $city; > $cityUnderscore =~ tr / /_/; > > my $cityPlus = $city; > $cityPlus =~ tr / /+/; > print "$city\n"; > print "$cityUnderscore\n"; > print "$cityPlus\n"; > > Is there a simple one line way to initialize each of the last two > extra strings and then change spaces to the correct _ / + > > Instead of doing it in two lines as I have here?
Yes, but it's not particularly pretty: (my $cityUnderscore = $city) =~ tr/ /_/; -- Paul Johnson - p...@pjcj.net http://www.pjcj.net -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
