|
|
 |
 |
 |
 |
Perl Programming Language
|
 |
 |
 |
 |
|
|
|
|
Any 3270 emulation for perl yet?
I searched for a perl 3270 emulator several years ago, and
could find none. I wound up using the s3270 emulator wrapped
in a perl script. I've been searching again, and still do
not see a perl based 3270 emulator. Since a perl 3270
emulator apparently still does not exist, I guess the
question is why? It would seem a natural for perl, to
connect to a 3270 and screen scrape, or whatever.
-Thanks
Fred <itf @cdw.com> writes: > I've been searching again, and still do > not see a perl based 3270 emulator. Since a perl 3270 > emulator apparently still does not exist, I guess the > question is why?
and then shared with the public second. Few (if any) modules are written
for the sole purpose of scratching some else's itch.
With that in mind, the most obvious answer would be that no one has had
both a need for such a module, and the necessary skills to write it.
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
On Thu, 22 Feb 2007 07:18:02 -0500 Fred <itf@cdw.com> wrote:
F> I searched for a perl 3270 emulator several years ago, and could
F> find none. I wound up using the s3270 emulator wrapped in a perl
F> script. I've been searching again, and still do not see a perl
F> based 3270 emulator. Since a perl 3270 emulator apparently still
F> does not exist, I guess the question is why? It would seem a
F> natural for perl, to connect to a 3270 and screen scrape, or
F> whatever.
I don't think you mean "emulator" here, since Perl is not going to
pretend to be a 3270. You want Perl to connect to a 3270 and get some
data. If you can show sample data the 3270 would send, and what tasks
you are trying to accomplish, you may get more help.
Ted
On Thu, 22 Feb 2007 07:18:02 -0500, Fred <itf @cdw.com> wrote: >I searched for a perl 3270 emulator several years ago, and >could find none. I wound up using the s3270 emulator wrapped
understand what you mean with a "perl emulator". Please note that as
particular piece of ignorance on my part, prior to your post I had no
idea what a 3270 could be, but IIUC it's a terminal. Thus the emulator
you're after is a *terminal emulator*. And a terminal emulator, well,
may be written in Perl just fine. However terminal emulators generally
aren't...
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
>>>>> "SP" == Sherm Pendley <spamt @dot-app.org> writes:
>> I've been searching again, and still do
>> not see a perl based 3270 emulator. Since a perl 3270
>> emulator apparently still does not exist, I guess the
>> question is why?
SP> Most (if not all) CPAN modules are written for the authors' own use first,
SP> and then shared with the public second. Few (if any) modules are written
SP> for the sole purpose of scratching some else's itch.
i have yet to use File::ReadBackwards! i wrote it to satisfy the global
itch for an efficient and easy way to read log (and other) files
backwards by lines. in fact given the kind of development i do, i doubt
i will ever use it. :)
and it was an interesting project.
and i also have yet to use Sort::Maker.
i do use File::Slurp :).
i seem to like other people's itches more than mine. :)
uri
--
Uri Guttman ------ u@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
Fred wrote:
> I searched for a perl 3270 emulator several years ago, and
> could find none. I wound up using the s3270 emulator wrapped
> in a perl script. I've been searching again, and still do
> not see a perl based 3270 emulator. Since a perl 3270
> emulator apparently still does not exist, I guess the
> question is why?
Maybe because the 3270 is so complex, weird and little-used nowadays?
The original 3270 was connected by Coax cable, not serial cable, not by
Ethernet (nor even Token Ring originally).
The original 3270 used a proprietary block-mode communications protocol.
I think it was synchronous rather than asynchronous.
The 3270 uses the EBCDIC character set.
I think most 3270 emulators (including s3270) emulate 3270 over telnet,
which gets rid of the first two problems. Assuming your mainframe
supports TN3270.
Perhaps Uri is busy scrutinizing RFC1576 :-)
>>>>> "R" == RedGrittyBrick <RedGrittyBr @SpamWeary.foo> writes:
>> I searched for a perl 3270 emulator several years ago, and could
>> find none. I wound up using the s3270 emulator wrapped
>> in a perl script. I've been searching again, and still do
>> not see a perl based 3270 emulator. Since a perl 3270
>> emulator apparently still does not exist, I guess the
>> question is why?
R> Maybe because the 3270 is so complex, weird and little-used nowadays?
it is still a major i/o style for many legacy mainframes. that is why
there are many software emulators around. not much in the way of
physical terminals may exist anymore but i don't know for sure.
R> The original 3270 was connected by Coax cable, not serial cable, not
R> by Ethernet (nor even Token Ring originally).
well it was used way before those were invented. hell, the simple ascii
terminal wasn't in use then too. and they did use serial lines when used
over a modem (at least the modem part did).
R> The original 3270 used a proprietary block-mode communications
R> protocol. I think it was synchronous rather than asynchronous.
bisync. it used a 2 byte sync char and was half duplex/polled.
R> The 3270 uses the EBCDIC character set.
the least of its craziness. :)
R> Perhaps Uri is busy scrutinizing RFC1576 :-)
nope. i actually used a 3270 emulator package from DEC on RT-11 way
before most of you were born. i even found a bug in it which proved that
we were the first real world users of it (it started an ack0/ack1
pattern on the wrong foot). so i know about the protocol (bisync) and
polling and such. this last fall i even helped someone i know with using
some 3270 emulation package under perl. but i won't be writing a module
for this as no itch could possibly make me care about the 3270.
a cluster of 3270s would share a single controller/modem which would
connect over a phone line to the mainframe. so it used some form of
serial line at that level. there might have been some form of coax
between the terminals and the controller. i didn't ever get into
physical use of 3270's so i may be wrong on the wiring but the protocol
i did know some way back when.
uri
--
Uri Guttman ------ u@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
|
|
|
|
|
|
Add to del.icio.us |
Digg this |
Stumble it |
Powered by Megasolutions Inc