Lines Matching full:foo*
334 C<-exp($foo)> still works as expected, however--only single letters
615 $cnt = chmod 0755, 'foo', 'bar';
617 $mode = '0644'; chmod $mode, 'foo'; # !!! sets mode to
619 $mode = '0644'; chmod oct($mode), 'foo'; # this is better
620 $mode = 0644; chmod $mode, 'foo'; # this is best
704 $cnt = chown $uid, $gid, 'foo', 'bar';
788 open(OUTPUT, '|sort >foo') # pipe to sort
794 open(INPUT, 'foo') # get sort's results
795 or die "Can't open 'foo' for input: $!";
1012 sub foo { defined &$bar ? &$bar(@_) : die "No bar"; }
1046 %hash = (foo => 11, bar => 22, baz => 33);
1047 $scalar = delete $hash{foo}; # $scalar is 11
1048 $scalar = delete @hash{qw(foo bar)}; # $scalar is 22
1049 @array = delete @hash{qw(foo bar baz)}; # @array is (undef,undef,33)
1119 to make better sense when the string C<"at foo line 123"> is appended.
1154 eval { ... ; die Some::Module::Exception->new( FOO => "bar" ) };
1441 sub { (my $x = $_[0]) =~ s/foo/bar/g; die $x };
1442 eval { die "foo lives here" };
1495 exec ('foo') or print STDERR "couldn't exec foo: $!";
1496 { exec ('foo') }; print STDERR "couldn't exec foo: $!";
2182 goto ("FOO", "BAR", "GLARCH")[$i];
2212 @foo = grep(!/^#/, @bar); # weed out comments
2216 @foo = grep {!/^#/} @bar; # weed out comments
2935 print MEMORY "foo!\n"; # output will end up in $var
2978 open STDOUT, '>', "foo.out" or die "Can't redirect STDOUT: $!";
3046 open(FOO, "|tr '[a-z]' '[A-Z]'");
3047 open(FOO, '|-', "tr '[a-z]' '[A-Z]'");
3048 open(FOO, '|-') || exec 'tr', '[a-z]', '[A-Z]';
3049 open(FOO, '|-', "tr", '[a-z]', '[A-Z]');
3051 open(FOO, "cat -n '$file'|");
3052 open(FOO, '-|', "cat -n '$file'");
3053 open(FOO, '-|') || exec 'cat', '-n', $file;
3054 open(FOO, '-|', "cat", '-n', $file);
3087 open(FOO, '<', $file);
3092 open(FOO, "< $file\0");
3186 package Foo;
3187 our $bar; # declares $Foo::bar for rest of lexical scope
3198 package Foo;
3199 our $bar; # declares $Foo::bar for rest of lexical scope
3224 our @EXPORT : unique = qw(foo);
3545 lose precision (i.e., C<unpack("f", pack("f", $foo)>) will not in general
3546 equal $foo).
3606 $foo = pack("CCCC",65,66,67,68);
3607 # foo eq "ABCD"
3608 $foo = pack("C4",65,66,67,68);
3610 $foo = pack("U4",0x24b6,0x24b7,0x24b8,0x24b9);
3613 $foo = pack("ccxxcc",65,66,67,68);
3614 # foo eq "AB\0\0CD"
3619 # $foo = pack("CCCC",193,194,195,196);
3621 $foo = pack("s2",1,2);
3625 $foo = pack("a4","abcd","x","y","z");
3628 $foo = pack("aaaa","abcd","x","y","z");
3631 $foo = pack("a14","abcdefg");
3634 $foo = pack("i9pl", gmtime);
3648 $foo = pack('sx2l', 12, 34);
3652 # $foo eq $bar
4119 require Foo::Bar; # a splendid bareword
4121 The require function will actually look for the "F<Foo/Bar.pm>" file in the
4126 $class = 'Foo::Bar';
4129 require "Foo::Bar"; # not a bareword because of the ""
4131 The require function will look for the "F<Foo::Bar>" file in the @INC array and
4132 will complain about not finding "F<Foo::Bar>" there. In this case you can do:
4152 second the name of the file to be included (e.g. "F<Foo/Bar.pm>"). The
4185 # In Foo.pm
4186 package Foo;
4188 sub Foo::INC {
4194 push @INC, new Foo(...);
4306 print uc(scalar(&foo,$bar)),$baz;
4310 &foo;
4806 but if you're in the C<FooPack> package, it's the same as typing
4808 @articles = sort {$FooPack::b <=> $FooPack::a} @files;
4864 if (&aeq($len,@foo[1..$len],0+@bar,@bar)) { ... }
5475 print ".IX foo\n" if /\bfoo\b/;
5565 This caveat includes code such as C<print(substr($foo,$a,$b)=$bar)> or
5566 C<(substr($foo,$a,$b)=$bar)=$fud> (where $foo is changed via the
6068 undef $foo;
6076 ($a, $b, undef, $c) = &foo; # Ignore third value returned
6317 for (values %hash) { s/foo/bar/g } # modifies %hash values
6318 for (@hash{keys %hash}) { s/foo/bar/g } # same
6372 my $foo = '';
6373 vec($foo, 0, 32) = 0x5065726C; # 'Perl'
6375 # $foo eq "Perl" eq "\x50\x65\x72\x6C", 32 bits
6376 print vec($foo, 0, 8); # prints 80 == 0x50 == ord('P')
6378 vec($foo, 2, 16) = 0x5065; # 'PerlPe'
6379 vec($foo, 3, 16) = 0x726C; # 'PerlPerl'
6380 vec($foo, 8, 8) = 0x50; # 'PerlPerlP'
6381 vec($foo, 9, 8) = 0x65; # 'PerlPerlPe'
6382 vec($foo, 20, 4) = 2; # 'PerlPerlPe' . "\x02"
6383 vec($foo, 21, 4) = 7; # 'PerlPerlPer'
6385 vec($foo, 45, 2) = 3; # 'PerlPerlPer' . "\x0c"
6386 vec($foo, 93, 1) = 1; # 'PerlPerlPer' . "\x2c"
6387 vec($foo, 94, 1) = 1; # 'PerlPerlPerl'
6637 my $foo = 10;
6638 my $foo = 20; # no warning about duplicate my $foo,
6644 warn "\$foo is alive and $foo!"; # does show up