One Hat Cyber Team
Your IP :
216.73.216.80
Server IP :
194.44.31.54
Server :
Linux zen.imath.kiev.ua 4.18.0-553.77.1.el8_10.x86_64 #1 SMP Fri Oct 3 14:30:23 UTC 2025 x86_64
Server Software :
Apache/2.4.37 (Rocky Linux) OpenSSL/1.1.1k
PHP Version :
5.6.40
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
doc
/
perl-Bit-Vector
/
examples
/
Edit File:
benchmk2.pl
#!/usr/bin/perl use Benchmark; use Bit::Vector::String; $v = Bit::Vector->new(1024); $v->Primes(); $s = ''; $b = $v->to_Bin(); $o = $v->to_Oct(); $h = $v->to_Hex(); sub to_Bin { $s = $v->to_Bin(); } sub to_Oct { $s = $v->to_Oct(); } sub to_Hex { $s = $v->to_Hex(); } sub from_Bin { $v->from_Bin($b); } sub from_Oct { $v->from_Oct($o); } sub from_Hex { $v->from_Hex($h); } timethese ( 10000, { to_Bin => \&to_Bin, to_Oct => \&to_Oct, to_Hex => \&to_Hex } ); timethese ( 10000, { from_Bin => \&from_Bin, from_Oct => \&from_Oct, from_Hex => \&from_Hex } ); __END__
Simpan