small letters

You want to change all capital letters into small letters. But then you want to change the first letter of a word into a capital letter. Your content is stored in r1.txt. The result of the script is stored in r2.txt

 

open (ERSTE, "r1.txt") || die "file not found\n";

@urls = <ERSTE>;
close (ERSTE);
open (OUTFILE, ">>r2.txt");

for(@urls)
{

$_ =~ tr/A-Z/a-z/; # change all in small letters
$_ = "\u$_"; # change the first into big letters

print OUTFILE $_,;
$i++;
}
close (OUTFILE);

 

 

 

 Back to previous page

Get Free Autoresponder

Enter your email address below and you will receive a powerful Autoresponder and our Special Ezine for free:

(Please use your real email address or else you won't receive the free script)

Name: *
Email: *

Or you can subscribe by clicking this link to send an email automatically:

mailto:amlmEzine@DrQuek.com