Dear Friends,
I have the below code.
my $a = ":-:m:-:a:-:l:-:i:-:k"; # Here each letter is separated by :-:
my $del = ':-:'; # Delimeter
my $b;
while ($a ne $b)
{
$a =~ /^$b$del(.?)($del)?/;
my $c = $1;
print "$c\n";
$b .= $del . $c;
}
The above code is working fine. But when I change the text in $a like below
$a = ":-:m:-:a:-:l:-::-:k"; # Here I removed the letter l between two '::'s
Now the code is not working properly.
Any help in this is appreciated.
Note: There may be non-alpha numeric chars between ':-:'.
Regards,
Mallik.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
