Hi all, I'm new to this forum and i'm learing perl.... on the way i got a doubt....I needed a script which stores all the numbers, which is followed by "MAN", in a .txt file. For eg: The file may contains statements like MAN:113 some other test 666.... MAN 231,456 TEXTtext alpha Man 999 etc..77789 etc man 111,222,333 Here my script should store only those numbers followed by "man"(case insensitive), i,e 113,231,456,999,111,222,333 (not 666,77789) How can i do that? I wrote script which does part of it but cant recognize 222 in man 111,222. :( 
$line = <FILE>;
$i=0;
$Count=0;
@Temp_array=0;

 while ($line ne "") {
                $_=$line;
    if (/MAN [0-9]+/ ||  /MAN: [0-9]+/ ) {
                         $Temp_array[$i]=$&;
                          $_=$Temp_array[$i];
                         if(/ [\d]*/)
                                      {
                                 $Bug_num_array[$Count]=$&;
                                     }
          $i++;
                   $Count++;
                           }
      $line = <FILE>;       
    }

close FILE;

[download]
please help me to solve this...Thank u

In reply to regular expression to match in between digits.. by aurora26

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.