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_eval.pl

#!/usr/bin/perl -w

use Parse::RecDescent;

$text = "1 + 2 * 3 ** 4";

$grammar = q{
        <autotree>

        expr	:	<leftop: conj /\|\|/ conj>

        conj	:	<leftop: addn /&&/ addn>

        addn	:	<leftop: mult /[+-]/ mult >

        mult	:	<leftop: expo /[*\/\%]/ expo >

        expo	:	<leftop: value /\^|\*\*/ value >

        value	:	/\d+(\.\d+)?/
};

my $extract_tree = Parse::RecDescent->new($grammar);

my $tree = $extract_tree->expr($text);

use Data::Dumper 'Dumper';
print Dumper $tree;

print $tree->eval();

package expr;
use List::Util  'reduce';
sub eval { reduce {$_[0] || $_[1]} map $_->eval(), @{$_[0]{__DIRECTIVE1__}} }

package conj ;
use List::Util  'reduce';
sub eval { reduce {$_[0] && $_[1]} map $_->eval(), @{$_[0]{__DIRECTIVE1__}} }

package addn ;
use List::Util  'reduce';
sub eval { reduce {$_[0] + $_[1]} map $_->eval(), @{$_[0]{__DIRECTIVE1__}} }

package mult ;
use List::Util  'reduce';
sub eval { reduce {$_[0] * $_[1]} map $_->eval(), @{$_[0]{__DIRECTIVE1__}} }

package expo ;
use List::Util  'reduce';
sub eval { reduce {$_[0] ** $_[1]} map $_->eval(), @{$_[0]{__DIRECTIVE1__}} }

package value ;
sub eval { return $_[0]{__VALUE__} }

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