Re: How to Split on specific occurrence of a comma


"be consistent"
	PerlMonks

Re: How to Split on specific occurrence of a comma

by tybalt89 (Monsignor)

on Dec 03, 2020 at 22:08 UTC ( [id://11124605]=note: print w/replies, xml )

Need Help??

in reply to How to Split on specific occurrence of a comma

#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11124600
use warnings;

my $line;
my @teams;

while ( $line = <DATA> )
  {
  chomp $line;
  if ($line =~ /^#/ || $line =~ /^\s*$/) 
    {
    next;
    }
  $line =~ s/^[^=]*\=//;

  push @teams, map [ split /,/ ], "$line," =~ /((?:.*?,){1,3})/gx;

  }
use Data::Dump 'dd'; dd \@teams;

__DATA__
Teams=PATRIOTS,BILLS,DOLPHINS,JETS,COWBOYS,GIANTS,EAGLES,REDSKINS,BENG
+ALS,OILERS,STEELERS,BROWNS,SEAHAWKS,RAMS,49ERS,RAIDERS
[download]

Outputs:

[
  ["PATRIOTS", "BILLS", "DOLPHINS"],
  ["JETS", "COWBOYS", "GIANTS"],
  ["EAGLES", "REDSKINS", "BENGALS"],
  ["OILERS", "STEELERS", "BROWNS"],
  ["SEAHAWKS", "RAMS", "49ERS"],
  ["RAIDERS"],
]
[download]