#! 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
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 >
Hope that helps,
Athanasius <°(((>< contra mundum
|