«

Hi,

Is there a nicer way of doing the following?

$a = lc($a);

Doesn't look "perlish" if you know what I mean.

Cheers,

--
Chris Smith
http://www.infinitemonkeys.org.uk/

On Wed, 01 Oct 2003 13:41:02 +0100, Chris Smith wrote:
> Is there a nicer way of doing the following?
>
> $a = lc($a);
>
> Doesn't look "perlish" if you know what I mean.

No. I don't know what you mean. What do you mean? Do you find solutions
like this one more "perlish"?

$a =~ tr/A-Z/a-z/;

If so, you shouldn't be using Perl.


--
Tore Aursand <>

Chris Smith wrote:
> Is there a nicer way of doing the following?
>
> $a = lc($a);
>
> Doesn't look "perlish" if you know what I mean.

I don't know that. Looks nice enough to me.

You'd better avoid using $a (as well as $b) outside the sort()
function, though.

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

Tore Aursand wrote:

> On Wed, 01 Oct 2003 13:41:02 +0100, Chris Smith wrote:
>> Is there a nicer way of doing the following?
>>
>> $a = lc($a);
>>
>> Doesn't look "perlish" if you know what I mean.
>
> No. I don't know what you mean. What do you mean? Do you find solutions
> like this one more "perlish"?
>
> $a =~ tr/A-Z/a-z/;
>
> If so, you shouldn't be using Perl.

I'm talking more like:

lc $a;

And return the value in $a rather than $_

$a=lc($a);

is very BASIC-like if you know what I mean.

Perhaps it's just me being fussy :/

--
Chris Smith
http://www.infinitemonkeys.org.uk/

Gunnar Hjalmarsson wrote:

> Chris Smith wrote:
>> Is there a nicer way of doing the following?
>>
>> $a = lc($a);
>>
>> Doesn't look "perlish" if you know what I mean.
>
> I don't know that. Looks nice enough to me.
>
> You'd better avoid using $a (as well as $b) outside the sort()
> function, though.

Have done - the real code is:

$article = lc($article);

Just shortening it for the example.

Thanks for the tip though - didn't know $a and $b were "recommended
avoidables".

--
Chris Smith
http://www.infinitemonkeys.org.uk/

Chris Smith wrote:
> $a=lc($a);
> is very BASIC-like if you know what I mean.

Does :

$a=lc$a;

look better? )

RobTM

Robert Szczygiel wrote:

> Chris Smith wrote:
>> $a=lc($a);
>> is very BASIC-like if you know what I mean.
>
> Does :
>
> $a=lc$a;
>
> look better? )

Even worse. I get your point

--
Chris Smith
http://www.infinitemonkeys.org.uk/

Chris Smith <> wrote:

> Is there a nicer way of doing the following?


Maybe.


> $a = lc($a);


Show us where $a _first_ gets its value.

You can lowercase it there without needing a separate step.

eg:

$a = lc $1;

$a = "\Qother $1 stuff"; # OTHER $1 STUFF

$a = "other \Q$1 stuff"; # other $1 STUFF

$a = "other \Q$1\E stuff"; # other $1 stuff


--
Tad McClellan SGML consulting
Perl programming
Fort Worth, Texas

>>>>> "CS" == Chris Smith <> writes:

CS> lc $a;

CS> And return the value in $a rather than $_

what return value in $_??


in general the only things that implicitly set $_ are loop contructs
(for, while( <FH> ), map, grep). i can't think of any function that will
just set $_ (i could be wrong). many functions use $_ as a default arg
which is not the same as a default return.

CS> $a=lc($a);

CS> is very BASIC-like if you know what I mean.

CS> Perhaps it's just me being fussy :/

yes.

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
Damian Conway Class in Boston - Sept 2003 -- http://www.stemsystems.com/class

On Wed, 01 Oct 2003 14:51:05 +0100, Chris Smith wrote:
>>> Is there a nicer way of doing the following?
>>>
>>> $a = lc($a);
>>>
>>> Doesn't look "perlish" if you know what I mean.

>> No. I don't know what you mean. What do you mean? Do you find
>> solutions like this one more "perlish"?
>>
>> $a =~ tr/A-Z/a-z/;
>>
>> If so, you shouldn't be using Perl.

> I'm talking more like:
>
> lc $a;
>
> And return the value in $a rather than $_

Sure, but what happens when you _want_ to check the return value of lc()?

my $str = "Don't mess with this text";
if ( lc( $str ) eq "don't mess with this text" ) {
# I'm not messing
}

> Perhaps it's just me being fussy :/

Yup.


--
Tore Aursand <>