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); |
Leave a Reply