Lines Matching full:foo*
98 $foo = '[^ab]*';
99 'cde' =~ /$foo/;
103 $foo = '[^ab]*';
104 'cde' =~ /$foo/;
216 print $' eq "fooabcbar" ? "ok 58\n" : "not ok 58\n" if $x;
242 $_ = 'foobar1 bar2 foobar3 barfoobar5 foobar6';
243 @out = /(?<!foo)bar./g;
455 'foot' =~ /foo(?{$x = 12; 75})[t]/;
461 'foot' =~ /foo(?{$x = 12; 75})[xy]/;
467 'foot' =~ /foo(?{ $^R + 12 })((?{ $x = 12; $^R + 17 })[xy])?/;
522 $_ = 'var="foo"';
623 &$for_future('q(a:[b]:) =~ /[x[:foo:]]/');
625 #&$for_future('q(a=[b]=) =~ /[x[=foo=]]/');
628 #&$for_future('q(a.[b].) =~ /[x[.foo.]]/');
747 eval { @- = qw(foo bar); };
792 undef $foo; undef $bar;
793 print "#'$str','$foo','$bar'\nnot "
794 unless $str =~ /b(?{$foo = $_; $bar = pos})c/
795 and $foo eq 'abcde' and $bar eq 2;
799 undef $foo; undef $bar;
801 print "#'$str','$foo','$bar'\nnot "
802 unless $str =~ /b(?{$foo = $_; $bar = pos})c/g
803 and $foo eq 'abcde' and $bar eq 2 and pos $str eq 3;
809 undef $foo; undef $bar;
810 print "#'$str','$foo','$bar'\nnot "
811 unless /b(?{$foo = $_; $bar = pos})c/
812 and $foo eq 'abcde' and $bar eq 2;
816 undef $foo; undef $bar;
817 print "#'$str','$foo','$bar'\nnot "
818 unless /b(?{$foo = $_; $bar = pos})c/g
819 and $foo eq 'abcde' and $bar eq 2 and pos eq 3;
823 undef $foo; undef $bar;
825 1 while /b(?{$foo = $_; $bar = pos})c/g;
826 print "#'$str','$foo','$bar'\nnot "
827 unless $foo eq 'abcde' and $bar eq 2 and not defined pos;
831 undef $foo; undef $bar;
833 print "#'$str','$foo','$bar','$_'\nnot "
834 unless s/b(?{$foo = $_; $bar = pos})c/x/g and $foo eq 'abcde|abcde'
865 $foo='aabbccddeeffgg';
867 pos($foo)=1;
869 $foo=~/.\G(..)/g;
874 pos($foo) += 1;
875 $foo=~/.\G(..)/g;
880 pos($foo) += 1;
881 $foo=~/.\G(..)/g;
886 print "not " unless $foo =~ /\Gef/g;
890 undef pos $foo;
892 $foo=~/\G(..)/g;
897 $foo=~/\G(..)/g;
902 pos($foo)=5;
903 $foo=~/\G(..)/g;
915 { foo => "ok $test\n".$^X }->{foo} =~ /^(.*)\n/g;
921 @a = qw(foo bar);
1813 $_ = "foo";
1871 $T="ok 644\n";if ($x =~ /(foo)|(c(d)e)/ and $^N eq "cde") {print $T} else {print "not $T"};
1872 $T="ok 645\n";if ($x =~ /(c(d)e)|(foo)/ and $^N eq "cde") {print $T} else {print "not $T"};
1970 @a = ("foo\nbar" =~ /./g);
1973 @a = ("foo\nbar" =~ /./gs);
1976 @a = ("foo\nbar" =~ /\C/g);
1979 @a = ("foo\nbar" =~ /\C/gs);
1982 @a = ("foo\n\x{100}bar" =~ /./g);
1985 @a = ("foo\n\x{100}bar" =~ /./gs);
1990 @a = ("foo\n\x{100}bar" =~ /\C/g);
1993 @a = ("foo\n\x{100}bar" =~ /\C/gs);
2724 $u = "foo";
2728 $u = "foobar";
2909 $a = bless qr/foo/, 'Foo';
2914 print(($a eq '(?-xism:foo)' ? '' : 'not '),