RegExp in one statement

[Don Stefani]

How can I do this in one statement?

my $ml_name = $q->param('ml_name');
$ml_name =~ s/^(\s*)//;

Thanks

- dstefani

 

[Ben Morrow]

Quoth (e-mail address removed):

How can I do this in one statement?

Why do you need to?

my $ml_name = $q->param('ml_name');
$ml_name =~ s/^(\s*)//;

(my $ml_name = $q->param('ml_name')) =~ s/^\s*//;

No need for the parens: you don't use $1.
Are you sure you don't want a /g on there? This will only remove the
first piece of whitespace.

Ben

 

[Sam Holden]

How can I do this in one statement?

my $ml_name = $q->param('ml_name');
$ml_name =~ s/^(\s*)//;

Thanks

(my $ml_name = $q->param('ml_name')) =~ s/^(\s*)//;

But it's ugly and a hard to read and not worth using.

 

[Kevin Collins]

How can I do this in one statement?

my $ml_name = $q->param('ml_name');
$ml_name =~ s/^(\s*)//;

(my $ml_name = $q->param('ml_name')) =~ s/^\s+//;

The parens are not needed since you are doing nothing with the captured match.
Additionally, you only care about removing space chars if there are some, and
since * means "zero or more" it is better to use +, which means "one or more"
because changing nothing to nothing is meaningless...

Kevin

 

[Don Stefani]

(my $ml_name = $q->param('ml_name')) =~ s/^\s+//;

The parens are not needed since you are doing nothing with the captured match.
Additionally, you only care about removing space chars if there are some, and
since * means "zero or more" it is better to use +, which means "one or more"
because changing nothing to nothing is meaningless...

Kevin

Thanks for the info.
Others seemed to think that this was ugly and hard to read, it works for me.

Thanks to all for you quick replys.

- dstefani

 

[Kevin Collins]

Quoth (e-mail address removed):

Why do you need to?


(my $ml_name = $q->param('ml_name')) =~ s/^\s*//;

No need for the parens: you don't use $1.
Are you sure you don't want a /g on there? This will only remove the
first piece of whitespace.

How many times can you match spaces starting at the beginning of a pattern?
Notice the "^"?

Kevin

 

[gnari]

Others seemed to think that this was ugly and hard to read, it works for

me.

what do they know?

this is a common perl idiom, and as such easily recognizable,
but should only be used if you are comfortable with it, because
you might have to take a look at it in 6 months time. ask
yourself: will i understand it then ? in that case, fine.

gnari

 

[Gregory Toomey]

Abigail
print v74.117.115.116.32, v97.110.111.116.104.101.114.32,
      v80.101.114.108.32, v72.97.99.107.101.114.10;

One of your better ones!

gtoomey