Help for this page

Select Code to Download


  1. or download this
    #!/opt/perl5/bin/perl -w
use strict;
...

my $msg=$syslogger->error();
print "Message is $msg\n";
  2. or download this
    Error

...
      foreach($session->error()){
         print “Error: $_\n”;
      }
  3. or download this
    sub error {
  my $self = shift;
  return $error->msg();
}
  4. or download this
    sub msg {
  my $self = shift;
...
  }
  return $self->{"ERROR"};
}