note
Samy_rio
<p>Hi [Wasted], Just try this,</p>
<code>
#!/usr/bin/perl
my $data = "Exlief 4 page : 1 /10";
if ($data =~ /pag\w+\s*:\s*(\d+)[^\d]*(\d+)/) {
print "Pages : $1 / $2\n";
}
my $data = "Exlief 4 page : 1 / 5";
if ($data =~ /pag\w+\s*:\s*(\d+)[^\d]*(\d+)/) {
print "Pages : $1 / $2\n";
}
__END__
Pages : 1 / 10
Pages : 1 / 5
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-460657">
<p>Regards,<br>Velusamy R.<hr><c>eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@|6%,53!-9@2~j';</c></p>
</div></div>
544308
544308