| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/scalar/ |
| scalar.pm | 1 package PerlIO::scalar;
4 XSLoader::load 'PerlIO::scalar';
10 PerlIO::scalar - in-memory IO, scalar IO
14 my $scalar = '';
16 open my $fh, "<", \$scalar or die;
17 open my $fh, ">", \$scalar or die;
18 open my $fh, ">>", \$scalar or die;
22 my $scalar = '';
24 open my $fh, "<:scalar", \$scalar or die
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
| sub.t | 16 is(scalar(@test), 0, 'Didnt return anything');
18 is(scalar(@test), 0, 'Didnt return anything');
|
| reverse.t | 29 my $b = scalar reverse($a);
30 my $c = scalar reverse($b);
|
| wantarray.t | 16 scalar context('S',4);
17 $a = scalar context('S',5);
19 ($a) = scalar context('S',7);
|
| exec.t | 63 is( scalar `$Perl -e "print 'ok'"`,
66 is( scalar `$Perl -e "print 'ok'" | $Perl -e "print <STDIN>"`,
69 is( scalar `$Perl -le "print 'ok'" | $Perl -le "print <STDIN>"`,
72 is( scalar `$Perl -e "print 'ok'" | $Perl -le "print <STDIN>"`,
75 is( scalar `$Perl -le "print 'ok'" | $Perl -e "print <STDIN>"`,
81 is($out, "1234", 'ignore $/ when capturing output in scalar context');
|
| /onnv/onnv-gate/usr/src/cmd/perl/contrib/Sun/Solaris/Lgrp/ |
| Lgrp.pm | 98 scalar @_ == 2 or _usage "lgrp_isleaf(cookie, lgrp)";
109 scalar @_ > 0 or _usage("lgrp_lgrps(cookie, [lgrp])");
125 return (wantarray ? @result : scalar @result);
136 scalar @_ > 0 or _usage("lgrp_leaves(cookie, [lgrp])");
144 return (wantarray ? @result : scalar @result);
153 # If the argument is scalar, it is the cookie itself, otherwise it is the
190 scalar @_ == 1 or _usage("stale(class)");
196 scalar @_ == 1 or _usage("view(class)");
202 scalar @_ == 1 or _usage("root(class)");
208 scalar @_ == 1 or _usage("nlgrps(class)")
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/eg/ |
| nph-multipart.cgi | 7 "The current time is ",scalar(localtime),"\n",
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/IPC/ |
| Open3.t | 57 print scalar <STDIN>;
73 print scalar <STDIN>;
74 print STDERR scalar <STDIN>;
77 print scalar <READ>;
79 print scalar <READ>;
85 print scalar <STDIN>;
86 print STDERR scalar <STDIN>;
89 print scalar <READ>;
91 print scalar <READ>;
97 $perl, '-e', cmd_line('print scalar <STDIN>')
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/FileCache/t/ |
| 01open.t | 24 print "not " unless scalar map({ -f } @files) == scalar @files;
|
| 03append.t | 33 print 'not ' unless scalar grep(/\b3$/m, @cat) == scalar @files;
45 print 'not ' unless scalar grep(/\b33$/m, @cat) == scalar @files;
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/ |
| TieIn.pm | 4 bless( \(my $scalar), $_[0]);
|
| TieOut.pm | 4 bless( \(my $scalar), $_[0]);
|
| /onnv/onnv-gate/usr/src/cmd/rcm_daemon/common/ |
| SUNW,vdevices.pl | 83 printf "rcm_log_debug=do_register: %d devices\n", scalar(@devs);
114 if (scalar(@words) != 0) {
|
| /onnv/onnv-gate/usr/src/cmd/sgs/tools/ |
| lint_hdr.pl | 69 die $usage if (scalar(@ARGV) == 0);
83 $argc = scalar(@ARGV);
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/uni/ |
| case.pl | 25 print "# ", scalar keys %simple, " simple mappings\n";
35 print "# ", scalar keys %$spec, " special mappings\n";
45 print "# ", scalar keys %none, " noncase mappings\n";
48 (scalar keys %simple) +
49 (scalar keys %$spec) +
50 (scalar keys %none);
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/ |
| tied.t | 54 scalar keys %{$self};
91 my $scalar;
92 my $self = bless \$scalar, shift;
132 tie $scalar, TIED_SCALAR;
134 #$scalar = 'foo';
137 #$array[1] = \$scalar;
144 $scalar = 'foo';
146 $array[0] = \$scalar;
150 @tied = (\$scalar, \@array, \%hash);
151 %a = ('key', 'value', 1, 0, $a, $b, 'cvar', \$a, 'scalarref', \$scalar);
[all...] |
| st-dump.pl | 41 'SCALAR' => 'dump_scalar',
69 # Get something like SCALAR(0x...) or TYPE=SCALAR(0x...).
113 # Dump single scalar
116 my $scalar = $$sref;
117 unless (defined $scalar) {
121 my $len = length($scalar);
122 $dumped .= "SCALAR len=$len $scalar\n";
143 my $items = scalar(keys %{$href})
[all...] |
| /onnv/onnv-gate/usr/src/cmd/sgs/packages/common/ |
| readme_revision | 70 while ((scalar(@ARGV) > 0) && ($_ = $ARGV[0],/^-/)) {
85 $cnt = scalar @ARGV;
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Text/ |
| Soundex.t | 61 print "# expected ", scalar @expect, " results, got ", scalar @got, "\n";
103 # Knuth's test cases, scalar in, scalar out
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/Array/ |
| push.t | 17 sub FETCHSIZE { scalar(@{$_[0]}) }
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Env/t/ |
| env.t | 22 return 0 unless scalar(@$a) == scalar(@$b);
23 for my $i (0..scalar(@$a) - 1) {
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/ |
| details.t | 22 $Test->is_num( scalar $Test->summary(), 0, 'no tests yet, no summary' );
71 $Test->is_num( scalar $Test->summary(), 4, 'summary' );
89 $Test->is_num( scalar @details, 6,
|
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Hash/ |
| Util.t | 168 is (scalar keys %hash, 0, "place holder isn't a key");
170 is (scalar keys %hash, 1, "we now have a key");
172 is (scalar keys %hash, 0, "now no key");
177 is (scalar keys %hash, 1, "key again");
179 is (scalar keys %hash, 0, "no key again");
183 is (scalar keys %hash, 0, "place holder isn't a key");
193 is (scalar keys %hash, 0, "and therefore there are no keys");
195 is (scalar keys %hash, 1, "we now have just one key");
197 is (scalar keys %hash, 0, "back to zero");
204 is (scalar keys %hash, 2, "two keys, values both undef")
[all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ |
| perly.c | [all...] |
| /onnv/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/ |
| Installed.t | 134 # This didn't work for a long time due to a sort in scalar context oddity.
135 is( $ei->modules, 3, 'modules() in scalar context' );
161 is( scalar @files, 1, '... should find doc file under given dir' );
167 is( scalar @files, $mandirs, '... should find all doc files with no dir' );
171 is( scalar @files, 0, '... should find no doc files given wrong dirs' );
173 is( scalar @files, 1, '... should find doc file in correct dir' );
176 is( scalar @files, 2 + $mandirs, '... should find all files with no type specified' );
181 is( scalar @dirs, 0, 'directories() should return no dirs if no files found' );
186 is( scalar @dirs, $mandirs, '... should find all files files() would' );
189 is( scalar @dirs, 2 + $mandirs, '... should find all files files() would, again' )
[all...] |
