Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
t	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
Nomad.pm	67.19 KB	-r--r--r--	2014-12-27 11:49
P5AST.pm	22.38 KB	-r--r--r--	2014-12-27 11:49
P5re.pm	13.56 KB	-r--r--r--	2014-12-27 11:49
PLXML.pm	62.43 KB	-r--r--r--	2014-12-27 11:49
p55	1.33 KB	-r--r--r--	2014-12-27 11:49

Rename

#!/usr/bin/perl

while (@ARGV and $ARGV[0] =~ /^-/) {
    my $switch = shift;
    if ($switch eq '-Y') {
        $YAML = '-Y ';
    }
    else {
        die "Unrecognized switch: -$switch";
    }
}

my $file = shift;
my $infile = $file;

unlink "$file.msg";
my $top = "/home/larry/src/p55";

my $text;
open(FILE, $file) or die "Can't open $file: $!\n";
{
    local $/;
    $text = <FILE>;
}
close FILE;
my $T;
$switches = $1 if $text =~ /^#!.*?\s(-.*)/;
$switches =~ s/\s+-[-*].*//;
$switches =~ s/\s+#.*//;

#if ($text =~ s/\bexit\b/DUMMYEXIT/g) {
#    $infile = "$file.tmp";
#    open FILE, ">$infile";
#    print FILE $text;
#    close FILE;
#}

unlink "$file.xml", "$file.msg", "$file.err", "$file.diff", "$file.p5";
print "PERL_XMLDUMP='$file.xml' $top/perl $switches -I lib $infile 2>$file.err\n";
system "PERL_XMLDUMP='$file.xml' $top/perl $switches -I lib $infile 2>$file.err";

if ($?) {
    print "Exit status $?\n";
    system "cat $file.err";
    exit 1;
}

if (not -s "$file.xml") {
    die "Didn't produce an xml file!?!\n"
}

if ($YAML) {
    system "$top/nomad -Y $file.xml";
    exit;
}

system "$top/nomad $file.xml >$file.p5 2>$file.msg";

if ($?) {
    print "Oops!\n" unless -s "$file.msg";
    system "cat $file.msg";
    exit 1;
}

system "diff -u $file $file.p5 >$file.diff";
if (-s "$file.diff") {
    system "cat $file.diff";
    exit 1;
}