Bubble sorting with Perl
#!/usr/bin/perl use strict; use Data::Dumper; sub swap{ @_[ 0, 1 ] = @_[ 1, 0 ]; } sub […]
#!/usr/bin/perl use strict; use Data::Dumper; sub swap{ @_[ 0, 1 ] = @_[ 1, 0 ]; } sub […]
$stopingServices=Get-Service | Where-Object {$_.status -eq “stoping”} $startingServices=Get-Service | Where-Object {$_.status -eq “starting”} $runningServices=Get-Service | Where-Object {$_.status -eq “running”} $stoppedServices=Get-Service |