Help for this page

Select Code to Download


  1. or download this
    my log_msg_1 {
    my $FH = shift;
...
    my ($FH, $msg) = @_;
    print $FH $msg;
}
  2. or download this
    my sub log_msg ($FH, $msg, @args) {
    print $FH $msg, @args;
}
  3. or download this
    sub log_msg {
    my ($FH, $msg, @args) = @_;
    print $FH $msg, @args;
}
  4. or download this
    #!/usr/bin/perl
use strict;
...
    my (@args) = @_;
    print join(" ",@args), "\n";
}