Help with manipulating a string.

[Mark Weisman]

I've got a multiline text box that will feed the ^M at the end of each
line. I want to capture it into a single line (which is done), but how
do I get it back? Not knowing how many lines there may be with the ^M
between them. Currently, I use the old standby:

>foreach my $rec (@post) {
> chomp($rec)
> (Unknown here) = split(/\^M/,$rec);
> print "whatever I need printed\n";
>};

I'm not sure as to how to declare it, or if there is another way?

In Service,
Mark Weisman


-----Original Message-----
From: Pandey Rajeev-A19514 [mailto:rajeevpandey@motorola.com]
Sent: Tuesday, December 09, 2003 9:56 PM
To: 'beginners@perl.org'
Subject: RE: Help needed on perl wrappers


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.

Regards
Rajeev

-----Original Message-----
From: Tom Kinzer [mailto:tomkinzer@earthlink.net]
Sent: Wednesday, December 10, 2003 12:05 PM
To: [email]beginners@perl.org[/email]
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:rajeevpandey@motorola.com]
Sent: Tuesday, December 09, 2003 8:16 PM
To: 'beginners@perl.org'
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

--
To unsubscribe, e-mail: [email]beginners-unsubscribe@perl.org[/email]
For additional commands, e-mail: [email]beginners-help@perl.org[/email]
<http://learn.perl.org/> <http://learn.perl.org/first-response>



--
To unsubscribe, e-mail: [email]beginners-unsubscribe@perl.org[/email]
For additional commands, e-mail: [email]beginners-help@perl.org[/email]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


--
To unsubscribe, e-mail: [email]beginners-unsubscribe@perl.org[/email]
For additional commands, e-mail: [email]beginners-help@perl.org[/email]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

[James Edward Gray II]

On Dec 10, 2003, at 1:39 AM, Mark Weisman wrote:

> I've got a multiline text box that will feed the ^M at the end of each
> line. I want to capture it into a single line (which is done), but how
> do I get it back? Not knowing how many lines there may be with the ^M
> between them. Currently, I use the old standby:
>

>> foreach my $rec (@post) {
>> chomp($rec)
>> (Unknown here) = split(/\^M/,$rec);
>> print "whatever I need printed\n";
>> };

>
> I'm not sure as to how to declare it, or if there is another way?

my @lines = split /\^m/, $rec;

Is that what you mean? The split just returns a list of the lines, so
we can stick that in an array.

James

[Mark Weisman]

I messed something up, for some reason my textarea is not saving the
text to a single line in the text file. I've got a standard text box
that users may hit the enter key to establish different paragraphs
within their post, however, for some reason it carries the CRLF down to
the variable and the text file I'm posting it all too, I know that this
is more html than PERL, but how do I remove the CRLF, and just have the
^M again? Help.

In Service,
Mark


-----Original Message-----
From: James Edward Gray II [mailto:james@grayproductions.net]
Sent: Wednesday, December 10, 2003 5:36 AM
To: Mark Weisman
Cc: [email]beginners@perl.org[/email]
Subject: Re: Help with manipulating a string.


On Dec 10, 2003, at 1:39 AM, Mark Weisman wrote:

> I've got a multiline text box that will feed the ^M at the end of each

> line. I want to capture it into a single line (which is done), but how

> do I get it back? Not knowing how many lines there may be with the ^M
> between them. Currently, I use the old standby:
>

>> foreach my $rec (@post) {
>> chomp($rec)
>> (Unknown here) = split(/\^M/,$rec);
>> print "whatever I need printed\n";
>> };

>
> I'm not sure as to how to declare it, or if there is another way?

my @lines = split /\^m/, $rec;

Is that what you mean? The split just returns a list of the lines, so
we can stick that in an array.

James