http://www.perlmonks.org?node_id=1003383


in reply to Regex Doubt

Perhaps you’re looking for something along these lines?

#! perl
use strict;
use warnings;
use Data::Dump;

my @records;

while (my $line = <DATA>)
{
    chomp(my @r = split / - /, $line);
    push @records, [ @r ];
}

dd @records;

__DATA__
Part Time - Weekend Receptionist - Barton le Clay - Barton-le-Clay (ne
+ar Luton)
Part-Time Weekend Day Veterinary Nurse - Milton Keynes
Receptionist - Barton-le-Clay (near Luton)
Full Time - Veterinary Nurse - Glasgow Referral - Glasgow

[download]

Output:

18:58 >perl 381_SoPW.pl
(
  [
    "Part Time",
    "Weekend Receptionist",
    "Barton le Clay",
    "Barton-le-Clay (near Luton)",
  ],
  ["Part-Time Weekend Day Veterinary Nurse", "Milton Keynes"],
  ["Receptionist", "Barton-le-Clay (near Luton)"],
  ["Full Time", "Veterinary Nurse", "Glasgow Referral", "Glasgow"],
)

18:59 >

[download]

Hope that helps,

Athanasius <°(((>< contra mundum

Replies are listed 'Best First'.
Re^2: Regex Doubt
by Anonymous Monk on Nov 12, 2012 at 09:09 UTC

    Thanks Athanasius. :)

[reply]

In Section Seekers of Perl Wisdom