Comapring two values of a scalar

[bonny]

Hi All, I have one question, suppose a variable is $array[0]= \31:15\; Now I want to find the difference between two numbers... here, (31-15) please guide me. PS: this variable will be assigned different values at different time, i.e \15:0\, \7:0\, \127:0\, \127:15\ etc...

[igelkott]

Looks like you tried to write \[31:15\] rather than use code tags. See Markup in the Monastery for help with posting questions.

Taking a bit of a guess but you probably have something like $array[0]= "31:15";. If so, just split on the ":" and do the subtraction. This should be simply enough for a beginner (sorry for the assumption) but if it gets confusing, try the same thing on a simple variable (scalar) like $foo= "31:15";.

[BillKSmith]

Uner the same assumption, I prefer a regular expression. The Common module will match any valid number. The /e option will do the subtraction. The /r option returns the result without modifying the original string.

use strict;
use warnings;
use Regexp::Common;
my $NUMBER = qr/$RE{num}{real}/;
my @array = ('31:15');
print $array[0] =~ s/($NUMBER):($NUMBER)/$1-$2/er;

[igelkott]

Regexp::Common

While nice and general, this seems a bit heavy for the OP, especially considering the the rather regular examples given. Of course, always nice to see an example of a more general/powerful solution.

[LanX]

Plz format your posting according to Markup in the Monastery

And then plz try to rephrase your question, the code given doesn't look like Perl and your examples are cryptic...