Searched refs:ary (Results 1 - 25 of 27) sorted by relevance

12

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dundef.t24 @ary = ("1arg");
25 $a = pop(@ary);
27 $a = pop(@ary);
30 @ary = ("1arg");
31 $a = shift(@ary);
33 $a = shift(@ary);
36 $ary{'foo'} = 'hi';
37 print defined($ary{'foo'}) ? "ok 10\n" : "not ok 10\n";
38 print defined($ary{'bar'}) ? "not ok 11\n" : "ok 11\n";
39 undef $ary{'fo
[all...]
H A Dtiearray.t142 {my @ary;
144 { my $ob = tie @ary,'Implement',3,2,1;
147 print "not " unless tied(@ary) == $ob;
152 print "not " unless @ary == 3;
155 print "not " unless $#ary == 2;
158 print "not " unless join(':',@ary) eq '3:2:1';
164 @ary = (1,2,3);
168 print "not " unless join(':',@ary) eq '1:2:3';
171 {my @thing = @ary;
176 @thing = @ary;
[all...]
H A Dsplit.t19 @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", "
[all...]
H A Darray.t12 # @foo, @bar, and @ary are also used from tie-stdarray after tie-ing them
15 @ary = (1,2,3,4,5);
16 if (join('',@ary) eq '12345') {print "ok 1\n";} else {print "not ok 1\n";}
18 $tmp = $ary[$#ary]; --$#ary;
20 if ($#ary == 3) {print "ok 3\n";} else {print "not ok 3\n";}
21 if (join('',@ary) eq '1234') {print "ok 4\n";} else {print "not ok 4\n";}
24 @ary = (1,2,3,4,5);
25 if (join('',@ary) e
[all...]
H A Dref.t55 @ary = (9,10,11,12);
61 push(@{$ref[$i]}, "ok $ary[$i]\n");
H A Dpack.t47 # Need the expression in here to force ary[5] to be numeric. This avoids
48 # test2 failing because ary2 goes str->numeric->str and ary doesn't.
49 my @ary = (1,-100,127,128,32767,987.654321098 / 100.0,12345,123456,
51 my $foo = pack($format,@ary);
54 is($#ary, $#ary2);
56 my $out1=join(':',@ary);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/cmd/
H A Dfor.t26 @ary = (1,2,3,4,5);
27 foreach $foo (@ary) {
30 if (join('',@ary) eq '246810') {print "ok 3\n";} else {print "not ok 3\n";}
32 for (@ary) {
36 print $ary[1];
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/Array/
H A Dstd.t11 tie @ary,Tie::StdArray;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dav.c82 SV** ary; local
87 ary = AvALLOC(av) + AvFILLp(av) + 1;
94 ary[--tmp] = &PL_sv_undef;
131 New(2,ary, newmax+1, SV*);
132 Copy(AvALLOC(av), ary, AvMAX(av)+1, SV*); local
137 AvALLOC(av) = ary;
142 ary = AvALLOC(av) + AvMAX(av) + 1;
154 ary = AvALLOC(av) + 1;
160 ary[--tmp] = &PL_sv_undef;
271 SV** ary; local
379 register SV** ary; local
404 register SV** ary; local
436 SV** ary; local
605 register SV **ary; local
760 SV** ary = AvARRAY(av); local
[all...]
H A Dpp.c4035 register AV *ary = (AV*)*++MARK; local
4047 if ((mg = SvTIED_mg((SV*)ary, PERL_MAGIC_tied))) {
4048 *MARK-- = SvTIED_obj((SV*)ary, mg);
4063 offset += AvFILLp(ary) + 1;
4071 length += AvFILLp(ary) - offset + 1;
4077 length = AvMAX(ary) + 1; /* close enough to infinity */
4081 length = AvMAX(ary) + 1;
4083 if (offset > AvFILLp(ary) + 1) {
4086 offset = AvFILLp(ary) + 1;
4088 after = AvFILLp(ary)
4240 register AV *ary = (AV*)*++MARK; local
4295 register AV *ary = (AV*)*++MARK; local
4393 AV *ary; local
[all...]
H A Dcop.h170 * leave any (a fast av_clear(ary), basically) */
171 #define CLEAR_ARGARRAY(ary) \
173 AvMAX(ary) += AvARRAY(ary) - AvALLOC(ary); \
174 SvPVX(ary) = (char*)AvALLOC(ary); \
175 AvFILLp(ary) = -1; \
H A Dpp_hot.c889 S_do_maybe_phash(pTHX_ AV *ary, SV **lelem, SV **firstlelem, SV **relem, argument
909 if (av_len(ary) > 0)
910 av_fill(ary, 0); /* clear all but the fields hash */
920 if (avhv_store_ent(ary,relem[0],tmpstr,0))
922 if (SvMAGICAL(ary) != 0 && SvSMAGICAL(tmpstr))
986 register AV *ary; local
1016 ary = Null(AV*);
1024 ary = (AV*)sv;
1025 magic = SvMAGICAL(ary) != 0;
1027 switch (do_maybe_phash(ary, lele
2905 SV** ary; local
[all...]
H A Dpp_sort.c1670 SV** ary = AvALLOC(av); local
1671 if (AvARRAY(av) != ary) {
1673 SvPVX(av) = (char*)ary;
1677 Renew(ary,2,SV*);
1678 SvPVX(av) = (char*)ary;
H A Dpp_ctl.c1547 AV *ary = cx->blk_sub.argarray; local
1548 int off = AvARRAY(ary) - AvALLOC(ary);
1558 if (AvMAX(PL_dbargs) < AvFILLp(ary) + off)
1559 av_extend(PL_dbargs, AvFILLp(ary) + off);
1560 Copy(AvALLOC(ary), AvARRAY(PL_dbargs), AvFILLp(ary) + 1 + off, SV*);
1561 AvFILLp(PL_dbargs) = AvFILLp(ary) + off;
2277 SV** ary; local
2288 ary
[all...]
H A Dregexec.c4320 SV **ary = AvARRAY(av); local
4326 si = *ary;
4327 a = SvTYPE(ary[1]) == SVt_RV ? &ary[1] : 0;
4328 b = SvTYPE(ary[2]) == SVt_PVAV ? &ary[2] : 0;
H A Dsv.c9661 PTR_TBL_ENT_t **ary = tbl->tbl_ary; local
9666 Renew(ary, newsize, PTR_TBL_ENT_t*);
9667 Zero(&ary[oldsize], newsize-oldsize, PTR_TBL_ENT_t*);
9669 tbl->tbl_ary = ary;
9670 for (i=0; i < oldsize; i++, ary++) {
9672 if (!*ary)
9674 curentp = ary + oldsize;
9675 for (entp = ary, ent = *ary; ent; ent = *entp) {
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Project/
H A DProject.xs33 AV *ary;
46 ary = newAV();
48 av_push(ary, newSVpv(*cp, 0));
50 PUSHs(sv_2mortal(newRV_noinc((SV *)ary)));
51 ary = newAV();
53 av_push(ary, newSVpv(*cp, 0));
55 PUSHs(sv_2mortal(newRV_noinc((SV *)ary)));
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Safe/t/
H A Dsafe2.t111 print $cpt->reval('@ary=(6,7,8);@ary') == 3 ? "ok 25\n" : "not ok 25\n";
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/ByteLoader/
H A Dbytecode.h64 unsigned short *ary, len; \
66 New(666, ary, len, unsigned short); \
67 BGET_FREAD(ary, sizeof(unsigned short), len); \
68 arg = (char *) ary; \
301 #define BSET_push_begin(ary,cv) \
316 #define BSET_push_init(ary,cv) \
322 #define BSET_push_end(ary,cv) \
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/base/
H A Dlex.t94 $ary[0] = ABC;
102 print "ABC" =~ /^$ary[$A]$/ ? "ok 25\n" : "not ok 25\n";
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/B/
H A DDisassembler.pm141 my @ary = unpack "S*", $fh->readn($len*2);
142 return join(",", $len, @ary);
H A DAssembler.pm133 my @ary = split /\s*,\s*/, shift;
134 return pack "S*", @ary;
H A DDeparse.pm57 # - fixed problem in 0.54's for() patch in `for (@ary)'
2490 my $ary = $enter->first->sibling; # first was pushmark
2491 my $var = $ary->sibling;
2493 and not null $ary->first->sibling->sibling)
2495 $ary = $self->deparse($ary->first->sibling, 9) . " .. " .
2496 $self->deparse($ary->first->sibling->sibling, 9);
2498 $ary = $self->deparse($ary, 1);
2516 $head = "foreach $var ($ary) ";
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/
H A DStorable.xs1705 SV **ary = AvARRAY(av);
1708 XPUSHs(ary[0]); /* Frozen string */
1711 i, PTR2UV(ary[i])));
1712 XPUSHs(sv_2mortal(newRV(ary[i])));
2758 SV **ary;
2878 ary = AvARRAY(av);
2879 pv = SvPV(ary[0], len2);
2896 SV *rsv = ary[i];
2971 ary[i] = *svh;
3070 * NOTA BENE, for 64-bit machines: the ary[
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Data/Dumper/
H A DDumper.pm667 print Data::Dumper->Dump([$foo, $bar], [qw(foo *ary)]);
672 eval Data::Dumper->Dump([$foo, $bar], [qw(foo *ary)]);
676 $d = Data::Dumper->new([$foo, $bar], [qw(foo *ary)]);

Completed in 158 milliseconds

12