On Friday, August 22, 2003, at 05:06 PM, bis wrote:[...]
Thanks Gabriel - your suggested code
s/(SCTN:\s*)(\w+)/$1\u$2\E/g;
Well, let's see if we can get a little closer:
s/(SCTN:\s*)(.+)$/join '', $1, map { ucfirst $_ } split /( )/, $2/ge;
See if that helps any.
It gives a syntax error. Maybe try this:
#!/usr/bin/perl -p s/(\s)(.)/$1\u$2/g if/SCTN:/;
or instead of /SCTN:/ use /^SCTN:/ or /^\s*SCTN:/ to match only if it's the first word in the line. Is that what you need?
-zsdc.
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
