a "replacement" for awk and sed
[perl.git] / t / op.subst
1 #!./perl
2
3 # $Header: op.subst,v 1.0 87/12/18 13:14:30 root Exp $
4
5 print "1..7\n";
6
7 $x = 'foo';
8 $_ = "x";
9 s/x/\$x/;
10 print "#1\t:$_: eq :\$x:\n";
11 if ($_ eq '$x') {print "ok 1\n";} else {print "not ok 1\n";}
12
13 $_ = "x";
14 s/x/$x/;
15 print "#2\t:$_: eq :foo:\n";
16 if ($_ eq 'foo') {print "ok 2\n";} else {print "not ok 2\n";}
17
18 $_ = "x";
19 s/x/\$x $x/;
20 print "#3\t:$_: eq :\$x foo:\n";
21 if ($_ eq '$x foo') {print "ok 3\n";} else {print "not ok 3\n";}
22
23 $a = 'abcdef';
24 $b = 'cd';
25 $a =~ s'(b${b}e)'\n$1';
26 print "#4\t:$1: eq :bcde:\n";
27 print "#4\t:$a: eq :a\\n\$1f:\n";
28 if ($1 eq 'bcde' && $a eq 'a\n$1f') {print "ok 4\n";} else {print "not ok 4\n";}
29
30 $a = 'abacada';
31 if (($a =~ s/a/x/g) == 4 && $a eq 'xbxcxdx')
32     {print "ok 5\n";} else {print "not ok 5\n";}
33
34 if (($a =~ s/a/y/g) == 0 && $a eq 'xbxcxdx')
35     {print "ok 6\n";} else {print "not ok 6\n";}
36
37 if (($a =~ s/b/y/g) == 1 && $a eq 'xyxcxdx')
38     {print "ok 7\n";} else {print "not ok 7\n";}