Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains :
Cant Read [ /etc/named.conf ]
User : michaelgreg
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
var /
log /
perl-5.20.2 /
t /
op /
Delete
Unzip
Name
Size
Permission
Date
Action
64bitint.t
8.14
KB
-r--r--r--
2014-12-27 11:49
alarm.t
1.5
KB
-r--r--r--
2014-12-27 11:49
anonsub.t
1.7
KB
-r--r--r--
2014-12-27 11:49
append.t
1.58
KB
-r--r--r--
2014-12-27 11:49
args.t
2.12
KB
-r--r--r--
2014-12-27 11:49
array.t
12.32
KB
-r--r--r--
2014-12-27 11:49
array_base.t
720
B
-r--r--r--
2014-12-27 11:49
assignwarn.t
1.52
KB
-r--r--r--
2014-12-27 11:49
attrhand.t
1.01
KB
-r--r--r--
2014-12-27 11:49
attrproto.t
6.55
KB
-r--r--r--
2014-12-27 11:49
attrs.t
10.73
KB
-r--r--r--
2014-12-27 11:49
auto.t
2.36
KB
-r--r--r--
2014-12-27 11:49
avhv.t
4.04
KB
-r--r--r--
2014-12-27 11:49
bless.t
4.12
KB
-r--r--r--
2014-12-27 11:49
blocks.t
2.95
KB
-r--r--r--
2014-12-27 11:49
bop.t
12.82
KB
-r--r--r--
2014-12-27 11:49
caller.pl
3.75
KB
-r--r--r--
2014-12-27 11:49
caller.t
8.14
KB
-r--r--r--
2014-12-27 11:49
chars.t
1.73
KB
-r--r--r--
2014-12-27 11:49
chdir.t
6.68
KB
-r--r--r--
2014-12-27 11:49
chop.t
7.67
KB
-r--r--r--
2014-12-27 11:49
chr.t
2.48
KB
-r--r--r--
2014-12-27 11:49
closure.t
19.6
KB
-r--r--r--
2014-12-27 11:49
closure_test.pl
327
B
-r--r--r--
2014-12-27 11:49
concat2.t
1.41
KB
-r--r--r--
2014-12-27 11:49
cond.t
282
B
-r--r--r--
2014-12-27 11:49
context.t
404
B
-r--r--r--
2014-12-27 11:49
coreamp.t
29.17
KB
-r--r--r--
2014-12-27 11:49
coresubs.t
4.87
KB
-r--r--r--
2014-12-27 11:49
cproto.t
3.6
KB
-r--r--r--
2014-12-27 11:49
crypt.t
1.17
KB
-r--r--r--
2014-12-27 11:49
current_sub.t
1.71
KB
-r--r--r--
2014-12-27 11:49
dbm.t
1.54
KB
-r--r--r--
2014-12-27 11:49
defined.t
551
B
-r--r--r--
2014-12-27 11:49
defins.t
4.84
KB
-r--r--r--
2014-12-27 11:49
delete.t
2.93
KB
-r--r--r--
2014-12-27 11:49
die.t
1.99
KB
-r--r--r--
2014-12-27 11:49
die_except.t
1.57
KB
-r--r--r--
2014-12-27 11:49
die_exit.t
1.9
KB
-r--r--r--
2014-12-27 11:49
die_keeperr.t
1.57
KB
-r--r--r--
2014-12-27 11:49
die_unwind.t
1.69
KB
-r--r--r--
2014-12-27 11:49
do.t
8.35
KB
-r--r--r--
2014-12-27 11:49
dor.t
2.64
KB
-r--r--r--
2014-12-27 11:49
each.t
7.09
KB
-r--r--r--
2014-12-27 11:49
each_array.t
5.48
KB
-r--r--r--
2014-12-27 11:49
eval.t
13.92
KB
-r--r--r--
2014-12-27 11:49
evalbytes.t
989
B
-r--r--r--
2014-12-27 11:49
exec.t
4.36
KB
-r--r--r--
2014-12-27 11:49
exists_sub.t
2.09
KB
-r--r--r--
2014-12-27 11:49
exp.t
1.47
KB
-r--r--r--
2014-12-27 11:49
fh.t
790
B
-r--r--r--
2014-12-27 11:49
filehandle.t
564
B
-r--r--r--
2014-12-27 11:49
filetest.t
11.97
KB
-r--r--r--
2014-12-27 11:49
filetest_stack_ok.t
1.12
KB
-r--r--r--
2014-12-27 11:49
filetest_t.t
1.18
KB
-r--r--r--
2014-12-27 11:49
flip.t
868
B
-r--r--r--
2014-12-27 11:49
for.t
12.77
KB
-r--r--r--
2014-12-27 11:49
fork.t
8.8
KB
-r--r--r--
2014-12-27 11:49
fresh_perl_utf8.t
411
B
-r--r--r--
2014-12-27 11:49
getpid.t
1.61
KB
-r--r--r--
2014-12-27 11:49
getppid.t
3.13
KB
-r--r--r--
2014-12-27 11:49
glob.t
4.22
KB
-r--r--r--
2014-12-27 11:49
gmagic.t
5.97
KB
-r--r--r--
2014-12-27 11:49
goto.t
14.85
KB
-r--r--r--
2014-12-27 11:49
goto_xs.t
2.98
KB
-r--r--r--
2014-12-27 11:49
grent.t
4.46
KB
-r--r--r--
2014-12-27 11:49
grep.t
6.66
KB
-r--r--r--
2014-12-27 11:49
groups.t
11.15
KB
-r--r--r--
2014-12-27 11:49
gv.t
30.15
KB
-r--r--r--
2014-12-27 11:49
hash-rt85026.t
1.57
KB
-r--r--r--
2014-12-27 11:49
hash.t
6.02
KB
-r--r--r--
2014-12-27 11:49
hashassign.t
18.85
KB
-r--r--r--
2014-12-27 11:49
hashwarn.t
2.05
KB
-r--r--r--
2014-12-27 11:49
heredoc.t
2.29
KB
-r--r--r--
2014-12-27 11:49
inc.t
6.72
KB
-r--r--r--
2014-12-27 11:49
inccode-tie.t
338
B
-r--r--r--
2014-12-27 11:49
inccode.t
11.19
KB
-r--r--r--
2014-12-27 11:49
incfilter.t
7.33
KB
-r--r--r--
2014-12-27 11:49
index.t
6.81
KB
-r--r--r--
2014-12-27 11:49
index_thr.t
56
B
-r--r--r--
2014-12-27 11:49
int.t
1.72
KB
-r--r--r--
2014-12-27 11:49
join.t
3.2
KB
-r--r--r--
2014-12-27 11:49
kill0.t
3.18
KB
-r--r--r--
2014-12-27 11:49
kill0_child
596
B
-r--r--r--
2014-12-27 11:49
kvaslice.t
4.66
KB
-r--r--r--
2014-12-27 11:49
kvhslice.t
5.44
KB
-r--r--r--
2014-12-27 11:49
lc.t
11.8
KB
-r--r--r--
2014-12-27 11:49
leaky-magic.t
3.43
KB
-r--r--r--
2014-12-27 11:49
length.t
5.03
KB
-r--r--r--
2014-12-27 11:49
lex.t
2.33
KB
-r--r--r--
2014-12-27 11:49
lex_assign.t
7.17
KB
-r--r--r--
2014-12-27 11:49
lexsub.t
19.62
KB
-r--r--r--
2014-12-27 12:24
lfs.t
6.2
KB
-r--r--r--
2014-12-27 11:49
list.t
5.31
KB
-r--r--r--
2014-12-27 11:52
local.t
17.11
KB
-r--r--r--
2014-12-27 11:49
localref.t
2.73
KB
-r--r--r--
2014-12-27 11:49
lock.t
465
B
-r--r--r--
2014-12-27 11:49
loopctl.t
17.88
KB
-r--r--r--
2014-12-27 11:49
lop.t
1.2
KB
-r--r--r--
2014-12-27 11:49
magic-27839.t
622
B
-r--r--r--
2014-12-27 11:49
magic.t
21.81
KB
-r--r--r--
2014-12-27 11:49
method.t
18.91
KB
-r--r--r--
2014-12-27 11:49
mkdir.t
1.25
KB
-r--r--r--
2014-12-27 11:49
my.t
4.29
KB
-r--r--r--
2014-12-27 11:49
my_stash.t
769
B
-r--r--r--
2014-12-27 11:49
mydef.t
5.51
KB
-r--r--r--
2014-12-27 11:49
negate.t
4.3
KB
-r--r--r--
2014-12-27 11:49
not.t
3.15
KB
-r--r--r--
2014-12-27 11:49
numconvert.t
8.33
KB
-r--r--r--
2014-12-27 11:49
oct.t
3.58
KB
-r--r--r--
2014-12-27 11:49
or.t
1.79
KB
-r--r--r--
2014-12-27 11:49
ord.t
2.48
KB
-r--r--r--
2014-12-27 11:49
overload_integer.t
506
B
-r--r--r--
2014-12-27 11:49
override.t
4.33
KB
-r--r--r--
2014-12-27 11:49
pack.t
65.34
KB
-r--r--r--
2014-12-27 11:49
packagev.t
5.97
KB
-r--r--r--
2014-12-27 11:49
pos.t
3.59
KB
-r--r--r--
2014-12-27 11:49
postfixderef.t
11.97
KB
-r--r--r--
2014-12-27 11:49
pow.t
2.34
KB
-r--r--r--
2014-12-27 11:49
print.t
692
B
-r--r--r--
2014-12-27 11:49
protowarn.t
1.35
KB
-r--r--r--
2014-12-27 11:49
push.t
3.03
KB
-r--r--r--
2014-12-27 11:49
pwent.t
6.63
KB
-r--r--r--
2014-12-27 11:49
qr.t
2.32
KB
-r--r--r--
2014-12-27 11:49
quotemeta.t
5.61
KB
-r--r--r--
2014-12-27 11:49
rand.t
8.31
KB
-r--r--r--
2014-12-27 11:49
range.t
9.25
KB
-r--r--r--
2014-12-27 11:49
read.t
2.28
KB
-r--r--r--
2014-12-27 11:49
readdir.t
2.09
KB
-r--r--r--
2014-12-27 11:49
readline.t
7.19
KB
-r--r--r--
2014-12-27 11:49
recurse.t
2.73
KB
-r--r--r--
2014-12-27 11:49
ref.t
22.74
KB
-r--r--r--
2014-12-27 11:49
repeat.t
4.8
KB
-r--r--r--
2014-12-27 11:49
require_37033.t
1.18
KB
-r--r--r--
2014-12-27 11:49
require_errors.t
3.68
KB
-r--r--r--
2014-12-27 11:49
reset.t
5.41
KB
-r--r--r--
2014-12-27 11:49
reverse.t
3.01
KB
-r--r--r--
2014-12-27 11:49
rt119311.t
5.58
KB
-r--r--r--
2014-12-27 11:49
runlevel.t
5.28
KB
-r--r--r--
2014-12-27 11:49
select.t
1.03
KB
-r--r--r--
2014-12-27 11:49
setpgrpstack.t
378
B
-r--r--r--
2014-12-27 11:49
sigdispatch.t
4.33
KB
-r--r--r--
2014-12-27 11:49
signatures.t
41.02
KB
-r--r--r--
2014-12-27 11:49
sigsystem.t
1.36
KB
-r--r--r--
2014-12-27 11:49
sleep.t
468
B
-r--r--r--
2014-12-27 11:49
smartkve.t
18.26
KB
-r--r--r--
2014-12-27 11:49
smartmatch.t
10.34
KB
-r--r--r--
2014-12-27 11:49
sort.t
28.4
KB
-r--r--r--
2015-01-10 13:17
splice.t
3.38
KB
-r--r--r--
2014-12-27 11:49
split.t
13.1
KB
-r--r--r--
2014-12-27 11:49
split_unicode.t
2.4
KB
-r--r--r--
2014-12-27 11:49
sprintf.t
28.5
KB
-r--r--r--
2014-12-27 11:49
sprintf2.t
5.49
KB
-r--r--r--
2014-12-27 11:49
srand.t
1.87
KB
-r--r--r--
2014-12-27 11:49
sselect.t
2.67
KB
-r--r--r--
2014-12-27 11:49
stash.t
9.01
KB
-r--r--r--
2014-12-27 11:49
stat.t
17.51
KB
-r--r--r--
2014-12-27 11:49
state.t
9.72
KB
-r--r--r--
2014-12-27 12:15
study.t
2.99
KB
-r--r--r--
2014-12-27 11:49
studytied.t
1.29
KB
-r--r--r--
2014-12-27 11:49
sub.t
6.54
KB
-r--r--r--
2014-12-27 11:49
sub_lval.t
24.2
KB
-r--r--r--
2014-12-27 11:49
substr.t
20.53
KB
-r--r--r--
2014-12-27 11:49
substr_thr.t
56
B
-r--r--r--
2014-12-27 11:49
svleak.pl
6
B
-r--r--r--
2014-12-27 11:49
svleak.t
15.93
KB
-r--r--r--
2015-01-10 12:06
switch.t
28.06
KB
-r--r--r--
2014-12-27 11:49
symbolcache.t
1.06
KB
-r--r--r--
2014-12-27 11:49
sysio.t
5
KB
-r--r--r--
2014-12-27 11:49
taint.t
66.84
KB
-r--r--r--
2014-12-27 12:32
threads-dirh.t
3.47
KB
-r--r--r--
2014-12-27 11:49
threads.t
9.3
KB
-r--r--r--
2014-12-27 11:49
threads_create.pl
42
B
-r--r--r--
2014-12-27 11:49
tie.t
28.34
KB
-r--r--r--
2014-12-27 11:49
tie_fetch_count.t
11.49
KB
-r--r--r--
2014-12-27 11:49
tiearray.t
4.53
KB
-r--r--r--
2014-12-27 11:49
tiehandle.t
5.27
KB
-r--r--r--
2014-12-27 11:49
time.t
7.86
KB
-r--r--r--
2015-01-17 11:51
time_loop.t
378
B
-r--r--r--
2014-12-27 11:49
tr.t
12.99
KB
-r--r--r--
2014-12-27 11:49
undef.t
3.15
KB
-r--r--r--
2014-12-27 11:49
universal.t
8.32
KB
-r--r--r--
2014-12-27 11:49
unlink.t
1.02
KB
-r--r--r--
2014-12-27 11:49
unshift.t
3.17
KB
-r--r--r--
2014-12-27 11:49
upgrade.t
1.15
KB
-r--r--r--
2014-12-27 11:49
utf8cache.t
3.83
KB
-r--r--r--
2014-12-27 11:49
utf8decode.t
7.59
KB
-r--r--r--
2014-12-27 11:49
utf8magic.t
808
B
-r--r--r--
2014-12-27 11:49
utfhash.t
5.33
KB
-r--r--r--
2014-12-27 11:49
utftaint.t
4.46
KB
-r--r--r--
2014-12-27 11:49
vec.t
2.87
KB
-r--r--r--
2014-12-27 11:49
ver.t
8.39
KB
-r--r--r--
2014-12-27 11:49
waitpid.t
973
B
-r--r--r--
2014-12-27 11:49
wantarray.t
874
B
-r--r--r--
2014-12-27 11:49
warn.t
4.15
KB
-r--r--r--
2014-12-27 11:49
while.t
3.81
KB
-r--r--r--
2014-12-27 11:49
write.t
39.99
KB
-r--r--r--
2015-01-24 15:03
yadayada.t
1.67
KB
-r--r--r--
2015-01-15 22:12
Save
Rename
#!./perl BEGIN { chdir 't' if -d 't'; @INC = '../lib'; require './test.pl'; } plan tests => 119; $FS = ':'; $_ = 'a:b:c'; ($a,$b,$c) = split($FS,$_); is(join(';',$a,$b,$c), 'a;b;c', 'Split a simple string into scalars.'); @ary = split(/:b:/); $cnt = split(/:b:/); is(join("$_",@ary), 'aa:b:cc'); is($cnt, scalar(@ary)); $_ = "abc\n"; my @xyz = (@ary = split(//)); $cnt = split(//); is(join(".",@ary), "a.b.c.\n"); is($cnt, scalar(@ary)); $_ = "a:b:c::::"; @ary = split(/:/); $cnt = split(/:/); is(join(".",@ary), "a.b.c"); is($cnt, scalar(@ary)); $_ = join(':',split(' '," a b\tc \t d ")); is($_, 'a:b:c:d'); @ary = split(' '," a b\tc \t d "); $cnt = split(' '," a b\tc \t d "); is($cnt, scalar(@ary)); $_ = join(':',split(/ */,"foo bar bie\tdoll")); is($_ , "f:o:o:b:a:r:b:i:e:\t:d:o:l:l"); @ary = split(/ */,"foo bar bie\tdoll"); $cnt = split(/ */,"foo bar bie\tdoll"); is($cnt, scalar(@ary)); $_ = join(':', 'foo', split(/ /,'a b c'), 'bar'); is($_, "foo:a:b::c:bar"); @ary = split(/ /,'a b c'); $cnt = split(/ /,'a b c'); is($cnt, scalar(@ary)); # Can we say how many fields to split to? $_ = join(':', split(' ','1 2 3 4 5 6', 3)); is($_, '1:2:3 4 5 6', "Split into a specified number of fields, defined by a literal"); @ary = split(' ','1 2 3 4 5 6', 3); $cnt = split(' ','1 2 3 4 5 6', 3); is($cnt, scalar(@ary), "Check element count from previous test"); # Can we do it as a variable? $x = 4; $_ = join(':', split(' ','1 2 3 4 5 6', $x)); is($_, '1:2:3:4 5 6', "Split into a specified number of fields, defined by a scalar variable"); @ary = split(' ','1 2 3 4 5 6', $x); $cnt = split(' ','1 2 3 4 5 6', $x); is($cnt, scalar(@ary), "Check element count from previous test"); # Does the 999 suppress null field chopping? $_ = join(':', split(/:/,'1:2:3:4:5:6:::', 999)); is($_ , '1:2:3:4:5:6:::'); @ary = split(/:/,'1:2:3:4:5:6:::', 999); $cnt = split(/:/,'1:2:3:4:5:6:::', 999); is($cnt, scalar(@ary)); # Splitting without pattern $_ = "1 2 3 4"; $_ = join(':', split); is($_ , '1:2:3:4', "Split and join without specifying a split pattern"); # Does assignment to a list imply split to one more field than that? $foo = runperl( switches => ['-Dt'], stderr => 1, prog => '($a,$b)=split;' ); ok($foo =~ /DEBUGGING/ || $foo =~ /const\n?\Q(IV(3))\E/); # Can we say how many fields to split to when assigning to a list? ($a,$b) = split(' ','1 2 3 4 5 6', 2); $_ = join(':',$a,$b); is($_, '1:2 3 4 5 6', "Storing split output into list of scalars"); # do subpatterns generate additional fields (without trailing nulls)? $_ = join '|', split(/,|(-)/, "1-10,20,,,"); is($_, "1|-|10||20"); @ary = split(/,|(-)/, "1-10,20,,,"); $cnt = split(/,|(-)/, "1-10,20,,,"); is($cnt, scalar(@ary)); # do subpatterns generate additional fields (with a limit)? $_ = join '|', split(/,|(-)/, "1-10,20,,,", 10); is($_, "1|-|10||20||||||"); @ary = split(/,|(-)/, "1-10,20,,,", 10); $cnt = split(/,|(-)/, "1-10,20,,,", 10); is($cnt, scalar(@ary)); # is the 'two undefs' bug fixed? (undef, $a, undef, $b) = qw(1 2 3 4); is("$a|$b", "2|4"); # .. even for locals? { local(undef, $a, undef, $b) = qw(1 2 3 4); is("$a|$b", "2|4"); } # check splitting of null string $_ = join('|', split(/x/, '',-1), 'Z'); is($_, "Z"); @ary = split(/x/, '',-1); $cnt = split(/x/, '',-1); is($cnt, scalar(@ary)); $_ = join('|', split(/x/, '', 1), 'Z'); is($_, "Z"); @ary = split(/x/, '', 1); $cnt = split(/x/, '', 1); is($cnt, scalar(@ary)); $_ = join('|', split(/(p+)/,'',-1), 'Z'); is($_, "Z"); @ary = split(/(p+)/,'',-1); $cnt = split(/(p+)/,'',-1); is($cnt, scalar(@ary)); $_ = join('|', split(/.?/, '',-1), 'Z'); is($_, "Z"); @ary = split(/.?/, '',-1); $cnt = split(/.?/, '',-1); is($cnt, scalar(@ary)); # Are /^/m patterns scanned? $_ = join '|', split(/^a/m, "a b a\na d a", 20); is($_, "| b a\n| d a"); @ary = split(/^a/m, "a b a\na d a", 20); $cnt = split(/^a/m, "a b a\na d a", 20); is($cnt, scalar(@ary)); # Are /$/m patterns scanned? $_ = join '|', split(/a$/m, "a b a\na d a", 20); is($_, "a b |\na d |"); @ary = split(/a$/m, "a b a\na d a", 20); $cnt = split(/a$/m, "a b a\na d a", 20); is($cnt, scalar(@ary)); # Are /^/m patterns scanned? $_ = join '|', split(/^aa/m, "aa b aa\naa d aa", 20); is($_, "| b aa\n| d aa"); @ary = split(/^aa/m, "aa b aa\naa d aa", 20); $cnt = split(/^aa/m, "aa b aa\naa d aa", 20); is($cnt, scalar(@ary)); # Are /$/m patterns scanned? $_ = join '|', split(/aa$/m, "aa b aa\naa d aa", 20); is($_, "aa b |\naa d |"); @ary = split(/aa$/m, "aa b aa\naa d aa", 20); $cnt = split(/aa$/m, "aa b aa\naa d aa", 20); is($cnt, scalar(@ary)); # Greedyness: $_ = "a : b :c: d"; @ary = split(/\s*:\s*/); $cnt = split(/\s*:\s*/); is(($res = join(".",@ary)), "a.b.c.d", $res); is($cnt, scalar(@ary)); # use of match result as pattern (!) is('p:q:r:s', join ':', split('abc' =~ /b/, 'p1q1r1s')); @ary = split('abc' =~ /b/, 'p1q1r1s'); $cnt = split('abc' =~ /b/, 'p1q1r1s'); is($cnt, scalar(@ary)); # /^/ treated as /^/m $_ = join ':', split /^/, "ab\ncd\nef\n"; is($_, "ab\n:cd\n:ef\n"); # see if @a = @b = split(...) optimization works @list1 = @list2 = split ('p',"a p b c p"); ok(@list1 == @list2 && "@list1" eq "@list2" && @list1 == 2 && "@list1" eq "a b c "); # zero-width assertion $_ = join ':', split /(?=\w)/, "rm b"; is($_, "r:m :b"); @ary = split /(?=\w)/, "rm b"; $cnt = split /(?=\w)/, "rm b"; is($cnt, scalar(@ary)); # unicode splittage @ary = map {ord} split //, v1.20.300.4000.50000.4000.300.20.1; $cnt = split //, v1.20.300.4000.50000.4000.300.20.1; is("@ary", "1 20 300 4000 50000 4000 300 20 1"); is($cnt, scalar(@ary)); @ary = split(/\x{FE}/, "\x{FF}\x{FE}\x{FD}"); # bug id 20010105.016 $cnt = split(/\x{FE}/, "\x{FF}\x{FE}\x{FD}"); # bug id 20010105.016 ok(@ary == 2 && $ary[0] eq "\xFF" && $ary[1] eq "\xFD" && $ary[0] eq "\x{FF}" && $ary[1] eq "\x{FD}"); is($cnt, scalar(@ary)); @ary = split(/(\x{FE}\xFE)/, "\xFF\x{FF}\xFE\x{FE}\xFD\x{FD}"); # variant of 31 $cnt = split(/(\x{FE}\xFE)/, "\xFF\x{FF}\xFE\x{FE}\xFD\x{FD}"); # variant of 31 ok(@ary == 3 && $ary[0] eq "\xFF\xFF" && $ary[0] eq "\x{FF}\xFF" && $ary[0] eq "\x{FF}\x{FF}" && $ary[1] eq "\xFE\xFE" && $ary[1] eq "\x{FE}\xFE" && $ary[1] eq "\x{FE}\x{FE}" && $ary[2] eq "\xFD\xFD" && $ary[2] eq "\x{FD}\xFD" && $ary[2] eq "\x{FD}\x{FD}"); is($cnt, scalar(@ary)); { my @a = map ord, split(//, join("", map chr, (1234, 123, 2345))); my $c = split(//, join("", map chr, (1234, 123, 2345))); is("@a", "1234 123 2345"); is($c, scalar(@a)); } { my $x = 'A'; my @a = map ord, split(/$x/, join("", map chr, (1234, ord($x), 2345))); my $c = split(/$x/, join("", map chr, (1234, ord($x), 2345))); is("@a", "1234 2345"); is($c, scalar(@a)); } { # bug id 20000427.003 use warnings; use strict; my $sushi = "\x{b36c}\x{5a8c}\x{ff5b}\x{5079}\x{505b}"; my @charlist = split //, $sushi; my $charnum = split //, $sushi; is($charnum, scalar(@charlist)); my $r = ''; foreach my $ch (@charlist) { $r = $r . " " . sprintf "U+%04X", ord($ch); } is($r, " U+B36C U+5A8C U+FF5B U+5079 U+505B"); } { my $s = "\x20\x40\x{80}\x{100}\x{80}\x40\x20"; SKIP: { if (ord('A') == 193) { skip("EBCDIC", 1); } else { # bug id 20000426.003 my ($a, $b, $c) = split(/\x40/, $s); ok($a eq "\x20" && $b eq "\x{80}\x{100}\x{80}" && $c eq $a); } } my ($a, $b) = split(/\x{100}/, $s); ok($a eq "\x20\x40\x{80}" && $b eq "\x{80}\x40\x20"); my ($a, $b) = split(/\x{80}\x{100}\x{80}/, $s); ok($a eq "\x20\x40" && $b eq "\x40\x20"); SKIP: { if (ord('A') == 193) { skip("EBCDIC", 1); } else { my ($a, $b) = split(/\x40\x{80}/, $s); ok($a eq "\x20" && $b eq "\x{100}\x{80}\x40\x20"); } } my ($a, $b, $c) = split(/[\x40\x{80}]+/, $s); ok($a eq "\x20" && $b eq "\x{100}" && $c eq "\x20"); } { # 20001205.014 my $a = "ABC\x{263A}"; my @b = split( //, $a ); my $c = split( //, $a ); is($c, scalar(@b)); is(scalar @b, 4); ok(length($b[3]) == 1 && $b[3] eq "\x{263A}"); $a =~ s/^A/Z/; ok(length($a) == 4 && $a eq "ZBC\x{263A}"); } { my @a = split(/\xFE/, "\xFF\xFE\xFD"); my $b = split(/\xFE/, "\xFF\xFE\xFD"); ok(@a == 2 && $a[0] eq "\xFF" && $a[1] eq "\xFD"); is($b, scalar(@a)); } { # check that PMf_WHITE is cleared after \s+ is used # reported in <20010627113312.RWGY6087.viemta06@localhost> my $r; foreach my $pat ( qr/\s+/, qr/ll/ ) { $r = join ':' => split($pat, "hello cruel world"); } is($r, "he:o cruel world"); } { # split /(A)|B/, "1B2" should return (1, undef, 2) my @x = split /(A)|B/, "1B2"; my $y = split /(A)|B/, "1B2"; is($y, scalar(@x)); ok($x[0] eq '1' and (not defined $x[1]) and $x[2] eq '2'); } { # [perl #17064] my $warn; local $SIG{__WARN__} = sub { $warn = join '', @_; chomp $warn }; my $char = "\x{10f1ff}"; my @a = split /\r?\n/, "$char\n"; my $b = split /\r?\n/, "$char\n"; is($b, scalar(@a)); ok(@a == 1 && $a[0] eq $char && !defined($warn)); } { # [perl #18195] for my $u (0, 1) { for my $a (0, 1) { $_ = 'readin,database,readout'; utf8::upgrade $_ if $u; /(.+)/; my @d = split /[,]/,$1; my $e = split /[,]/,$1; is($e, scalar(@d)); is(join (':',@d), 'readin:database:readout', "[perl #18195]"); } } } { $p="a,b"; utf8::upgrade $p; eval { @a=split(/[, ]+/,$p) }; eval { $b=split(/[, ]+/,$p) }; is($b, scalar(@a)); is ("$@-@a-", '-a b-', '#20912 - split() to array with /[]+/ and utf8'); } { is (\@a, \@{"a"}, '@a must be global for following test'); $p=""; $n = @a = split /,/,$p; is ($n, 0, '#21765 - pmreplroot hack used to return undef for 0 iters'); } { # [perl #28938] # assigning off the end of the array after a split could leave garbage # in the inner elements my $x; @a = split /,/, ',,,,,'; $a[3]=1; $x = \$a[2]; is (ref $x, 'SCALAR', '#28938 - garbage after extend'); } { my $src = "ABC \0 FOO \0 XYZ"; my @s = split(" \0 ", $src); my @r = split(/ \0 /, $src); my $cs = split(" \0 ", $src); my $cr = split(/ \0 /, $src); is(scalar(@s), 3); is($cs, 3); is($cr, 3); is($s[0], "ABC"); is($s[1], "FOO"); is($s[2]," XYZ"); is(join(':',@s), join(':',@r)); } { use constant BANG => {}; () = split m/,/, "", BANG; ok(1); } { # Bug #69875 # 'Hybrid' scalar-and-array context scalar(our @PATH = split /::/, "Font::GlyphNames"); # 'my' doesn't trigger the bug is "@PATH", "Font GlyphNames", "hybrid scalar-and-array context"; } { my @results; my $expr= "foo bar"; my $cond; @results= split(0||" ", $expr); is @results, 2, 'split(0||" ") is treated like split(" ")'; #' $cond= 0; @results= split $cond ? " " : qr/ /, $expr; is @results, 3, 'split($cond ? " " : qr/ /, $expr) works as expected (like qr/ /)'; $cond= 1; @results= split $cond ? " " : qr/ /, $expr; is @results, 2, 'split($cond ? " " : qr/ /, $expr) works as expected (like " ")'; $expr = ' a b c '; @results = split /\s/, $expr; is @results, 4, "split on regex of single space metacharacter: captured 4 elements"; is $results[0], '', "split on regex of single space metacharacter: first element is empty string"; @results = split / /, $expr; is @results, 4, "split on regex of single whitespace: captured 4 elements"; is $results[0], '', "split on regex of single whitespace: first element is empty string"; @results = split " ", $expr; is @results, 3, "split on string of single whitespace: captured 3 elements"; is $results[0], 'a', "split on string of single whitespace: first element is non-empty"; $expr = " a \tb c "; @results = split " ", $expr; is @results, 3, "split on string of single whitespace: captured 3 elements"; is $results[0], 'a', "split on string of single whitespace: first element is non-empty; multiple contiguous space characters"; my @seq; for my $cond (0,1,0,1,0) { $expr = " foo "; @results = split $cond ? qr/ / : " ", $expr; push @seq, scalar(@results) . ":" . $results[-1]; } is join(" ", @seq), "1:foo 3:foo 1:foo 3:foo 1:foo", qq{split(\$cond ? qr/ / : " ", "$exp") behaves as expected over repeated similar patterns}; } { # 'RT #116086: split "\x20" does not work as documented'; my @results; my $expr; $expr = ' a b c '; @results = split "\x20", $expr; is @results, 3, "RT #116086: split on string of single hex-20: captured 3 elements"; is $results[0], 'a', "RT #116086: split on string of single hex-20: first element is non-empty"; $expr = " a \tb c "; @results = split "\x20", $expr; is @results, 3, "RT #116086: split on string of single hex-20: captured 3 elements"; is $results[0], 'a', "RT #116086: split on string of single hex-20: first element is non-empty; multiple contiguous space characters"; } # Nasty interaction between split and use constant use constant nought => 0; ($a,$b,$c) = split //, $foo, nought; is nought, 0, 'split does not mangle 0 constants';