!C99Shell v. 2.0 [PHP 7 Update] [25.02.2019]!

Software: Apache. PHP/7.3.33 

uname -a: Linux web25.us.cloudlogin.co 5.10.237-xeon-hst #1 SMP Mon May 5 15:10:04 UTC 2025 x86_64 

uid=233359(alpastrology) gid=888(tty) groups=888(tty),33(tape) 

Safe-mode: OFF (not secure)

/usr/share/doc/perl-Moose/benchmarks/cmop/   drwxr-xr-x
Free 6181.59 GB of 6262.79 GB (98.7%)
Home    Back    Forward    UPDIR    Refresh    Search    Buffer    Encoder    Tools    Proc.    FTP brute    Sec.    SQL    PHP-code    Update    Feedback    Self remove    Logout    


Viewing file:     profile.pl (620 B)      -rwxr-xr-x
Select action/file-type:
(+) | (+) | (+) | Code (+) | Session (+) | (+) | SDB (+) | (+) | (+) | (+) | (+) | (+) |
#!/usr/bin/perl -w
# Usage: perl bench/profile.pl (no other options including -Mblib are reqired)

use strict;

my $script = 'bench/foo.pl';

my $branch = do {
    open my $in, '.git/HEAD' or die "Cannot open .git/HEAD: $!";
    my $s = scalar <$in>;
    chomp $s;
    $s =~ s{^ref: \s+ refs/heads/}{}xms;
    $s =~ s{/}{_}xmsg;
    $s;
};

print "Profiling $branch ...\n";

my @cmd = ( $^X, '-Iblib/lib', '-Iblib/arch', $script );
print "> @cmd\n";
system(@cmd) == 0 or die "Cannot profile";

@cmd = ( $^X, '-S', 'nytprofhtml', '--out', "nytprof-$branch" );
print "> @cmd\n";
system(@cmd) == 0 or die "Cannot profile";

:: Command execute ::

Enter:
 
Select:
 

:: Search ::
  - regexp 
:: Upload ::
 
[ Read-Only ]

:: Make Dir ::
 
[ Read-Only ]
:: Make File ::
 
[ Read-Only ]

:: Go Dir ::
 
:: Go File ::
 

--[ c99shell v. 2.0 [PHP 7 Update] [25.02.2019] maintained by KaizenLouie | C99Shell Github | Generation time: 0.0132 ]--