<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0">
  <channel>
    <title>'what does below code do ??' Thread RSS Feed</title>
    <link>http://www.programmersheaven.com/</link>
    <description>Contains the latest posts from the thread 'what does below code do ??' posted on the 'Perl' forum at Programmer's Heaven.</description>
    <language>en</language>
    <copyright>Copyright 2013 Programmers Heaven</copyright>
    <pubDate>Sat, 25 May 2013 05:27:55 -0700</pubDate>
    <lastBuildDate>Sat, 25 May 2013 05:27:55 -0700</lastBuildDate>
    <generator>Argotic Syndication Framework 2007.3.0.1, http://www.codeplex.com/Argotic</generator>
    <docs>http://www.rssboard.org/rss-specification</docs>
    <ttl>360</ttl>
    <image>
      <url>http://www.programmersheaven.com/images/ph.gif</url>
      <title>Programmers Heaven</title>
      <link>http://www.programmersheaven.com/</link>
      <width>88</width>
      <height>31</height>
    </image>
    <item>
      <title>what does below code do ??</title>
      <link>http://www.programmersheaven.com/mb/perl/421632/421632/what-does-below-code-do-/</link>
      <description>Hi,&lt;br /&gt;
&lt;br /&gt;
  I have below code :&lt;br /&gt;
&lt;br /&gt;
my($abc) = "fred&amp;lt;hello&amp;gt;3hello";&lt;br /&gt;
$abc =~ /^[^\d]{2,4}&amp;lt;([^&amp;gt;]+)&amp;gt;\d?\1$/;&lt;br /&gt;
&lt;br /&gt;
if (defined($1)) {&lt;br /&gt;
print "$1\n";&lt;br /&gt;
} else {&lt;br /&gt;
print "not found\n";&lt;br /&gt;
&lt;br /&gt;
}&lt;br /&gt;
}&lt;br /&gt;
&lt;br /&gt;
What is the code doing ?? what function of the regular expression &lt;br /&gt;
&lt;br /&gt;
$abc =~ /^[^\d]{2,4}&amp;lt;([^&amp;gt;]+)&amp;gt;\d?\1$/;&lt;br /&gt;
&lt;br /&gt;
??</description>
      <guid isPermaLink="true">http://www.programmersheaven.com/mb/perl/421632/421632/what-does-below-code-do-/</guid>
      <pubDate>Wed, 09 Feb 2011 23:54:42 -0700</pubDate>
      <category>Perl</category>
    </item>
    <item>
      <title>Re: what does below code do ??</title>
      <link>http://www.programmersheaven.com/mb/perl/421632/422114/re-what-does-below-code-do-/#422114</link>
      <description>^          - beginning of the string&lt;br /&gt;
[^\d]{2,4} - 2 to 4 characters not containing a digit&lt;br /&gt;
([^&amp;gt;]+)    - \1 will be one or more characters until '&amp;gt;'&lt;br /&gt;
\d?        - zero or one digit&lt;br /&gt;
\1         - match word '\1' (hello)&lt;br /&gt;
$          - final of the string&lt;br /&gt;
&lt;br /&gt;
What is the code doing?&lt;br /&gt;
- Matches a string.</description>
      <guid isPermaLink="true">http://www.programmersheaven.com/mb/perl/421632/422114/re-what-does-below-code-do-/#422114</guid>
      <pubDate>Wed, 02 Mar 2011 05:56:41 -0700</pubDate>
      <category>Perl</category>
    </item>
    <item>
      <title>This post has been deleted.</title>
      <link>http://www.programmersheaven.com/mb/perl/421632/422115/this-post-has-been-deleted/#422115</link>
      <description>This post has been deleted.</description>
      <guid isPermaLink="true">http://www.programmersheaven.com/mb/perl/421632/422115/this-post-has-been-deleted/#422115</guid>
      <pubDate>Wed, 02 Mar 2011 05:59:15 -0700</pubDate>
      <category>Perl</category>
    </item>
  </channel>
</rss>