Solved

Substr

Posted on 1998-09-05
4
283 Views
Last Modified: 2010-07-27
I have some srings like
<br><a href="test.htm"><b>Some Text</b></a>
and
<br><a href="testgetmore.htm"><b>More Text</b></a>

i want to get the substring after <b> and before </b> but the position of "<b>" is on a defrent position in the string
how do i get the position of the <b> and how do u use substr?

Thanks

0
Comment
Question by:delpro
  • 2
  • 2
4 Comments
 
LVL 84

Expert Comment

by:ozo
ID: 1204700
($substring) = $string =~ m|<b>(.*?)</b>|;

#to get the position of the <b>
$position = index $string,'<b>';
#to use substr
$substring = substr $string,$position+3;
#or
$substring = substr $string,$position+3,(index $string,'</b>')-$position-3;
0
 
LVL 28

Accepted Solution

by:
sybe earned 0 total points
ID: 1204701
sub ExtractBetween
{
  local($string, $tag1, $tag2) = @_;
  $ind1 = index($string, $tag1) + length($tag1);
  $ind2 = index($string, $tag2);
  $string = substr($string,$ind1,$ind2-$ind1);
  return $string;
}


$yourstring = '<br><a href="test.htm"><b>Some Text</b></a>';
$extractedstring = ExtractBetween($yourstring,'<b>','</b>');

0
 
LVL 84

Expert Comment

by:ozo
ID: 1204702
#If you're going to use it in a sub, then perhaps
 $ind2 = index($string, $tag2);
#would be be safer as
 $ind2 = index($string, $tag2, $ind1);
#so that
ExtractBetween('</b><br><a href="test.htm"><b>Some Text</b>',<b>','<');
#still works

#although for literal tags,
($extractedstring) = $yourstring =~ m|<b>(.*?)</b>|;
#still seems easier
0
 
LVL 28

Expert Comment

by:sybe
ID: 1204703
I wrote my answer as ozo posted his comment, so i did not see his first comment.
Anyway, I agree with ozo that his answer is easier.

ozo, you're a real perl-magician !

0

Featured Post

Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Union rows in array that have common elements (Part 2) 4 86
Perl Frameworks 1 107
How to translate this 2-line while loop into C from Perl? 8 135
html form to write data to csv 24 166
I've just discovered very important differences between Windows an Unix formats in Perl,at least 5.xx.. MOST IMPORTANT: Use Unix file format while saving Your script. otherwise it will have ^M s or smth likely weird in the EOL, Then DO NOT use m…
Checking the Alert Log in AWS RDS Oracle can be a pain through their user interface.  I made a script to download the Alert Log, look for errors, and email me the trace files.  In this article I'll describe what I did and share my script.
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…

749 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question