⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.93
Server IP:
65.108.141.171
Server:
Linux server.heloix.com 5.4.0-214-generic #234-Ubuntu SMP Fri Mar 14 23:50:27 UTC 2025 x86_64
Server Software:
Apache
PHP Version:
7.4.33
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
doc
/
libipc-shareable-perl
/
examples
/
Edit File: server
#!/usr/bin/perl -w use strict; use IPC::Shareable; my $glue = 'data'; my %options = ( create => 'yes', exclusive => 'no', mode => 0644, destroy => 'yes', ); tie %colours, 'IPC::Shareable', $glue, { %options } or die "server: tie failed\n"; %colours = ( red => [ 'fire truck', 'leaves in the fall', ], blue => [ 'sky', 'police cars', ], ); ((print "server: there are 2 colours\n"), sleep 5) while scalar keys %colours == 2; print "server: here are all my colours:\n"; foreach my $c (keys %colours) { print "server: these are $c: ", join(', ', @{$colours{$c}}), "\n"; } exit;
Simpan