| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/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))
[all...] |
| cproto.t | 14 my ($keyword, $proto) = split;
218 split undef
|
| 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);
|
| 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/*`;
|
| 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)));
|
| 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]);
|
| /onnv/onnv-gate/usr/src/common/openssl/crypto/des/t/ |
| test | 9 @a=split(//,$ks);
16 @a=split(//,$key);
21 @a=split(//,$k1);
24 @a=split(//,$k2);
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| pwd.pl | 52 local(@curdir) = split(m#/#,$ENV{'PWD'});
54 foreach $component (split(m#/#, $newdir)) {
|
| bigrat.pl | 94 local($xn,$xd) = split('/',&'rnorm($_[$[]));
95 local($yn,$yd) = split('/',&'rnorm($_[$[+1]));
101 local($xn,$xd) = split('/',&'rnorm($_[$[]));
102 local($yn,$yd) = split('/',&'rnorm($_[$[+1]));
109 local($xn,$xd) = split('/',&'rnorm($_[$[]));
110 local($yn,$yd) = split('/',&'rnorm($_[$[+1]));
116 local($xn,$xd) = split('/',&'rnorm($_[$[]));
117 local($yn,$yd) = split('/',&'rnorm($_[$[+1]));
123 local($xn,$xd) = split('/',&'rnorm($_[$[]));
124 local($yn,$yd) = split('/',&'rnorm($_[$[+1]))
[all...] |
| bigfloat.pl | 105 local($xm,$xe) = split('E',$x);
106 local($ym,$ye) = split('E',$y);
118 local($xm,$xe) = split('E',$x);
119 local($ym,$ye) = split('E',$y);
139 local($xm,$xe) = split('E',$x);
140 local($ym,$ye) = split('E',$y);
181 local($xm,$xe) = split('E',$x);
199 local($xm,$xe) = split('E',$x);
231 ( local($xm,$xe,$ym,$ye) = split('E', $x."E$y"),
247 local($xm, $xe) = split('E',$x)
[all...] |
| Env.pm | 27 or '@'. Arrays are implemented in terms of C<split> and C<join>, using
33 @path = split(/:/, $PATH);
135 my @temp = split($sep, $ENV{$$self});
141 my @temp = split($sep, $ENV{$$self});
153 return (split($sep, $ENV{$$self}))[$index];
158 my @temp = split($sep, $ENV{$$self});
166 my @temp = split($sep, $ENV{$$self});
174 my @temp = split($sep, $ENV{$$self});
182 my @temp = split($sep, $ENV{$$self});
190 my @temp = split($sep, $ENV{$$self})
[all...] |
| /onnv/onnv-gate/usr/src/common/openssl/crypto/lhash/ |
| num.pl | 9 @a=split;
|
| /onnv/onnv-gate/usr/src/cmd/split/ |
| Makefile | 29 PROG= split
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/comp/ |
| bproto.t | 30 test_too_many($_) for split /\n/,
36 test_no_error($_) for split /\n/,
|
| /onnv/onnv-gate/usr/src/cmd/sgs/packages/common/ |
| readme_revision | 64 @_ = split /\//, $0;
133 @wsname = split /\//, $wsname;
|
| /onnv/onnv-gate/usr/src/common/openssl/doc/ |
| extract-names.pl | 17 push @words, split ',';
|
| /onnv/onnv-gate/usr/src/cmd/filebench/scripts/ |
| fs_flush.pl | 75 ($root, $b, $c, $d, $mntpnt) = split /\t/, $zline, 5;
84 ($pool) = split /\//, $root;
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Text/ |
| Soundex.t | 52 ($in, $out) = split (':');
83 ($in, $out) = split (':');
|
| /onnv/onnv-gate/usr/src/cmd/ypcmd/ |
| multi.awk.sh | 56 numnames = split(namelist[$1], n);
88 numaddr = split(addr[host], tmpaddr, ",");
90 numnames = split(namelist[tmpaddr[i]], tmpname);
|
| /onnv/onnv-gate/usr/src/cmd/dtrace/test/tst/common/cpc/ |
| tst.platformevent.ksh | 47 @a = split(/ /, \$_);
|
| /onnv/onnv-gate/usr/src/cmd/perl/contrib/Sun/Solaris/PerlGcc/ |
| Makefile.PL | 39 my @v1 = split(/\./, $a);
40 my @v2 = split(/\./, $b);
|
| /onnv/onnv-gate/usr/src/cmd/rcm_daemon/common/ |
| SUNW,vdevices.pl | 111 my @words = split(/ /, $str);
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/ |
| 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]);
|
| /onnv/onnv-gate/usr/src/cmd/abi/appcert/scripts/ |
| symcheck.pl | 232 foreach $lib (split(/\s+/, $1)) {
310 foreach $line (split(/\n/, $profile)) {
312 ($obj, $area, $extent, $type, $sym) = split(/\|/, $line);
434 ($binary, $from, $to, $sym) = split(/\|/, $_, 4);
529 ($from, $lib_abi_sym) = split(/\|/, $lib_abi_sym, 2);
531 ($l, $a, $s) = split(/\|/, $lib_abi_sym);
611 $count = scalar(my @a = split(/\n/, $result_list{'private'}));
620 scalar(my @a = split(/\n/, $result_list{'unrecognized'}));
719 foreach $case (split(/,/, $model_tweak{$key})) {
720 ($sym, $abis, $class) = split(/\|/, $case)
[all...] |
| /onnv/onnv-gate/usr/src/tools/depcheck/ |
| 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(/\n/, $pkgchk)
[all...] |
