Lines Matching full:foo*
319 $x = /foo/;
320 $x =~ /foo/;
492 $a = ("foo bar");
496 # perl4 prints: a is foo bar, b is baz
633 sub foo {}
634 &foo
645 ($foo == 1) ? "is one\n" : "is zero\n";
823 than calling the C<undef> function on a typeglob (C<undef *foo>), which
826 $foo = "bar";
827 *foo = undef;
828 print $foo;
853 $foo = "x";
854 &mod($foo);
872 # Modification of a read-only value attempted at foo.pl line 12.
932 @fmt = ("foo","bar","baz");
940 # perl5 prints: foo bar baz
971 @z = ('%s%s', 'foo', 'bar');
975 # perl4 prints: foobar
980 @z = ('%s%s', 'foo', 'bar');
983 # perl4 prints: foobar
984 # perl5 prints: foobar
1031 /foo/ ? ($a += 2) : ($a -= 2);
1035 /foo/ ? $a += 2 : $a -= 2
1039 (/foo/ ? $a += 2 : $a) -= 2;
1043 $a += /foo/ ? 1 : 2;
1049 open FOO || die;
1054 open(FOO || die);
1057 # perl5 opens FOO, dying only if 'FOO' is false, i.e. never
1073 for perl4 leads one to believe C<-e $foo .= "q"> should parse as
1074 C<((-e $foo) .= "q")>, it actually parses as C<(-e ($foo .= "q"))>.
1077 -e $foo .= "q"
1091 %foo = 1..10;
1092 print keys %foo - 1
1147 $good = build_match('foo','bar');
1149 print $good->('foo stuff bar') ? "ok\n" : "not ok\n";
1151 print $bad->('foo stuff bar') ? "not ok\n" : "ok\n";
1178 $value = ($string =~ s/foo//);
1214 s/^([^$grpc]*$grpc[$opt]?)/foo/;
1217 # perl4 prints: foo
1218 # perl5 prints: foobar
1284 warn STDERR "Foo!";
1286 # perl4 prints: Foo!
1366 $foo = "foo$";
1367 print "foo is $foo\n";
1369 # perl4 prints: foo is foo$
1381 $foo = "foo";
1383 sub foo { return "bar" };
1384 print "|@{w.w.w}|${main'foo}|";
1386 # perl4 prints: |@{w.w.w}|foo|
1411 $hashname = "foobar";
1415 (defined($foobar{'baz'})) ? (print "Yup") : (print "Nope");
1448 perl -e '$bar=q/not/; print "This is $foo{$bar} perl5"'
1458 print "$foo["
1463 print "$foo{"
1472 print "$foo\[";
1473 print "$foo\{";
1479 $foo = "baz";
1480 print "\$$foo{bar}\n";
1485 Perl 5 is looking for C<$foo{bar}> which doesn't exist, but perl 4 is
1486 happy just to expand $foo to "baz" by itself. Watch out for this
1554 sub foo {
1558 print &foo, "\n";
1574 @list = split(/foo/, $string, 2)