« Perl File::Copy and Apple’s ditto command
Script to mount a server »

Change case

Here is a little perl script that you can use to lowercase text with an uppercase first letter of each word. If you put it in your BBEdit unix filters it will work on any selected text.

#! perl -w
use strict;

while (<>) {
tr/[A-Z]/[a-z]/;
s/\b([a-z])/\u$1/g;
print $_;
}

This entry was posted on Friday, July 23rd, 2004 at 8:53 am and is filed under General, Perl, Unix. You can follow any responses to this entry through the RSS 2.0 feed. Both comments and pings are currently closed.

One Response to “Change case”

  1. Chevinboy Says:
    February 9th, 2005 at 6:44 pm

    Nice code - Shame it doesn’t work
    Second line should be:
    s/\b([a-z])/\u$1/g;