|
|
|
| laziness, impatience, and hubris | |
| PerlMonks |
Smaug's scratchpadby Smaug (Pilgrim) |
| on Oct 22, 2004 at 06:55 UTC ( [id://401404]=scratchpad: print w/replies, xml ) | Need Help?? |
# #Restart Win32 Services with dependancies # use strict; my @order; my @results = `net stop mssqlserver /N`; foreach(@results){ if(/^ /){ push(@order,$_) } } foreach(reverse(@order)){ print("Stopping $_\n"); system("net stop \"$_\""); } #...... reverse to start again.... |
|