Perl: Text File öffnen und überschreiben

Perl Logo
Perl Logo

Perl ist eine hervorragende Programmiersprache für Linux und Server Administratoren. Sehr oft muss man Text Files öffnen, überschreiben und/oder manipulieren. Hier finden man ein Perl Skript, um ein Text File als Log zu schreiben:

#OPEN A FILE
open(LOG,”/var/www/virtual/test.com/test.log”);
@LOG=<LOG>;
close(LOG);

@LOG=reverse @LOG;
foreach $line (@LOG){
print $line;
}

#WRITE IN A FILE
open(LOG,”>>/var/www/virtual/test.com/test.log”);
print LOG “$ENV{‘REMOTE_ADDR’}|\n”;
close(LOG);

Be the first to comment

Leave a Reply

Your email address will not be published.


*