/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | 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(' ',' [all...] |
H A D | cproto.t | 14 my ($keyword, $proto) = split; 218 split undef
|
H A D | push.t | 5 @tests = split(/\n/, <<EOF); 36 ($list,$get,$leave) = split(/,\t*/,$line); 37 ($pos, $len, @list) = split(' ',$list); 38 @get = split(' ',$get); 39 @leave = split(' ',$leave);
|
H A D | glob.t | 14 map { delete $files{"op/$_"} } split /[\s\n]/, `dir /b /l op & dir /b /l /ah op 2>nul`, 18 map { s/;.*$//; delete $files{lc($_)}; } split /[\n]/, `directory/noheading/notrailing/versions=1 [.op]`, 23 map { delete $files{$_} } split /[\s\n]/, `echo :op:\xc5`; 27 map { delete $files{$_} } split /[\s\n]/, `echo op/*`;
|
H A D | groups.t | 93 my @g0 = split /,/, $gr; 123 for (split(' ', $()) { 138 $gr1 = join(' ', grep(!$did{$_}++, sort split(' ', join(' ', @gr)))); 148 $gr2 = join(' ', grep(!$basegroup{$_}++, sort split(' ',$groups))); 158 $gr2 = join(' ', grep(!$basegroup{$_}++, sort split(' ',$groups)));
|
H A D | each.t | 63 $size = ((split('/',scalar %h))[1]); 65 $newsize = ((split('/',scalar %h))[1]); 68 $size = ((split('/',scalar %h))[1]); 71 $size = ((split('/',scalar %h))[1]); 75 $size = ((split('/',scalar %h))[1]); 101 $size = (split('/', scalar %hash))[1]; 103 ok ($size == (split('/', scalar %hash))[1]); 105 ok ($size != (split('/', scalar %hash))[1]);
|
H A D | runlevel.t | 20 @prgs = split "\n########\n", <DATA>; 32 my($prog,$expected) = split(/\nEXPECT\n/, $_); 118 (split(/./, 'x'x10000))[0]; 187 (split(/./, 'x'x10000))[0]; 277 (split(/./, 'x'x10000))[0]; 398 (split(/./, 'x'x10000))[0];
|
H A D | index.t | 57 my @needles = split ( //, $needle ); 62 is($a, $b, q{[perl #22375] 'split'/'index' problem for utf8}); 65 @needles = split ( //, $needle ); 69 is($a, $b, q{[perl #22375] 'split'/'index' problem for utf8});
|
/opensolaris-onvv-gate/usr/src/common/openssl/crypto/des/t/ |
H A D | test | 9 @a=split(//,$ks); 16 @a=split(//,$key); 21 @a=split(//,$k1); 24 @a=split(//,$k2);
|
/opensolaris-onvv-gate/usr/src/cmd/split/ |
H A D | Makefile | 29 PROG= split
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/t/comp/ |
H A D | bproto.t | 30 test_too_many($_) for split /\n/, 36 test_no_error($_) for split /\n/,
|
/opensolaris-onvv-gate/usr/src/cmd/sgs/packages/common/ |
H A D | readme_revision | 64 @_ = split /\//, $0; 133 @wsname = split /\//, $wsname;
|
/opensolaris-onvv-gate/usr/src/tools/onbld/Scm/ |
H A D | Version.py | 80 l = map(int, ver.split('.')) 95 desired = map(int, desired.split('.'))
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Text/ |
H A D | Soundex.t | 52 ($in, $out) = split (':'); 83 ($in, $out) = split (':');
|
/opensolaris-onvv-gate/usr/src/cmd/ypcmd/ |
H A D | multi.awk.sh | 56 numnames = split(namelist[$1], n); 88 numaddr = split(addr[host], tmpaddr, ","); 90 numnames = split(namelist[tmpaddr[i]], tmpname);
|
/opensolaris-onvv-gate/usr/src/cmd/dtrace/test/tst/common/cpc/ |
H A D | tst.platformevent.ksh | 47 @a = split(/ /, \$_);
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/ |
H A D | instmodsh | 32 my $class = (split(' ', $reply))[1]; 46 my $class = (split(' ', $reply))[1]; 60 my $file = (split(' ', $reply))[1]; 120 do_module((split(' ', $reply))[1]);
|
/opensolaris-onvv-gate/usr/src/tools/depcheck/ |
H A D | get_depend_info | 250 @infolines = split(/\s*\n\s*/, $string); 254 @words = split(/\s/, $line); 308 @list = split(/\n/, $LddInfo); 344 @infolines = split(/\s*\n\s*/, $string); 353 @words = split(/\s/, $line); 398 @infolines = split(/\s*\n\s*/, $string); 429 @words = split(/\s/, $line); 463 @list = split(/\n/, $LddInfo); 483 @list = split(/\n/, $StringInfo); 524 @files = split(/\ [all...] |
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigRat/t/ |
H A D | bigratpm.inc | 27 @args = split(/:/,$1,99); 31 @args = split(/:/,$_,99); $ans = pop(@args);
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/ |
H A D | diag.t | 34 push @lines, split(/\n/, $output);
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/t/cmd/ |
H A D | for.t | 40 for (split(' ','a b c d e')) {
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/B/t/ |
H A D | terse.t | 38 # split up the output lines into individual ops (terse is, well, terse!) 40 my @lines = split(/\n+/, $out->read); 74 my $boo = split('', $foo);
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/ |
H A D | RefHash.t | 214 foreach (split /\n/, $warning) { 257 push @r, split /\n/, <<"END" 276 push @r, split /\n/, <<"END" 294 @slicetests = split /\n/, <<'END' 307 push @r, split(/\n/, $STD_TESTS); 311 push @r, '%h = ();', split(/\n/, $STD_TESTS);
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | strict.t | 32 @prgs = (@prgs, split "\n########\n", <F>) ; 48 my($prog,$expected) = split(/\nEXPECT\n/, $_); 50 my(@files) = split(/\n--FILE--\s*([^\s\n]*)\s*\n/, $prog) ; 52 die "Internal error test $i didn't split into pairs, got " .
|
H A D | warnings.t | 55 @prgs = (@prgs, $file, split "\n########\n", <F>) ; 78 my($prog,$expected) = split(/\nEXPECT\n/, $_); 80 my(@files) = split(/\n--FILE--\s*([^\s\n]*)\s*\n/, $prog) ; 82 die "Internal error test $i didn't split into pairs, got " . 155 foreach my $option (split(' ', $1)) { 197 my @got = sort split "\n", $got ; 198 my @expected = sort split "\n", $expected ;
|