>>>>> "XN" == Xavier Noria <[EMAIL PROTECTED]> writes:

  XN> What about a foreach loop:

  XN>      use Perl6::Slurp;

File::Slurp also supports $/ being a regex.

  XN>      $X = 4;
  XN>      $regexp = '.*\n?' x $X;

  XN>      foreach $Xlines (slurp 'foo.txt', { irs => qr/$regexp/ }) {
  XN>          # ...
  XN>      }

uri

-- 
Uri Guttman  ------  [EMAIL PROTECTED]  -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs  ----------------------------  http://jobs.perl.org

Reply via email to