File manager - Edit - /usr/share/doc/perl-Data-Dump-1.22/t/regexp.t
Back
#!/usr/bin/perl -w use Test; plan tests => 1; use Data::Dump; $a = { a => qr/Foo/, b => qr,abc/,is, c => qr/ foo /x, d => qr/foo/msix, e => qr//, f => qr/ # hi there how do this look /x, g => qr,///////,, h => qr*/|,:*, i => qr*/|,:#*, }; ok(Data::Dump::dump($a) . "\n", <<'EOT'); { a => qr/Foo/, b => qr|abc/|si, c => qr/ foo /x, d => qr/foo/msix, e => qr//, f => qr/ # hi there how do this look /x, g => qr|///////|, h => qr#/|,:#, i => qr/\/|,:#/, } EOT
| ver. 1.4 |
Github
|
.
| PHP 8.2.32 | Generation time: 0.06 |
proxy
|
phpinfo
|
Settings