Hmmm, yes I don't know of anything off the top of my head, but if you are doing terminal stuff, I would dig around (starting with CPAN of course) for anything with text based menus where you can map areas of the screen.
Perl Tk is pretty cool (and well-named, I might add) and not too difficult in case you have a windows manager running and it's an option. I would argue that learning Tk could be comparable to learning and mussing with a text based menu module unless you can just get lucky enough to dig up exactly a single method that you need. In Tk, you would just drop those two columns into two frames, make 'em scrollable and bob's your uncle - you're done. Good luck, let us know what you end up with and how it worked for you. -Tom Kinzer -----Original Message----- From: Wiggins d Anconia [mailto:[EMAIL PROTECTED] Sent: Wednesday, December 10, 2003 6:52 AM To: Pandey Rajeev-A19514; '[EMAIL PROTECTED]' Subject: RE: Help needed on perl wrappers Please bottom post... > Hi, > > I was interested in formatted display on screen. > > I can display ONE text paragraph in any part of the screen with Text::wrap. My question was how to adjust MANY such independent paragraphs in one screen (exactly in a newspaper format where you have 8-10 columns of news items on a single page). > > I wanted to know is there something like Text::wrap which can do this. Or Text::wrap can handle only one paragraph. If nothing like that exists then I might have to give up Text::wrap and use my own logic to adjust it. > > Moreover, I also wanted to use Term::Size to adjust the text with changing screen size. > > Is there any convenient way to do this ? I was looking for readymade stuff. > Please suggest. > Have you looked into using ncurses? There is at least one Perl module for manipulating terminals using (n)curses. I have not yet used it for anything in particular, though have seen it used in other apps, centericq for instance. I would think a combination of your text wrapper with curses terminal control should provide what you want... http://danconia.org > > -----Original Message----- > From: Tom Kinzer [mailto:[EMAIL PROTECTED] > Sent: Wednesday, December 10, 2003 12:05 PM > To: [EMAIL PROTECTED] > Subject: RE: Help needed on perl wrappers > > > > I'm trying to figure out WHY you would ever want to create what you are > asking for. Why-- is a good question here, because there may be a way to > get to the real goal instead of creating this. For instance if it's just > going into an HTML document, a table of course, would be easier. Just an > example, so WHY are you wanting to do this? > > If this is really want you want, then: Do you really want a ragged left on > the right column? Do you really want to use tabs? I'm thinking spaces > would be easier to deal with for this problem and could buy you a justified > left margin on the right column. > > More info please. > > -Tom Kinzer > > -----Original Message----- > From: Pandey Rajeev-A19514 [mailto:[EMAIL PROTECTED] > Sent: Tuesday, December 09, 2003 8:16 PM > To: '[EMAIL PROTECTED]' > Subject: Help needed on perl wrappers > > > Hi, > > I have a text that I read from a file. I want to display the text on the > screen in a column in a newspaper style. > I do it like this.... > > $initial_tab = "\t\t"; > $subsequent_tab = "\t\t"; > print wrap($initial_tab, $subsequent_tab, @text1); > print fill($initial_tab, $subsequent_tab, @text1); > > It will print like this ... > I am a boy and I go to school > everyday. I have to do a lot of > homework and I dont get time > to play these days. > > > But if I have more than one independent text i.e. @text2, @text3 to be > displayed in different columns, then what shall i do. > I want something like this ... > > I am a boy and I go to school She is a girl and she > also goes > everyday. I have to do a lot of to school. I do all > her homework > homework and I dont get time and she gets plenty of > time to > to play these days play. > > Is there any mechanism to achieve this ? > > Best Regards > Rajeev > -- Boycott the Sugar Bowl! You couldn't pay me to watch that game. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response> -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>