Home
last modified time | relevance | path

Searched refs:split (Results 1 – 25 of 316) sorted by relevance

12345678910>>...13

/mirbsd/src/gnu/usr.bin/perl/t/op/
Dsplit.t15 ($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');
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));
[all …]
Deach.t63 $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 is ($size, (split('/', scalar %hash))[1]);
105 isnt ($size, (split('/', scalar %hash))[1]);
Dpush.t5 @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);
Dgroups.t93 my @g0 = split /,/, $gr;
123 for (split(' ', $()) {
139 $gr1 = join(' ', grep(!$did{$_}++, sort split(' ', join(' ', @gr))));
150 $gr2 = join(' ', grep(!$basegroup{$_}++, sort split(' ',$groups)));
160 $gr2 = join(' ', grep(!$basegroup{$_}++, sort split(' ',$groups)));
Dglob.t14 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 …
23 map { delete $files{$_} } split /[\s\n]/, `echo :op:\xc5`;
27 map { delete $files{$_} } split /[\s\n]/, `echo op/*`;
Drunlevel.t20 @prgs = split "\n########\n", <DATA>;
32 my($prog,$expected) = split(/\nEXPECT\n/, $_);
187 (split(/./, 'x'x10000))[0];
277 (split(/./, 'x'x10000))[0];
398 (split(/./, 'x'x10000))[0];
/mirbsd/src/lib/libssl/src/crypto/des/t/
Dtest9 @a=split(//,$ks);
16 @a=split(//,$key);
21 @a=split(//,$k1);
24 @a=split(//,$k2);
/mirbsd/src/gnu/usr.bin/cvs/contrib/
Dcln_hist.in57 @tmp = split(/\|/, $_);
62 @tmp = split(/\|/, $_);
77 @tmp = split(/\|/, $_);
82 @tmp = split(/\|/, $_);
Dlog_accum.in290 @revline = split(' ', $_);
569 @files = split(' ', $arg);
599 @path = split('/', $files[0]);
639 push (@branch_lines, split);
649 push (@changed_files, split) if ($state == $STATE_CHANGED);
650 push (@added_files, split) if ($state == $STATE_ADDED);
651 push (@removed_files, split) if ($state == $STATE_REMOVED);
Dpvcs2rcs.in471 my @cur_dir_names = split qr{[/\\]}, cwd;
728 my @fields = split;
737 @branches = split /\s+/, $';
799 my @fields = split /\"/;
885 @branch = split /\./, $rcs_rev_num{$revision};
1037 my @a = split /\./, (defined $a) ? $a : shift;
1038 my @b = split /\./, (defined $b) ? $b : shift;
1074 $num_fields = split /\./, $input;
/mirbsd/src/usr.bin/systat/
Diostat.c58 static int split = 0; /* whether to split r/w stats */ variable
130 #define COLWIDTH (split ? 30 : 17) in numlabels()
155 if (split) in numlabels()
183 if (split) { in barlabels()
272 if (split) in stats()
283 if (split) { in stats()
352 split = ~split; in cmdiostat()
/mirbsd/src/gnu/usr.bin/perl/lib/
Dwarnings.t52 @prgs = (@prgs, $file, split "\n########\n", <F>) ;
75 my($prog,$expected) = split(/\nEXPECT\n/, $_);
79 my(@files) = split(/\n--FILE--\s*([^\s\n]*)\s*\n/, $prog) ;
146 foreach my $option (split(' ', $1)) {
199 my @got = sort split "\n", $got ;
200 my @expected = sort split "\n", $expected ;
DConfig.t140 is(scalar (@tmp = split(/;\n/, $out3)), 3, "3 lines found");
141 is(scalar (@tmp = split(/;\n/, $out6)), 3, "3 lines found");
146 is(scalar (@tmp = split(/=/, $out3)), 4, "found 'tag='");
147 is(scalar (@tmp = split(/=/, $out4)), 4, "found 'tag='");
166 @api = split /(?: |;\n)/, $api;
247 = split /\n/,
Dstrict.t32 @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) ;
Dsubs.t11 my @prgs = split "\n########\n", <DATA>;
29 my($prog,$expected) = split(/\nEXPECT\n/, $_);
31 my(@files) = split(/\n--FILE--\s*([^\s\n]*)\s*\n/, $prog) ;
/mirbsd/src/gnu/usr.bin/perl/ext/SDBM_File/sdbm/
DCHANGES9 split, the page into which the incoming key/value pair is to be inserted
10 is write-deferred (if the split is successful), thereby saving a cosly
11 write. BUT, if the split does not make enough room (unsuccessful), the
13 the number of split attempts.
/mirbsd/src/gnu/usr.bin/perl/ext/B/t/
Dbytecode.t31 my @tests = split /\n###+\n/, <DATA>;
40 my ($script, $expect) = split />>>+\n/;
100 split /a/,"bananarama"; print @_
108 @z = split /:/,"b:r:n:f:g"; print @z
/mirbsd/src/lib/libc/regex/test/
Dsplit.c8 int split(char *string, char *fields[], int nfields, const char *sep);
15 split( in split() function
173 (void) split(buf, fields, MNF, argv[2]);
196 nf = split(string, fields, NF, seps);
296 nf = split(buf, fields, RNF, tests[n].seps); in regress()
/mirbsd/src/gnu/usr.bin/perl/
Dinstallhtml63 =item B<--splithead> POD files to split on =head directive
65 Comma-separated list of pod files to split by the =head directive. The
69 =item B<--splititem> POD files to split on =item directive
71 Comma-separated list of all pod files to split by the =item directive.
73 split, rather it invokes I<splitpod> to do the dirty work. As with
176 if ( $^O eq 'VMS' ) { @ARGV = split(/\s+/,$ARGV[0]); }
287 @podpath = split(":", $Options{podpath}) if defined $Options{podpath};
290 @splithead = split(",", $Options{splithead}) if defined $Options{splithead};
291 @splititem = split(",", $Options{splititem}) if defined $Options{splititem};
292 @libpods = split(",", $Options{libpods}) if defined $Options{libpods};
[all …]
/mirbsd/src/usr.bin/patch/
Dpatch.c740 LINENUM i, j, split; in abort_hunk() local
750 split = -1; in abort_hunk()
753 split = i; in abort_hunk()
757 if (split == -1) { in abort_hunk()
762 j = split + 1; in abort_hunk()
766 while (i < split || j <= pat_end) { in abort_hunk()
767 ch1 = i < split ? pch_char(i) : -1; in abort_hunk()
777 while (i < split && ch1 == '!') { in abort_hunk()
780 ch1 = i < split ? pch_char(i) : -1; in abort_hunk()
794 i, split, j); in abort_hunk()
/mirbsd/src/gnu/usr.bin/perl/ext/Storable/t/
Dtied_hook.t71 my ($keys, $values) = split(/;/, $frozen);
72 my @keys = split(/:/, $keys);
73 my @values = split(/:/, $values);
113 @$self = split(/:/, $frozen);
/mirbsd/src/gnu/usr.bin/perl/lib/Test/t/
Dfail.t45 ok join(' ', map { m/(\d+)/; $1 } grep /^not ok/, split /\n+/, $O),
48 my @got = split /not ok \d+\n/, $O;
52 my @expect = split /\n\n/, $Expect;
/mirbsd/src/gnu/usr.bin/perl/t/comp/
Dbproto.t30 test_too_many($_) for split /\n/,
36 test_no_error($_) for split /\n/,
/mirbsd/src/distrib/common/
Dmakeconf.awk26 n = split($3, x, "/");
30 n = split($i, x, "/");
/mirbsd/src/gnu/usr.bin/perl/lib/Text/
DSoundex.t52 ($in, $out) = split (':');
83 ($in, $out) = split (':');

12345678910>>...13