How to have Variable as Recursive Regex in Perl? -

-

i'm writing simple translator john tromp's binary lambda calculus on de bruijn notation lambda calculus can understand how lambda files working in 2012 "most functional" international obfuscated c code winner

here example of language before translation primes.blc:

00010001100110010100011010000000010110000010010001010111110111101001000110100001110011010000000000101101110011100111111101111000000001111100110111000000101100000110110

i'm having trouble nested regex in commented line before primes.txt file save section of bruijn.pl:

#!/usr/bin/env perl #use strict; use warnings; use io::file; use cwd; $originalcwd = getcwd()."/"; #primes.blc argument test conversion #______________________________________________________________________open file ($name) = @argv; $file = new io::file; $file->open("< ".$originalcwd."primes.blc") || die("could not open file!"); #$file->open("< ".$name) || die("could not open file!"); while (<$file>){ $field .= $_; } $file->close; #______________________________________________________________________translate $field =~ s/(00|01|(1+0))/$1 /gsm; $field =~ s/00 /\\ /gsm; $field =~ s/01 /(a /gsm; $field =~ s/(1+)0 /length($1)." "/gsme;  $recursparenthesesregex = m/\(([^()]+|(??{$recursparenthesesregex}))*\)/; #$field =~ 1 while s/(\(a){1}(([\s\\]+?(\d+|$recursparenthesesregex)){2})/\($2\)/sm; #______________________________________________________________________save file #$fh = new io::file "> ".$name; $fh = new io::file "> ".$originalcwd."primes.txt"; if (defined $fh) { print $fh $field; $fh->close; }

an translated file primes.txt should be:

\ (\ (1 (1 ((\ (1 1) \ \ \ ((1 \ \ 1) (\ (((4 4) 1) (\ (1 1) \ (2 (1 1)))) \ \ \ \ ((1 3) (2 (6 4)))))) \ \ \ (4 (1 3))))) \ \ ((1 \ \ 2) 2))

currently line commented out translates readable format looks like:

\ (a \ (a 1 (a 1 (a (a \ (a 1 1 \ \ \ (a (a 1 \ \ 1 (a \ (a (a (a 4 4 1 (a \ (a 1 1 \ (a 2 (a 1 1 \ \ \ \ (a (a 1 3 (a 2 (a 6 4 \ \ \ (a 4 (a 1 3 \ \ (a (a 1 \ \ 2 2

which needs find innermost abstractions of (a , 2 of either number or matching parentheses , contents , insert trailing ) , remove a way outermost application.

you need regex 

 # (\(a)(([\s\\]*?(?:\d+|(?&recursparens))){2})(?(define)(?<recursparens>(?>\((?>(?>[^()]+)|(?:(?=.)(?&recursparens)|))+\))))   ( \(a )                       # (1)  (                             # (2 start)       (                             # (3 start)            [\s\\]*?             (?:                 \d+               |                   (?&recursparens)             )       ){2}                          # (3 end)  )                             # (2 end)   (?(define)        (?<recursparens>              # (4 start)            (?>                 \(                 (?>                      (?> [^()]+ )                   |  (?:                           (?= . )                           (?&recursparens)                         |                        )                 )+                 \)            )       )                             # (4 end)  )

with perl code 

use strict; use warnings; use feature qw{say};  $field = "00010001100110010100011010000000010110000010010001010111110111101001000110100001110011010000000000101101110011100111111101111000000001111100110111000000101100000110110";  $field =~ s/(00|01|(1+0))/$1 /g; $field =~ s/00 /\\ /g; $field =~ s/01 /(a /g; $field =~ s/(1+)0 /length($1)." "/ge;  1 while $field =~ s/(\(a)(([\s\\]*?(?:\d+|(?&recursparens))){2})(?(define)(?<recursparens>(?>\((?>(?>[^()]+)|(?:(?=.)(?&recursparens)|))+\))))/\($2\)/g;  $field =~ s/\( /\(/g;  $field;

that give output 

\ (\ (1 (1 ((\ (1 1) \ \ \ ((1 \ \ 1) (\ (((4 4) 1) (\ (1 1) \ (2 (1 1)))) \ \ \ \ ((1 3) (2 (6 4)))))) \ \ \ (4 (1 3))))) \ \ ((1 \ \ 2) 2))

that can formatted 

 \   (                             # (1 start)       \        (                             # (2 start)            1             (                             # (3 start)                 1                  (                             # (4 start)                      (                             # (5 start)                           \                            ( 1 1 )                       # (6)                           \ \ \                            (                             # (7 start)                                ( 1 \ \ 1 )                   # (8)                                (                             # (9 start)                                     \                                      (                             # (10 start)                                          (                             # (11 start)                                               ( 4 4 )                       # (12)                                               1                                          )                             # (11 end)                                          (                             # (13 start)                                               \                                                ( 1 1 )                       # (14)                                               \                                                (                             # (15 start)                                                    2                                                     ( 1 1 )                       # (16)                                               )                             # (15 end)                                          )                             # (13 end)                                     )                             # (10 end)                                     \ \ \ \                                      (                             # (17 start)                                          ( 1 3 )                       # (18)                                          (                             # (19 start)                                               2                                                ( 6 4 )                       # (20)                                          )                             # (19 end)                                     )                             # (17 end)                                )                             # (9 end)                           )                             # (7 end)                      )                             # (5 end)                      \ \ \                       (                             # (21 start)                           4                            ( 1 3 )                       # (22)                      )                             # (21 end)                 )                             # (4 end)            )                             # (3 end)       )                             # (2 end)       \ \        (                             # (23 start)            ( 1 \ \ 2 )                   # (24)            2       )                             # (23 end)  )                             # (1 end)

Comments

Post a Comment

Popular posts from this blog

java - nested exception is org.hibernate.exception.SQLGrammarException: could not extract ResultSet Hibernate+SpringMVC -

-
i trying fetch records database , having above error this classs appropriate getters , setters public class user { private int id; private string username; private string password; private string email; i have create database , inserted data below configuration <bean id="datasource" class="org.apache.commons.dbcp2.basicdatasource" destroy-method="close"> <property name="driverclassname" value="com.mysql.jdbc.driver"/> <property name="url" value="jdbc:mysql://localhost:3306/usersdb"/> <property name="username" value="root"/> <property name="password" value=""/> </bean> this complete stacktrace severe: servlet.service() servlet [appservlet] in context path [/spring] threw exception [request processing failed; nested exception org.hibernate.exception.sqlgrammarexception: not ...
Read more

sql - Postgresql tables exists, but getting "relation does not exist" when querying -

-
Image
i have postgresql db number of tables. if query: select column_name information_schema.columns table_name="my_table"; i list of columns returned properly. however, when query: select * "my_table"; i error: (programmingerror) relation "my_table" not exist 'select *\n "my_table"\n' {} any thoughts on why can columns, can't query table? goal able query table. you have include schema if isnt public one select * <schema>."my_table" or can change default schema show search_path; set search_path my_schema; check table schema here select * information_schema.columns for example if table on default schema public both works ok select * parroquias_region select * public.parroquias_region but sectors need specify schema select * map_update.sectores_point
Read more

asp.net mvc - breakpoint on javascript in CSHTML? -

-
i have .cshtml file has javascript tag. within script tag have few lines of javascript. first line of javascript refers property in @viewbag. other javascript lines plain script without mvc related references. observation: can place breakpoints (visual studio 2015) on each of these javascript lines. however, breakpoints has white dot in center of breakpoint symbol (red circle) except line @viewbag reference (this particular line not have white dot in center). it seems breakpoint without white dot hit during run-time. question: can explain going on here? white dot mean? why plain red breakpoint line line hitting breakpoint? the visual studio debugger expecting debug actual server-side code within .cshtml file opposed client-side javascript within it. iirc, visual studio allow debug javascript code expected in internet explorer (and possibly edge), other browsers want use either third-party tool or developer tools (f12) within browser. an easy approach take advant...
Read more