$data = q`
NCLOC      Filename
--------  -------------------------
3198      X:/bs/al/src/eilass.pl
`;

  ## Avoid binary:
  $data =~ s/\r\n?/\n/gs ; 

  ## Split the top and content:
  my ( $top , $content ) = split(/\n--[-\s]+\n/s , $data) ;
  $top = "\n$top\n" ; $content = "\n$content\n" ;

  ## The col names:
  my ($col_name_1,$col_name_2) = ( $top =~ /\n(\w+)\s+(\w+)/gs );

  ## The content by cols:
  my ($col_1,$col_2) = ( $content =~ /\n([^\s]+)\s+([^\s]+)/gs ) ;

  print "$col_1,$col_2\n" ;
  
  ## Now get your variables:
  
  my ($filename) = ( $col_2 =~ /([^\/]+)\/*$/gi );
  my $lineOfCode = $col_1 ;
  
  print "$filename\n$lineOfCode\n" ;


  ## Or put inside a while to get all the lines
  ## of the content:

  while( $content =~ /\n([^\s]+)\s+([^\s]+)/gs ) {
    print "$1,$2\n" ;
  }

[download]


See the regular expression doc: http://www.perldoc.com/perl5.6/pod/perlre.html

"The creativity is the expression of the liberty".

In reply to Re: parse (K.I.S.S. peoples!) by gmpassos
in thread simple parse question by Sara

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.