Re^2: Win32 - Dependant services


No such thing as a small change
	PerlMonks

Re^2: Win32 - Dependant services

by Smaug (Pilgrim)

on Oct 21, 2004 at 14:34 UTC ( [id://401177]=note: print w/replies, xml )

Need Help??

in reply to Re: Win32 - Dependant services
in thread Win32 - Dependant services

Hi PJ,
Here is a possible solution using your command shell idea and the output from 'net stop'

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....
[download]

This is an initial hack. Any ideas for improvement are welcome!!
Bye!

Comment on Re^2: Win32 - Dependant services Download Code

Replies are listed 'Best First'.
Re^3: Win32 - Dependant services by periapt (Hermit) on Oct 22, 2004 at 16:07 UTC
Actually, this looks pretty good. I may try it myself. I haven't had the opportunity to take down my server lately so I haven't tested it but I like it. PJ use strict; use warnings; use diagnostics;	[reply]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://401177]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others drinking their drinks and smoking their pipes about the Monastery: (5)

As of 2025-07-08 06:12 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found

Notices^?

	• erzuuli	‥ Anonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.

Re^2: Win32 - Dependant services

use strict; use warnings; use diagnostics;