| Server IP : 39.108.156.168 / Your IP : 216.73.216.104 Web Server : nginx/1.24.0 System : Linux e2.ksyuki.com 6.11.0-25-generic #25~24.04.1-Ubuntu SMP PREEMPT_DYNAMIC Tue Apr 15 17:20:50 UTC 2 x86_64 User : root ( 0) PHP Version : 8.3.6 Disable Function : NONE MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/fdisk/ |
Upload File : |
#!/usr/bin/perl
while(<STDIN>) {
s/\s/ /g;
$list .= $_;
}
while($list =~ /^\s*([a-z0-9]{1,2})\s+(.{15})(.*)$/) {
$code = $1; $name = $2; $list = $3;
$name =~ s/\s+$//;
print "'$code' => '$name',\n";
}