SPUG: reg exp's

[Parr, Ryan]

On Wed, 4 Sep 2002 20:30:29 -0700 , Ryan.Parr at wwireless.com wrote:
>>Some of the other solutions won't work because
>>heading1 in group one will get overwritten by heading 1 in group 2 and
then
>>on to three etc.

>I didn't see any that did that.

I should've added my standard disclaimer that incorrect rambling
probabilities increase with my regularly scheduled crack ingenstion.

>>In my opinion the best data structure for this situation would be an array
>>of hash refs. Each hash ref is it's own group. Each group is terminated in
>>the file by a single blank line.
>>
>>So here's my code. This will even make sure that multiple newlines between
>>groups or at the end of the file won't cause multiple hasrefs with the
>>single key 'undef' :)

>Or that.  Though yours gives an empty hashref if there are leading empty
>lines.

Damnit, you're right. 

>>#!/usr/bin/perl
>>use strict;

>missing "use warnings" here.

Yeah...

snip...

>Other than that, yours does pretty much the same as mine:

>my $data;
>$/ = '';  # read in a paragraph at a time
>while (<DATA>) {
>    push @$data, { split /:\s*(.*)\n+/ }
>}

I glanced at yours, missed where you split inside a hash ref, and that *you*
were the one smoking crack.

>though for non-quick&dirty use I'd do something more like yours
>with user warning messages for bad data.

Why though? Your's handles a little better.

 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
     POST TO: spug-list at pm.org       PROBLEMS: owner-spug-list at pm.org
      Subscriptions; Email to majordomo at pm.org:  ACTION  LIST  EMAIL
  Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address
 For daily traffic, use spug-list for LIST ;  for weekly, spug-list-digest
     Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org

 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
     POST TO: spug-list at pm.org       PROBLEMS: owner-spug-list at pm.org
      Subscriptions; Email to majordomo at pm.org:  ACTION  LIST  EMAIL
  Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address
 For daily traffic, use spug-list for LIST ;  for weekly, spug-list-digest
     Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org