Perl Regular Expression

abdul_zu · 08-20-2007, 01:35 AM

HI All,

I have a small problem to separate two string from one line. Could you please help me how i can do this following string using regular expression or with other method by Perl Language.

i have following values in variable but before and after '->' some time can be other numbers and char.

$var1 = "00->254157474#;";
$var2 = "585758->;"

i need to put like:

$before1 = 00;
$after1 = "254157474#";

same for second line

$before2 = 585758;
$after2 = "";

I will be appreciate for your kind of help.

Thank You
Lateef

googlebot · 08-20-2007, 02:53 AM

$before = $after = $var1;

$before =~ s/(.*)->(.*)/$1/;
$after =~ s/(.*)->(.*)/$2/;

hope you'll figure out remaining parts ^)

abdul_zu · 08-20-2007, 03:57 AM

Thank You very much it is working well.