in reply to Re^4: Interact with mainframe screen
in thread Interact with mainframe screen

Please learn about Perl packages. The package statement declares a package. You might want to read a short introduction into Perl Object Oriented Programming, maybe the perlboot or some other tutorial on the matter. Until you understand this, you won't understand what parameters are passed to the ->new() constructor.

You don't show the relevant part of your failing code, so I cannot help you with your further problems. I guess that you have misunderstood my code or changed my code in some ways that make it not work anymore, but it's hard to tell without seeing any code.

I didn't show you the implementation of the ->cols() subroutine. You will have to write it yourself. The PCOM subroutine to call is obvious from the PCOM documentation. You might also simply want to hardcode the value to 78, if all your terminal sessions have 78 columns.

The line

my ($self) = "@_";

[download]

makes little sense. I don't find such a line in the code I posted, so this is an unrelated error introduced by you into code you did not show.

Replies are listed 'Best First'.
Re^6: Interact with mainframe screen
by notveryperlish (Initiate) on Jun 13, 2007 at 14:55 UTC
    I realize that I have a ton to learn about object oriented programming. My only perl experience has been a more linear use of the language where I read and modify/create text files. Below is the code that you posted on reading the screen. Line two is the line that concerns me....

    my ($self) = @_;

    Thanks again for your patience. 

    sub screen {
  my ($self) = @_;
  my ($cols,$rows) = ($self->cols,$self->rows);
  my ($line) = $self->eclps->GetTextRect(1,1,$rows,$cols);
  my @lines;
  while ( $line =~ s/(^.{1,$cols})//sm) {
    push @lines, $1;
  };
  s!\0! !g
    for @lines;

  # Mark fields as dirty
  $self->log("Fields marked dirty");
  $self->{fields} = undef;

  push @lines, $line if $line;
  @lines;
};

    [download]
[reply]
[d/l]

      The ->screen subroutine is to be called like this:

      my $host = Host::PCom->new($hostname);
my @lines = $host->screen();

      [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom