t/op/split.t

15 ($a,$b,$c) = split($FS,$_);
19 @ary = split(/:b:/);
23 my @xyz = (@ary = split(//));
27 @ary = split(/:/);
30 $_ = join(':',split(' ',"    a b\tc \t d "));
33 $_ = join(':',split(/ */,"foo  bar bie\tdoll"));
36 $_ = join(':', 'foo', split(/ /,'a b  c'), 'bar');
39 # Can we say how many fields to split to?
40 $_ = join(':', split(' ','1 2 3 4 5 6', 3));
45 $_ = join(':', split(' ','1 2 3 4 5 6', $x));
49 $_ = join(':', split(/:/,'1:2:3:4:5:6:::', 999));
52 # Does assignment to a list imply split to one more field than that?
53 if ($^O eq 'MSWin32') { $foo = `.\\perl -Dt -e "(\$a,\$b) = split;" 2>&1` }
54 elsif ($^O eq 'NetWare') { $foo = `perl -Dt -e "(\$a,\$b) = split;" 2>&1` }
55 elsif ($^O eq 'VMS')  { $foo = `./perl "-Dt" -e "(\$a,\$b) = split;" 2>&1` }
56 elsif ($^O eq 'MacOS'){ $foo = `$^X "-Dt" -e "(\$a,\$b) = split;"` }
57 else                  { $foo = `./perl -Dt -e '(\$a,\$b) = split;' 2>&1` }
60 # Can we say how many fields to split to when assigning to a list?
61 ($a,$b) = split(' ','1 2 3 4 5 6', 2);
66 $_ = join '|', split(/,|(-)/, "1-10,20,,,");
70 $_ = join '|', split(/,|(-)/, "1-10,20,,,", 10);
84 $_ = join('|', split(/x/,   '',-1), 'Z');
87 $_ = join('|', split(/x/,   '', 1), 'Z');
90 $_ = join('|', split(/(p+)/,'',-1), 'Z');
93 $_ = join('|', split(/.?/,  '',-1), 'Z');
98 $_ = join '|', split(/^a/m, "a b a\na d a", 20);
102 $_ = join '|', split(/a$/m, "a b a\na d a", 20);
106 $_ = join '|', split(/^aa/m, "aa b aa\naa d aa", 20);
110 $_ = join '|', split(/aa$/m, "aa b aa\naa d aa", 20);
115 @ary = split(/\s*:\s*/);
119 is('p:q:r:s', join ':', split('abc' =~ /b/, 'p1q1r1s'));
122 $_ = join ':', split /^/, "ab\ncd\nef\n";
125 # see if @a = @b = split(...) optimization works
126 @list1 = @list2 = split ('p',"a p b c p");
133 $_ = join ':', split /(?=\w)/, "rm b";
138 @ary = map {ord} split //, v1.20.300.4000.50000.4000.300.20.1;
141 @ary = split(/\x{FE}/, "\x{FF}\x{FE}\x{FD}"); # bug id 20010105.016
146 @ary = split(/(\x{FE}\xFE)/, "\xFF\x{FF}\xFE\x{FE}\xFD\x{FD}"); # variant of 31
159     my @a = map ord, split(//, join("", map chr, (1234, 123, 2345)));
165     my @a = map ord, split(/$x/, join("", map chr, (1234, ord($x), 2345)));
177     my @charlist = split //, $sushi;
195 	my ($a, $b, $c) = split(/\x40/, $s);
200     my ($a, $b) = split(/\x{100}/, $s);
203     my ($a, $b) = split(/\x{80}\x{100}\x{80}/, $s);
210 	my ($a, $b) = split(/\x40\x{80}/, $s);
215     my ($a, $b, $c) = split(/[\x40\x{80}]+/, $s);
224     my @b = split( //, $a );
235     my @a = split(/\xFE/, "\xFF\xFE\xFD");
245 	$r = join ':' => split($pat, "hello cruel world");
252     # split /(A)|B/, "1B2" should return (1, undef, 2)
253     my @x = split /(A)|B/, "1B2";
262     my @a = split /\r?\n/, "$char\n";
273 	    my @d = split /[,]/,$1;
282     eval { @a=split(/[, ]+/,$p) };
283     is ("$@-@a-", '-a b-', '#20912 - split() to array with /[]+/ and utf8');
289     $n = @a = split /,/,$p;
295     # assigning off the end of the array after a split could leave garbage
299     @a = split /,/, ',,,,,';