pearl to shell

Einklappen
X
 
  • Filter
  • Zeit
  • Anzeigen
Alles löschen
neue Beiträge

  • pearl to shell

    Ich war auf der Suche nach einer einfachen Apache Logfile Rotation in Shell Scrtip, da ich in dieser nicht so bewandert bin. Habe nun genau das gefunden, wonach ich gesucht habe! Leider ist die ganze Sache nun in Pearl programmiert.
    Ist jemand fähig dazu, dieses script in shell umzuschreiben bzw so nett um das zu tun?!
    wäre sehr dankbar!

    Code:
      #!/usr/local/bin/perl
     $LOGPATH='/usr/local/apache/logs';
     @LOGNAMES=('access_log','error_log','referer_log','agent_log');
     $PIDFILE = 'httpd.pid';
     $MAXCYCLE = 4;
    
     chdir $LOGPATH;  # Change to the log directory
     foreach $filename (@LOGNAMES) {
        for (my $s=$MAXCYCLE; $s >= 0; $s-- ) {
            $oldname = $s ? "$filename.$s" : $filename;
            $newname = join(".",$filename,$s+1);
            rename $oldname,$newname if -e $oldname;
        }
     }
     kill 'HUP',`cat $PIDFILE`;
Lädt...
X