Re: split at '-

Since I wasn't 100% sure of what you were asking for, I give you two! two solutions in one!

#!/usr/bin/perl -w 
use strict;
use Data::Dumper;
my $line="this---is---Sparta!";

#
# Case 1 a line with *fields* seperated by dashes
my @f=split('---',$line);  #split the line along the dashes

print Dumper(\@f);

# Case 2   Records seperated by three dashes
my $oldIFS=$/; #save the old IFS

$/ = undef;    # make it undefined
$line=<DATA>;  # slurp in file
$/=$oldIFS;    # restore IFS

@f = split('---',$line); # split on dashes
$_ =~ s/^\n// foreach @f; # remove leading EOL
chomp (@f); # remove traiing EOL

print Dumper(\@f);


exit(0);   # we're done, going home
__END__
line1
---
line2
---
line3
[download]

when run gives you:

$VAR1 = [
          'this',
          'is',
          'Sparta!'
        ];
$VAR1 = [
          'line1',
          'line2',
          'line3'
        ];
[download]

Peter L. Berghold -- Unix Professional
Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg

Comment on Re: split at '- - -' Select or Download Code

Replies are listed 'Best First'.
Re^2: split at '- - -' by tobyink (Canon) on May 17, 2013 at 13:54 UTC
`undef` isn't the only useful thing you can assign to `$/`... `use strict; use Data::Dumper; my @f; { local $/ = "\n---\n"; chomp(@f = <DATA>); } print Dumper(\@f); exit; __END__ line1 --- line2 --- line3 ---` [download] `package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name`	[reply] [d/l] [select]
Re^2: split at '- - -' by hdb (Monsignor) on May 17, 2013 at 14:00 UTC
As a small variant, there could also be a hybrid case where you want to split on "---" if they are on a line by themselves but not if they occur within a line. Adapting Peter's code: `#!/usr/bin/perl -w use strict; use Data::Dumper; my $line; { local $/ = undef; $line=<DATA>; } chomp $line; my @f = split('\n---\n',$line); print Dumper(\@f); __END__ line1 --- line2---line2a --- line3` [download]	[reply] [d/l]
Re^2: split at '- - -' by Saved (Beadle) on May 17, 2013 at 14:05 UTC
Thanx, looking good...	[reply]

In Section Seekers of Perl Wisdom