Lines Matching refs:ary
19 @ary = split(/:b:/);
20 is(join("$_",@ary), 'aa:b:cc');
23 my @xyz = (@ary = split(//));
24 is(join(".",@ary), "a.b.c.\n");
27 @ary = split(/:/);
28 is(join(".",@ary), "a.b.c");
115 @ary = split(/\s*:\s*/);
116 is(($res = join(".",@ary)), "a.b.c.d", $res);
138 @ary = map {ord} split //, v1.20.300.4000.50000.4000.300.20.1;
139 is("@ary", "1 20 300 4000 50000 4000 300 20 1");
141 @ary = split(/\x{FE}/, "\x{FF}\x{FE}\x{FD}"); # bug id 20010105.016
142 ok(@ary == 2 &&
143 $ary[0] eq "\xFF" && $ary[1] eq "\xFD" &&
144 $ary[0] eq "\x{FF}" && $ary[1] eq "\x{FD}");
146 @ary = split(/(\x{FE}\xFE)/, "\xFF\x{FF}\xFE\x{FE}\xFD\x{FD}"); # variant of 31
147 ok(@ary == 3 &&
148 $ary[0] eq "\xFF\xFF" &&
149 $ary[0] eq "\x{FF}\xFF" &&
150 $ary[0] eq "\x{FF}\x{FF}" &&
151 $ary[1] eq "\xFE\xFE" &&
152 $ary[1] eq "\x{FE}\xFE" &&
153 $ary[1] eq "\x{FE}\x{FE}" &&
154 $ary[2] eq "\xFD\xFD" &&
155 $ary[2] eq "\x{FD}\xFD" &&
156 $ary[2] eq "\x{FD}\x{FD}");