multiplication within RegExp.

[Andreas]

Hi!

I have a Perl-problem, and I'm really not a Perl-person... Can you help me?

I want to translate a part of a line that looks like:
"...3*DATAWIDTH*4..." to "...24...".

I have the variables
$define_word = "DATAWIDTH".
$define_value = 2

The expression (without the new line):
$row =~ s/([0-9]+)\s*\*\s*$define_word\s*\*\s*([0-9]+)
/$define_value*$1*$2/gi;

just give me the string "...2*3*4...". How can I make this "...24..."

best regards,
Andreas Lundgren

 

[gnari]

Hi!

I have a Perl-problem, and I'm really not a Perl-person... Can you help me?

I want to translate a part of a line that looks like:
"...3*DATAWIDTH*4..." to "...24...".

I have the variables
$define_word = "DATAWIDTH".
$define_value = 2

The expression (without the new line):
$row =~ s/([0-9]+)\s*\*\s*$define_word\s*\*\s*([0-9]+)
/$define_value*$1*$2/gi;

just give me the string "...2*3*4...". How can I make this "...24..."

have a look at the /e modifier as in s///e;

perldoc perlop
(find s/// in the chapter "Regexp Quote-Like Operators")

 

[Chris]

Hi!

I have a Perl-problem, and I'm really not a Perl-person... Can you help me?

I want to translate a part of a line that looks like:
"...3*DATAWIDTH*4..." to "...24...".

I have the variables
$define_word = "DATAWIDTH".
$define_value = 2

The expression (without the new line):
$row =~ s/([0-9]+)\s*\*\s*$define_word\s*\*\s*([0-9]+)
/$define_value*$1*$2/gi;

just give me the string "...2*3*4...". How can I make this "...24..."

best regards,
Andreas Lundgren

$row =~ s/([0-9]+)\s*\*\s*$define_word\s*\*\s*([0-9]+)
/eval( $define_value*$1*$2 )/gei;

Chris

 

[Tore Aursand]

I want to translate a part of a line that looks like:
"...3*DATAWIDTH*4..." to "...24...".

I have the variables
$define_word = "DATAWIDTH".
$define_value = 2

The expression (without the new line):
$row =~ s/([0-9]+)\s*\*\s*$define_word\s*\*\s*([0-9]+)
/$define_value*$1*$2/gi;

just give me the string "...2*3*4...". How can I make this "...24..."

Hmm. What about the following?

my $string = '...3*DATAWIDTH*4...';
my $word = 'DATAWIDTH';
my $value = 2;

$string = s{(\d+)\*$word\*(\d+)}{ $1 * $value * $2 }eg;
print $string . "\n";

 

[David K. Wall]

I want to translate a part of a line that looks like:
"...3*DATAWIDTH*4..." to "...24...".

I have the variables
$define_word = "DATAWIDTH".
$define_value = 2

The expression (without the new line):
$row =~ s/([0-9]+)\s*\*\s*$define_word\s*\*\s*([0-9]+)
/$define_value*$1*$2/gi;

This is wrapped, isn't it?

just give me the string "...2*3*4...". How can I make this "...24..."

See 'perldoc perlop', s/PATTERN/REPLACEMENT/egimosx. You want the 'e'
option.

You can shorten the regex a little by using \d instead of [0-9].

$row =~ s/(\d+)\s*\*\s*$define_word\s*\*\s*(\d+)/$define_value*$1*$2/egi;

 

[Ben Morrow]

You can shorten the regex a little by using \d instead of [0-9].

They are different.

perl -le'print "\x{660}" =~ /\d/' # U+0660 is ARABIC-INDIC DIGIT ZERO
1

Perl is inconsistent, however:

perl -le'print 0+"\x{662}"'
0

$row =~ s/(\d+)\s*\*\s*$define_word\s*\*\s*(\d+)/$define_value*$1*$2/egi;

I would also strongly recommend using /x with all those *\* in there:

$row =~ s/(\d+) \s* \* \s* $define_word \s* \* \s* (\d+)
/$define_value * $1 * $2/egix;

(and now you can wrap it with impunity).

Ben

 

[gnari]

You can shorten the regex a little by using \d instead of [0-9].

They are different.

perl -le'print "\x{660}" =~ /\d/' # U+0660 is ARABIC-INDIC DIGIT ZERO
1

nice point.

Perl is inconsistent, however:

perl -le'print 0+"\x{662}"'
0

this is a bit stretching it isn't it?

oh. ok.


gnari