«

I'm trying to convert all occurances of variables of the form

VARIABLE_ONE, VARIABLE_NUMBER_TWO, a_really_long_VARIABLE_name

to the form

VariableOne, VariableNumberTwo, AReallyLongVariableName

Here's my Program:

$_='a_really_long_VARIABLE_name';
s/([A-Za-z])([^_ \t\n]*?)(_([A-Za-z0-9])([^_ \t\n]*?))+/\u$1\L$2\E\u$4\L$5\E/;
print;
__END__

Prints "AReally_long_VARIABLE_name".

Can anyone help?

SqlSlinger <> wrote:
> I'm trying to convert all occurances of variables of the form
> VARIABLE_ONE, VARIABLE_NUMBER_TWO, a_really_long_VARIABLE_name
> to the form
> VariableOne, VariableNumberTwo, AReallyLongVariableName


my @vars = qw(VARIABLE_ONE VARIABLE_NUMBER_TWO a_really_long_VARIABLE_name);
my %StudlyCaps;
foreach (@vars) {
my $var = ucfirst lc;
$var =~ s/_(.)/\U$1/g;
$StudlyCaps{$_} = $var;
}
use Data:umper;
print Dumper(\%StudlyCaps);


--
Glenn Jackman
NCF Sysadmin

>>>>> "GJ" == Glenn Jackman <> writes:


GJ> my @vars = qw(VARIABLE_ONE VARIABLE_NUMBER_TWO
GJ> a_really_long_VARIABLE_name);

GJ> foreach (@vars) {
GJ> my $var = ucfirst lc;
GJ> $var =~ s/_(.)/\U$1/g;
GJ> }

s/_?(.)([^_]*)/\U$1\L$2/g ;

uri

--
Uri Guttman ------ -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org

Uri Guttman <> wrote:
> >>>>> "GJ" == Glenn Jackman <> writes:
> GJ> my $var = ucfirst lc;
> GJ> $var =~ s/_(.)/\U$1/g;
>
> s/_?(.)([^_]*)/\U$1\L$2/g ;

Good one.

--
Glenn Jackman
NCF Sysadmin

SqlSlinger wrote:
>
> I'm trying to convert all occurances of variables of the form
>
> VARIABLE_ONE, VARIABLE_NUMBER_TWO, a_really_long_VARIABLE_name
>
> to the form
>
> VariableOne, VariableNumberTwo, AReallyLongVariableName
>
> Here's my Program:
>
> $_='a_really_long_VARIABLE_name';
> s/([A-Za-z])([^_ \t\n]*?)(_([A-Za-z0-9])([^_ \t\n]*?))+/\u$1\L$2\E\u$4\L$5\E/;
> print;
> __END__
>
> Prints "AReally_long_VARIABLE_name".
>
> Can anyone help?


for ( qw/ VARIABLE_ONE VARIABLE_NUMBER_TWO a_really_long_VARIABLE_name / ) {
print;
print join '', map "\u\L$_", split /_/;
}



John
--
use Perl;
program
fulfillment

Glenn, Uri, John,

Excellent suggestions all!

Now here's the rest of what I should have told you. I use Perl every
chance I get, but in this case I'm hoping to program a macro in
TextPad to perform this kind of substitution. TextPad REs support
most of the Perl RE features, but not the g (global) modifier and not
loops. This is why I was attempting to get it all done in the s///
statement. If it won't work, of course, I can program a quick perl
script to do it using any of your suggestions, but that's slightly
more inconvenient than the TextPad macro.

For my own info, is there any way to get a repeated outer grouping in
the pattern to replace while referencing (and modifying) the inner
grouping in the replace string?

Uri Guttman <> wrote in message news:<>...
> >>>>> "GJ" == Glenn Jackman <> writes:
>
>
> GJ> my @vars = qw(VARIABLE_ONE VARIABLE_NUMBER_TWO
> GJ> a_really_long_VARIABLE_name);
>
> GJ> foreach (@vars) {
> GJ> my $var = ucfirst lc;
> GJ> $var =~ s/_(.)/\U$1/g;
> GJ> }
>
> s/_?(.)([^_]*)/\U$1\L$2/g ;
>
> uri

Nice and compact, but doesn't isolate only variables containing an
underscore. If run against a source file, would match any word,
right?

Vince

At 2004-02-19 05:37 -0800, SqlSlinger wrote:
> Now here's the rest of what I should have told you. I use Perl every
> chance I get, but in this case I'm hoping to program a macro in
> TextPad to perform this kind of substitution. TextPad REs support
> most of the Perl RE features, but not the g (global) modifier and not
> loops. This is why I was attempting to get it all done in the s///
> statement. If it won't work, of course, I can program a quick perl
> script to do it using any of your suggestions, but that's slightly
> more inconvenient than the TextPad macro.
>

If you need a single substitution to work over the entire file, how
about doing something like

s/ ([a-zA-Z0-9])([a-zA-Z0-9]*)(?=_[a-zA-Z0-9_])
| (?<=[a-zA-Z0-9_]_)([a-zA-Z0-9])([a-zA-Z0-9]*)
/\U$1$3\L$2$4/xg

>>>>> "S" == SqlSlinger <> writes:

S> Uri Guttman <> wrote in message news:<>...
>> >>>>> "GJ" == Glenn Jackman <> writes:
>>
>>
GJ> my @vars = qw(VARIABLE_ONE VARIABLE_NUMBER_TWO
GJ> a_really_long_VARIABLE_name);
>>
GJ> foreach (@vars) {
GJ> my $var = ucfirst lc;
GJ> $var =~ s/_(.)/\U$1/g;
GJ> }
>>
>> s/_?(.)([^_]*)/\U$1\L$2/g ;
>>
>> uri

S> Nice and compact, but doesn't isolate only variables containing an
S> underscore. If run against a source file, would match any word,
S> right?

probably but that could be fixed with some guard regex stuff. and it
wasn't in the spec which showed a qw list of tokens. you need to code to
what is posted (unless it is obvious the OP is having an XY problem or
way off base).

uri

--
Uri Guttman ------ -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org

fifo <> wrote in message news:<20040219143341.GA14410@fleece>...
> At 2004-02-19 05:37 -0800, SqlSlinger wrote:
> > Now here's the rest of what I should have told you. I use Perl every
> > chance I get, but in this case I'm hoping to program a macro in
> > TextPad to perform this kind of substitution. TextPad REs support
> > most of the Perl RE features, but not the g (global) modifier and not
> > loops. This is why I was attempting to get it all done in the s///
> > statement. If it won't work, of course, I can program a quick perl
> > script to do it using any of your suggestions, but that's slightly
> > more inconvenient than the TextPad macro.
> >
>
> If you need a single substitution to work over the entire file, how
> about doing something like
>
> s/ ([a-zA-Z0-9])([a-zA-Z0-9]*)(?=_[a-zA-Z0-9_])
> | (?<=[a-zA-Z0-9_]_)([a-zA-Z0-9])([a-zA-Z0-9]*)
> /\U$1$3\L$2$4/xg

Prints A_Really_Long_Variable_Name. Can we lose the underscores? I'm
not familiar with the RE directives you've used to be able to work up
an adjusted version, but I'll look into it. Doesn't seem to affect
text without the underscore, which is nice.

Thanks!