Parser 3.x test page

If you see this page, you have sucessfully installed Parser and trying to test it.

To see full paths to configuration files and DOCUMENT_ROOT comment out postprocess[] method.

If something is marked as red, then something is configured the wrong way or automatic detection is impossible (related to library files and codepages search with relative paths).


Global variables defined in config auto.p

$CHARSETS:

koi8-r $charsetsdir/koi8-r.cfg (5104 Bytes)
windows-1251 $charsetsdir/windows-1251.cfg (5128 Bytes)

$SQL:

$SQL.drivers. Wrond data structure.
Probably TABs characters was replaced by spaces characters while manual editing configuration auto.p
Table content:
string protocWoldriverclient
1 mysql./lib/libparser3mysql.so/usr/local/lib/mysql/libmysqlclient.so

DOCUMENT_ROOT: equal with test script directory (comment postprocess method for view)
Путь к скрипту: comment postprocess method for view
$response:charset: UTF-8
$request:charset: UTF-8
$request:uri: /_test_eng.html
$request:query:
$SQL.connect-string: defined
$MAIL.SMTP: undefined
$CLASS_PATH:
/../data/classes/sql directory exist
/../data/classes/auth directory exist
/../data/classes/io directory exist
/../data/classes/utils directory exist
/../data/classes/engine directory exist
/../data/classes directory exist

Parser demo

Manipulations with cookie (class $cookie)

Read $cookie:test: undefined
Write to cookie value ABC $cookie:test[ABC] (press Reload)

Math operations (class $math)

^eval(1+6): 7
^math:random(1000): 782
^math:log(1000): 6.90775527898214
^math:log10(1000): 3
^math:uuid[]: 37525BBF-C88E-48E5-A1E8-FE8EA2D51A40
^math:uid64[]: 53F97EEBBC8ACF86
^math:md5[StRiNg]: ed4577017f40ccb66fcf09dda2fe2a3c
^math:crypt[StRiNg;$apr1$]: $apr1$Wd0MPfwh$7cqskFTZ.ahzhCTmehzle1
^math:crc32[StRiNg]: -1398522877

Strings manipulations (class $string)

Definition $str[АбвГде]
String length ^str.length[]: 6
Uppercase string ^str.upper[]: АБВГДЕ
Lowercase string ^str.lower[]: абвгде
First 2 chars ^str.left(2): Аб
Last 3 chars ^str.right(3): Где
Substring ^str.mid(1;3): бвГ
Position of 'б' char ^str.pos[б]: 1
Position of 'б' char starting from position 2 ^str.pos[б](2): -1
Position of 'X' char ^str.pos[X]: -1
Replacement substring 'вГ' to XX using match ^str.match[вГ][]{XX}: АбXXде
Replacement chars 'в' to 'Y', 'Г' to 'Z' using ^str.replace[$repl]: АбYZде
^str.trim[both;е]: АбвГд
^str.trim[start;е]: АбвГде
^str.trim[end;е]: АбвГд
^str.trim[left;е]: АбвГде
^str.trim[right;е]: АбвГд
^str.base64[]: 0JDQsdCy0JPQtNC1
^str.js-escape[]: %u0410%u0431%u0432%u0413%u0434%u0435
^str:js-unescape[%u0410%u0431%u0432%u0413%u0434%u0435]: АбвГде

Working with class $inet

^inet:aton[10.0.0.2]: 167772162
^inet:aton[192.168.1.5]: 3232235781
^inet:ntoa(167772162): 10.0.0.2
^inet:ntoa(3232235781): 192.168.1.5

Form values manipulations (class $form)

$form:a: undefined
Safe conversion $form:a to integer: ^form:a.int(1): 1
$form:b undefined
$form:qtail: undefined
click here to check reading form values

Manipulations with hash (class $hash)

$hash1[
  $.a[1]
  $.b[2]
  $.c[3]
]
^hash1.foreach[key;value]{
  $key=$value
}[<br />]
a=1
b=2
c=3

Checking item with key 'a' (^hash1.contains[a]): item with key 'a' exist

Manipulations with table (class $table)

$tbl1[^table::create{name	col1	col2
Vasya	3	5
Dima	4	14}]
$tbl1 rows quantity: 2
$tbl1 columns quantity: 3
Print columns:
string column
1 name
2 col1
3 col2

Print content $tbl1:
string namecol1col2
1 Vasya35
2 Dima414

$tbl2[^table::create{name	col1	col2
Vova	3	44}]
$tbl2 rows quantity: 1

join $tbl1 to $tbl2 [^tbl2.join[$tbl1]]
$tbl2 rows quantity ^tbl2.count[]: 3
Print table:
string namecol1col2
1 Vova344
2 Vasya35
3 Dima414

select table rows where col1 values are equal 3: ^tbl2.select($tbl2.col1 == 3)
string namecol1col2
1 Vova344
2 Vasya35

Making hash with tables (where hash keys are col1 values): $hData[^tbl2.hash[col1][$.distinct[tables]]]

Print hash data:
Key Value
3
string namecol1col2
1 Vova344
2 Vasya35
4
string namecol1col2
1 Dima414

Making hash with strings (where hash keys are col2 values and values are name values): $hData[^tbl2.hash[col2;name][$.type[string]]]

Print hash data:
Key Value
44 Vova
5 Vasya
14 Dima

Date manipulations (class $date)

$now[^date::now[]]
$now.day/$now.month/$now.year ${now.hour}:${now.minute}:$now.second: 9/12/2024 3:23:27
$now.week: 50
$now.weekyear: 2024
Print now in sql format ^now.sql-string[]: 2024-12-09 03:23:27
Print now in UNIX timestamp format ^now.unix-timestamp[]: 1733703807
Print now in GMT format ^now.gmt-string[]: Mon, 09 Dec 2024 00:23:27 GMT
Number of last day in current month ^now.last-day[]: 31
Roll date to 5 days ahead ^now.roll[day](-5): 4/12/2024
Roll date to 30 days behind ^now.roll[day](30): 3/1/2025

Manipulations with files (class $file)

Write table $tbl1 to file _test.cfg (^tbl1.save[_test.cfg]): File created successfully
^file:dirname[/_test.cfg]: /
^file:basename[/_test.cfg]: _test.cfg
^file:justname[/_test.cfg]: _test
^file:justext[/_test.cfg]: cfg

Get saved file information $fstat[^file::stat[_test.cfg]]:
File size [$fstat.size]: 35
cdate: 9/12/2024
adate: 9/12/2024
mdate: 9/12/2024

Loading data into $tbl3 from file DOCUMENT_ROOT/_test.cfg and out table content ($tbl3[^table::load[_test.cfg]]):
string namecol1col2
1 Vasya35
2 Dima414

File copy (^file:copy[_test.cfg;_copy.cfg]): ok

File delete (^file:delete[_test.cfg]): ok

Working with class $hashfile

Create object: $hf [$hf[^hashfile::open[_test]]]: object was created sucessfully
Number of records: 32
Adding record (E4CBD8E4-F052-4E40-8610-D980CE6CFFB8) for 3 days:

$hf.[E4CBD8E4-F052-4E40-8610-D980CE6CFFB8][
   $.value[243021338]
   $.expires(3)
]
Cleanup hashfile from expired records (^hf.cleanup[]): ok

Print hashfile content (max 5 records):
3DF38E9B-D5A7-4501-B257-6981465C5E66=1
D5A78407-5723-4A4B-9E4C-97C73AC7C713=7
B3E9780A-299A-415C-A178-2CDB22C3DEB9=3
2F73FA0D-6991-4272-9DCB-366BF79E9825=9
DB3CE846-5C8B-4F45-8825-3DDE19B24F68=7

Close hashfile files and release locks (^hf.release[]): ok

Manipulations with enviroment variables (class $env)

Variable Value Comment
SERVER_NAME www.parser.ru DNS Server name
QUERY_STRING
For get values use $form class
HTTP_REFERER

HTTP_USER_AGENT CCBot/2.0 (https://commoncrawl.org/faq/) Browser USER_AGENT string
HTTP_X_FORWARDED_FOR
Filled if visitor come through proxy server
REMOTE_HOST

REMOTE_ADDR 18.97.9.172 Visitors' IP address
PARSER_VERSION 3.4.6 (compiled on amd64-unknown-freebsd11.4) Parser3 version (if not defined - parser3 before 3.1.5)

Working with SQL

^int:sql{SELECT 2+2}: 4

Manipulations with XML

Create xdoc:

$document[^xdoc::create{<?xml version="1.0" encoding="UTF-8" ?>
<document>
	<t attr="Hello" n="123"/>
	<t attr="Bye" n="234" n2="xxx"/>
	<text>Text</text>
</document>}]
Object xdoc created successfully.
Get <t /> elements $elements[^document.select[//t]] :
<t /> elements quantity: 2
Print elements using foreach:
name: 't', type: '1', attributes quantity: '2', attributes: attr='Hello', n='123'
name: 't', type: '1', attributes quantity: '3', attributes: attr='Bye', n='234', n2='xxx'

Working with classes Status and Memory

Field Description Value
on start now after ^memory:compact[]
$status:rusage.utime (secs) process time 0.009162 0.013631 0.015302
$status:rusage.stime (secs) time for reading files 0.010689 0.013631 0.015302
$status:rusage.maxrss (blocks) memory, used by process 6356 14352 14352
$status:memory.used (KB) user 2188 2432 2240
$status:memory.free (KB) free (fragmentated) 496 252 444
$status:memory.ever_allocated_since_compact (KB) allocated since last garbage collection 2773.5625 3097.609375 3.234375
$status:memory.ever_allocated_since_start (KB) allocated since start 2773.5625 3097.609375 3100.84375