diff options
author | Matth?us G. Chajdas <dev@anteru.net> | 2019-11-10 13:56:53 +0100 |
---|---|---|
committer | Matth?us G. Chajdas <dev@anteru.net> | 2019-11-10 13:56:53 +0100 |
commit | 1dd3124a9770e11b6684e5dd1e6bc15a0aa3bc67 (patch) | |
tree | 87a171383266dd1f64196589af081bc2f8e497c3 /tests/examplefiles/perl_regex-delims | |
parent | f1c080e184dc1bbc36eaa7cd729ff3a499de568a (diff) | |
download | pygments-master.tar.gz |
Diffstat (limited to 'tests/examplefiles/perl_regex-delims')
-rw-r--r-- | tests/examplefiles/perl_regex-delims | 120 |
1 files changed, 0 insertions, 120 deletions
diff --git a/tests/examplefiles/perl_regex-delims b/tests/examplefiles/perl_regex-delims deleted file mode 100644 index 6da5298d..00000000 --- a/tests/examplefiles/perl_regex-delims +++ /dev/null @@ -1,120 +0,0 @@ -#! /usr/bin/env perl - -use strict; -use warnings; - -# common delimiters -print "a: "; -my $a = "foo"; -print $a, " - "; -$a =~ s/foo/bar/; -print $a, "\n"; - -print "b: "; -my $b = "foo"; -print $b, " - "; -$b =~ s!foo!bar!; -print $b, "\n"; - -print "c: "; -my $c = "foo"; -print $c, " - "; -$c =~ s@foo@bar@; -print $c, "\n"; - -print "d: "; -my $d = "foo"; -print $d, " - "; -$d =~ s\foo\bar\; -print $d, "\n"; - -print "\n"; - -# balanced delimiters -print "e: "; -my $e = "foo"; -print $e, " - "; -$e =~ s{foo}{bar}; -print $e, "\n"; - -print "f: "; -my $f = "foo"; -print $f, " - "; -$f =~ s(foo)(bar); -print $f, "\n"; - -print "g: "; -my $g = "foo"; -print $g, " - "; -$g =~ s<foo><bar>; -print $g, "\n"; - -print "h: "; -my $h = "foo"; -print $h, " - "; -$h =~ s[foo][bar]; -print $h, "\n"; - -print "\n"; - -# balanced delimiters with whitespace -print "i: "; -my $i = "foo"; -print $i, " - "; -$i =~ s{foo} {bar}; -print $i, "\n"; - -print "j: "; -my $j = "foo"; -print $j, " - "; -$j =~ s<foo> <bar>; -print $j, "\n"; - -print "k: "; -my $k = "foo"; -print $k, " - "; -$k =~ - s(foo) - - (bar); -print $k, "\n"; - -print "\n"; - -# mixed delimiters -print "l: "; -my $l = "foo"; -print $l, " - "; -$l =~ s{foo} <bar>; -print $l, "\n"; - -print "m: "; -my $m = "foo"; -print $m, " - "; -$m =~ s(foo) !bar!; -print $m, "\n"; - -print "n: "; -my $n = "foo"; -print $n, " - "; -$n =~ s[foo] $bar$; -print $n, "\n"; - -print "\n"; - -# /x modifier -print "o: "; -my $o = "foo"; -print $o, " - "; -$o =~ s{ - foo - } {bar}x; -print $o, "\n"; - -print "p: "; -my $p = "foo"; -print $p, " - "; -$p =~ s% - foo - %bar%x; -print $p, "\n"; |