You can try perltidy, but if you really want to program, you should learn to use a real editor, which can help you with indentation, commenting, completion, etc.
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

I normally recommend vim, but it has quite a large learning curve. I think Notepad++ has decent syntax highlighting and code continuation, but I don't remember for certain (I use Unix).

Notepad can indent, but not automatically. Typical indenting is one tab per block. However, the standard indenting if possible in your editor is set your tab to four spaces. Here's an article on how to set Notepad++ to 4-space tabs.

Yes notepad++ is pretty good, I use it for the few scripts I write and it works a treat. Although, I suggest to go to Settings->Preferences and turn off autocompletion.

There's perltidy. But you'll probably have to fix the syntax error in your code before it'll work.

Textpad allows indentation and language specific formatting. This program costs a few bucks, but it works.

#!C:\Perl\bin\perl.exe
use strict;
use warnings;
#use diagnostics;

#
# This script is created to put the servers 
# in unplanned outage as part of the tasks that
# are received to stop the monitoring on the servers
# due to some maintenance activity on the servers.
# Author : ROHIT SHARMA (INYROHS)

my $path = 'E:/scripts/OutageNodes/';
require $path.'omwNodeDetails.pm';

&main();


sub main {

#my ($mode,@nodes);

my $mode=get_mode();

my @nodes=get_node();


  if( $mode eq 'enable'){


        enable_unplanned_outage(@nodes);

                     }

  elsif($mode eq 'disable'){


       disable_unplanned_outage(@nodes);

               }

  else {

       printLog("Error invalid Mode $mode");

    }



# clear serverlist
printLog ("Truncating serverlist");
open( SRV,'>',$path.'serverlist.txt') 
      or die "Can't open SRV '$path.serverlist': $!";
close SRV;

}



sub get_mode {

              
# expect values 'enable|disable'

my $maintMode = lc $ARGV[0]; 
chomp($maintMode);

if ($maintMode ne 'enable' && $maintMode ne 'disable'){

         $maintMode="error";

    }


    return $maintMode;


}

sub get_node {

#my ($sPath,$sFile,$sInFile,$sText, @sContent,@serverlist,$hostname,$f
+qdn);



my $sPath='e:/scripts/OutageNodes/';

my $sInFile=$sPath.'serverlist.txt';

my @sContent=();
my $sText;


##checks if the file exists and pulls the info out


      if (-e "$sInFile"){

                   open(INFILE, "<$sInFile");
                              while (<INFILE>){

                                      chomp;
                                      $sText="$_";
                                      push(@sContent, $sText);

                                              }                       
+              
                   
          close INFILE;
    }
 
      else{
        &printLog("Error Cannot open $sInFile");



          }  



# check serverlist had entries
#if (@sContent == 0){
  #printLog("ERROR No nodes found in @serverlist");
 # exit;
#}

#get FQDN************

my $hostname;
my $fqdn;

my @serverlist;

foreach my $NODE (@sContent){
  $hostname = split /\./, $NODE;
  $fqdn = getNodeAttributes($hostname,'PrimaryNodeName');

    if(length($fqdn) < 1)

      { 

         printLog("No value returned from WMI, node ($NODE) doesn't ex
+its in OMW.");

         next;

      }  


    push(@serverlist,$fqdn);


  }
return(@serverlist);

}

sub enable_unplanned_outage {

      #my ($FQDN,$cmd);

        my @nodelist=@_[0..$#_];


      foreach my $FQDN (@nodelist) {

       my $cmd = "ovownodeutil.cmd -outage_node -unplanned -disable_he
+artbeat -delete_msgs -node_name $FQDN -on ";
 
      printLog("Putting the server $FQDN into outage");        

     `$cmd`;
   
      printLog(`cmd`);        
    }

}

sub disable_unplanned_outage {
  #my ($FQDN, $mode, $cmd, $cmdresopcmona, @sContent,$output);
       my @sContent = @_[0..$#_];


####When the servers is brough out of maintenance the agent has to be 
+recycled to reset all the monitors.

         
    foreach my $FQDN (@sContent) {    
    
        my $cmd = "ovownodeutil.cmd -outage_node -unplanned -disable_h
+eartbeat -delete_msgs -node_name $FQDN -off ";    

        printLog("Node $FQDN >>> off");    
    
    my $cmdresopcmona = "ovdeploy -cmd \"ovc -restart opcmona\" -host 
+$FQDN";

             my $output=`$cmd`;

            printLog($cmd);
              
               `$cmd`;

            printLog($output);

            printLog($cmdresopcmona);

        `$cmdresopcmona`;
        
    }

}




sub printLog {

   #my ($sPath, $logFile, $sOutFile, $sText, $date_time, $SEC, $MIN, $
+HOUR, $DAY, $MON, $YEAR,$now,$logLine,$now);

    #get date/time
    my($SEC, $MIN, $HOUR, $DAY, $MON, $YEAR) = (localtime) [0..6];
      my $date_time = $YEAR + 1900 . $MON + 1 . $DAY . " " . $HOUR . "
+:" . $MIN . ":" . $SEC;


#get log file parameters
    my $sPath = "e:\\scripts\\OutageNodes\\";                    #revi
+ew - change to a standard location
    
        my $logFile=$sPath."maintenanceMode_$date_time.log";

        my ($logLine) = @_;
    
        my $now = sprintf "%02d:%02d:%02d",(localtime)[2,1,0];
    
        open (LOG,'>>',$logFile) or die "Can't open LOG '$logFile': $!
+\n";
    
           
            
        print LOG "$now $logLine\n";


        close LOG;


}
[download]