TIMTOWTDI - why not use split ...
$ perl -e '@a = split /<\/?xyz>/, q(<xyz>a</xyz><xyz>a3</xyz><xyz>a2</
+xyz><xyz>a1</xyz>); print qq/@a\n/'
a a3 a2 a1
Update:
Ahhh, maybe I see one reason, using Data::Dumper to print the output gives:
$ perl -MData::Dumper -e '@a = split /\<\/?xyz\>/, q(<xyz>a</xyz><xyz>
+a3</xyz><xyz>a2</xyz><xyz>a1</xyz>); print Dumper \@a'
$VAR1 = [
'',
'a',
'',
'a3',
'',
'a2',
'',
'a1'
];
Question, for me at least is: why doesn't split swallow the sub-strings on which the string is split ? I'm obviously missing something, but can't see it - any enlightenment appreciated.
TIA
A user level that continues to overstate my experience :-))
|