View remote_exe.vbs
'How to use -> cscript remote_exe.vbs hostname "cmd /c dir" | |
strComputer = Wscript.Arguments(0) | |
strCommand = Wscript.Arguments(1) | |
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process") | |
errReturn = objWMIService.Create( strCommand , Null, Null, intProcessID ) | |
Select Case errReturn | |
Case 0 WScript.Echo "Command successfully completed " & "Process ID: " & intProcessID | |
Case 2 WScript.Echo "Access Denied" | |
Case 3 WScript.Echo "INsufficient Privilege" |
View demacboogi.pl
#!/usr/bin/env perl | |
# 사용법 | |
# perl demacboogi.pl *.zip #zip파일만 변환 | |
# perl demacboogi.pl #모든파일 변환 | |
use 5.010; | |
use strict; | |
use warnings; | |
use Encode qw/encode decode/; | |
use Unicode::Normalize qw/compose/; | |
use File::Copy; |
View group5.pl
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use Data::Dumper; | |
my @m = 1..17; | |
my @m5; | |
my $step = 5; |
View autoinstall2.pl
#!/usr/bin/env perl | |
BEGIN { | |
require FindBin; | |
require lib; | |
my $locallib_path = "$FindBin::RealBin/locallib/$^V"; | |
lib->import("$locallib_path/lib/perl5"); | |
my $cpanm; |
View autoinstall.pl
#!/usr/bin/env perl | |
BEGIN { | |
my @REQ_MODULES = qw/ | |
Mojolicious | |
Text::CSV_XS | |
/; | |
require FindBin; | |
require lib; |
View parse.pl
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
my $s = do { local $/; <DATA> }; | |
my %section = $s =~ m/ | |
^{{{(.*?)}}}-+$ | |
\n(.*?) | |
(?=\n{{{.*?}}}-+$|\Z) |
View mojo_mysql_reconnect.pl
use Mojolicious::Lite; | |
use Mojo::mysql; | |
helper db => sub { | |
state $db = Mojo::mysql->new('mysql://user:pass@/task')->db; | |
if (! $db->ping ) { | |
$db->dbh( $db->dbh->clone() ) or die "cannot connect to db"; | |
} | |
return $db; | |
}; |
View bench.pl
#!/usr/bin/env perl | |
use 5.012; | |
use warnings; | |
use blib; | |
use Benchmark qw/cmpthese/; | |
use mop; # 2013-07-22 | |
{ | |
package Raw; |
View patch.diff
--- Directory.pm.org 2012-11-12 13:38:22.000000000 +0900 | |
+++ Directory.pm 2013-03-31 00:23:52.000000000 +0900 | |
@@ -5,6 +5,7 @@ | |
use Cwd (); | |
use Encode (); | |
+use Encode::Locale; | |
use DirHandle; | |
use Mojo::Base qw{ Mojolicious::Plugin }; | |
use Mojolicious::Types; |
View Inline_bench.pl
#!/usr/bin/env perl | |
use 5.010; | |
use strict; | |
use warnings; | |
use Benchmark; | |
use Data::Dumper; | |
timethese(1000000, { | |
perl => sub { sub_perl(100) }, | |
c => sub { sub_c(100) }, |
NewerOlder