/
usr
/
share
/
doc
/
libxstring-perl
/
examples
/
/usr/share/doc/libxstring-perl/examples
mkdir
upload
Name
Size
Mode
Actions
synopsis.pl
333
0644
edit
dl
rm
Edit:
/usr/share/doc/libxstring-perl/examples/synopsis.pl
(333B)
#!/usr/bin/perl use strict; use warnings; use Test::More; use XString; use B; is XString::cstring( q[a'string"with quotes] ), B::cstring( q[a'string"with quotes] ), q["a'string\"with quotes"]; is XString::perlstring( q[a'string"with quotes] ), B::perlstring( q[a'string"with quotes] ), q["a'string\"with quotes"]; done_testing;
Save
cmd:
run