BLACKSITE
:
216.73.216.249
:
157.173.108.86 / pdclassessgnr.in
:
Linux server.madnetech.com 4.18.0-553.117.1.el8_10.x86_64 #1 SMP Sun Apr 5 23:14:32 EDT 2026 x86_64
:
/
usr
/
share
/
doc
/
perltidy
/
examples
/
Upload File:
files >> //usr/share/doc/perltidy/examples/lextest
# This is a simple testfile to demonstrate perltidy, from perlop(1). # One way (of several) to run perltidy is as follows: # # perl ./perltidy lextest # # The output will be "lextest.tdy" $_= <<'EOL'; $url = new URI::URL "http://www/"; die if $url eq "xXx"; EOL LOOP:{print(" digits"),redo LOOP if/\G\d+\b[,.;]?\s*/gc;print(" lowercase"),redo LOOP if/\G[a-z]+\b[,.;]?\s*/gc;print(" UPPERCASE"),redo LOOP if/\G[A-Z]+\b[,.;]?\s*/gc;print(" Capitalized"),redo LOOP if/\G[A-Z][a-z]+\b[,.;]?\s*/gc;print(" MiXeD"),redo LOOP if/\G[A-Za-z]+\b[,.;]?\s*/gc;print(" alphanumeric"),redo LOOP if/\G[A-Za-z0-9]+\b[,.;]?\s*/gc;print(" line-noise"),redo LOOP if/\G[^A-Za-z0-9]+/gc;print". That's all!\n";}