Fallagassrini Bypass Shell

echo"Fallagassrini ";

Current Path : /usr/share/doc/perl-Parse-RecDescent-1.967009/demo/

Linux server.meentosys.com 3.10.0-1160.105.1.el7.x86_64 #1 SMP Thu Dec 7 15:39:45 UTC 2023 x86_64

Current File : //usr/share/doc/perl-Parse-RecDescent-1.967009/demo/demo_lisplike.pl

#!/usr/bin/perl -w

use Parse::RecDescent;
use Data::Dumper;

my $grammar = q{

        s_expr: '(' s_expr(s) ')'               # NESTED S-EXPRS
                        { $return = $item[2] }
              | /" [^\\"]* (\\. [^\\"]*)* "/x   # STRINGS
              | /[^()\s]+/                      # ANYTHING ELSE


};

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

undef $/;
my $data = <DATA>;

my $nested_array = $parser->s_expr($data);


print Data::Dumper->Dump($nested_array);

__DATA__

     (net
       (rename VDDTX "vddtx")
       (joined
	 (portRef VDDTX)
	 (portRef &2
	   (instanceRef I_45_1102680350)))
       (figure WIRE
	 (path
	   (pointList
	     (pt 6700 -2100)
	     (pt 6900 -2100)))
	 (path
	   (pointList
	     (pt 6900 -2100)
	     (pt 6900 -2500)))))
     (net
       (rename N00023 "N00023")
       (joined
	 (portRef &2
	   (instanceRef I_45_1215476478))
	 (portRef &1
	   (instanceRef I_45_1102680350))
	 (portRef &2
	   (instanceRef I_45_1215470655)))
       (figure WIRE
	 (path
	   (pointList
	     (pt 5800 -3400)
	     (pt 6900 -3400)))
	 (path
	   (pointList
	     (pt 5800 -3400)
	     (pt 5800 -3700)))
	 (path
	   (pointList
	     (pt 6900 -3100)
	     (pt 6900 -3400)))
	 (path
	   (pointList
	     (pt 8000 -3400)
	     (pt 8000 -3700)))
	 (path
	   (pointList
	     (pt 6900 -3400)
	     (pt 8000 -3400))))
       (instance
	 (rename TIE1 "TIE1")
	 (viewRef XTIE0A2Y2
	   (cellRef XTIE0A2Y2
	     (libraryRef RIPPER_LIBRARY)))
	 (transform
	   (origin
	     (pt 6900 -3400)))))

bypass 1.0, Devloped By El Moujahidin (the source has been moved and devloped)
Email: contact@elmoujehidin.net