Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Smaug's scratchpad

by 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....