くだすれPerl（超初心 ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
566:nobodyさん 07/12/15 01:11:18 こんなんじゃダメ？ use Cwd; my $dir = "/abc/hoge/"; my $cwd = Cwd::getcwd(); execcommand("/bin/rm -r $cwd/$dir"); exit; sub execcommand { my $cmd = shift; my $err = ''; my @envbak = ($ENV{'IFS'}, $ENV{'CDPATH'}, $ENV{'ENV'}, $ENV{'BASH_ENV'}, $ENV{'PATH'}); delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV', 'PATH'}; eval{ system( $cmd ); }; if ($@) {$err = $@;} $ENV{'IFS'} = $envbak[0]; $ENV{'CDPATH'} = $envbak[1]; $ENV{'ENV'} = $envbak[2]; $ENV{'BASH_ENV'} = $envbak[3]; $ENV{'PATH'} = $envbak[4]; return $err; } 567:564 07/12/16 19:49:12 ＞566 ありがとうございます。 参考にさせていただきました。 568:nobodyさん 07/12/17 22:02:42 質問させてください。 mimew.pl　というファイルを公開している所が見つからないのですが、 なんとか入手する方法はないでしょうか？

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

4298日前に更新/307 KB
担当:undef