【perl】 split関数のセパレータについて

質問

perlで　split関数を使いたいのですがセパレータの定義がうまくいかずに
困っています。

split関数で //\n　といった複雑な文字列をセパレータとして認識させるには
どうすればよいのでしょうか。
'/'　１文字だけでセパレータとされては意味がなく、 //\n　という文字列を
ひとまとめでセパレータとして認識させたいと思っています。
みなさま、よろしくお願いします。

回答No.1

sakusaker7 · ベストアンサー

別に複雑でもなんでもないと思いますが。

#!/usr/bin/perl
# -*- coding: utf8 -*
use strict;
use warnings;

my $str = do {local $/ = undef; <DATA>};

print "### original data###\n";
print $str;

my @elems = split qq{//\n}, $str;

print "### split!! ###\n";
print $_, "####\n" foreach (@elems);

__END__
element 1
hoge
fuga/
//
element 2
mogemoge
xxxx
dddd//
element 3
Perl
Python
PHP
Ruby

### original data###
element 1
hoge
fuga/
//
element 2
mogemoge
xxxx
dddd//
element 3
Perl
Python
PHP
Ruby
### split!! ###
element 1
hoge
fuga/
####
element 2
mogemoge
xxxx
dddd####
element 3
Perl
Python
PHP
Ruby
####

お礼

ありがとうございました！
見事解決いたしました！
本当にお世話になりました。