One Hat Cyber Team
Your IP :
216.73.216.240
Server IP :
162.240.106.28
Server :
Linux server.ganesand.com 3.10.0-1160.80.1.el7.x86_64 #1 SMP Tue Nov 8 15:48:59 UTC 2022 x86_64
Server Software :
Apache
PHP Version :
7.1.33
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
doc
/
perl-Data-Dump-1.22
/
t
/
Edit File:
ref.t
#!/usr/bin/perl -w use strict; use Test qw(plan ok); plan tests => 2; use Data::Dump qw(dump); my $s = \\1; ok(nl(dump($s)), <<'EOT'); \\1 EOT my %s; $s{C1} = \$s{C2}; $s{C2} = \$s{C1}; ok(nl(dump(\%s)), <<'EOT'); do { my $a = { C1 => \\do{my $fix}, C2 => 'fix' }; ${${$a->{C1}}} = $a->{C1}; $a->{C2} = ${$a->{C1}}; $a; } EOT sub nl { shift(@_) . "\n" }
Simpan