Shell Programming and Scripting

sub postEvent {

        my $this = shift;
        #  print "Passed parameters, " . Dumper(\@_) . "\n" >>/lcl/apps/esm/bin/debugevent.log;
           my %parms = @_;

$ 
$ # show the content of the Perl program
$ cat -n tst.pl
     1    #!/usr/bin/perl -w
     2    use Data::Dumper;
     3    
     4    $x = "the quick brown fox jumps over the lazy dog"; # a scalar
     5    @y = qw(10 20 30 40);                               # an array
     6    %z = qw(ruby red emerald green sapphire blue);      # a hash
     7    
     8    # open a file to write the output of Dumper
     9    $file = "dumper.log";
    10    open (F, ">", $file) or die "Can't open $file for writing: $!"; 
    11    print F Dumper $x;
    12    print F Dumper @y;
    13    print F Dumper %z;
    14    # and we're done; close the file now
    15    close (F) or die "Can't close $file: $!";
$ 
$ 
$ # run the Perl program
$ perl tst.pl
$ 
$ # and now check the "dumper.log" file
$ cat dumper.log
$VAR1 = 'the quick brown fox jumps over the lazy dog';
$VAR1 = '10';
$VAR2 = '20';
$VAR3 = '30';
$VAR4 = '40';
$VAR1 = 'sapphire';
$VAR2 = 'blue';
$VAR3 = 'emerald';
$VAR4 = 'green';
$VAR5 = 'ruby';
$VAR6 = 'red';
$ 
$ 

        open(LOGF, ">>/lcl/apps/esm/bin/eventlogger.log");
        print LOGF "Passed parameters: " . Dumper(\@_) . "\n";
        close(LOGF);
        my %parms = @_;