×

Welcome to TagMyCode

Please login or create account to add a snippet.
0
0
 
0
Language: Perl
Posted by: Ben Valentine
Added: Jan 6, 2017 4:31 PM
Views: 8
Tags: debug log perl
  1. sub logger {
  2.     my $logmessage = shift;
  3.     open my $logfile, ">>", "my.log" or die "Could not open my.log: $!";        
  4.     print $logfile $logmessage;
  5. }