How can I strip this line with regular expession to get 12345 number
within brackets:

$line = "some text is here (12345 ms)";

This did not work:

$text = $line;
$text =~ m/\((\d+)\)/;

You also posted this question to comp.lang.perl.misc. Please
don't multi-post.

Greg
--
Pulling together is the aim of despotism and tyranny. Free men pull in
all kinds of directions.
-- Terry Pratchett

vunet.us [at] gmail.com wrote:

> How can I strip this line with regular expession to get 12345 number
> within brackets:
>
> $line = "some text is here (12345 ms)";
>
> This did not work:
>
> $text = $line;
> $text =~ m/\((\d+)\)/;

$text =~ m/\((\d+)[^\)]*\)/;
or
$text =~ m/\((\d+).*?\)/;

HTH

Tim

On May 16, 4:24 pm, Tim S <t... [at] dionic.net> wrote:
> vunet... [at] gmail.com wrote:
> > How can I strip this line with regular expession to get 12345 number
> > within brackets:
>
> > $line = "some text is here (12345 ms)";
>
> > This did not work:
>
> > $text = $line;
> > $text =~ m/\((\d+)\)/;
>
> $text =~ m/\((\d+)[^\)]*\)/;
> or
> $text =~ m/\((\d+).*?\)/;
>
> HTH
>
> Tim

Thanks Tim.

I posted the question again because there were a few hours of delay
for my post to show up.

On May 16, 12:59 pm, vunet... [at] gmail.com wrote:
> How can I strip this line with regular expession to get 12345 number
> within brackets:
>
> $line = "some text is here (12345 ms)";
>
> This did not work:
>
> $text = $line;
> $text =~ m/\((\d+)\)/;

Why not:

$number = $1 if ($line =~ /\((\d+)\D*\)/);

# ??? -- Keith