Comments on: Text::Wrap http://www.bayview.com/blog/2002/08/02/textwrap/ Bay View Consulting Services, Inc. Thu, 20 Nov 2008 15:40:05 +0000 http://wordpress.org/?v=2.5.1 By: Mike http://www.bayview.com/blog/2002/08/02/textwrap/#comment-17912 Mike Mon, 01 Oct 2007 20:05:14 +0000 http://www.bayview.com/blog/?p=16#comment-17912 I have the following code that does not work against a large text file (notepad) <code> #! / usr/bin/perl -w use Text::Wrap qw(wrap $columns $huge); $columns = 132; $huge = "die"; # # $name = $ARGV[0]; $name1 = $ARGV[1]; # # open (INFILE, "$name1"); while (my $row = ) { print OUTFILE wrap('','',$row) ; } close (INFILE); close (OUTFILE); </code> The input file is 4MB and contains variable lenght lines of what would seem to be meaningless text. It is actually an EDI file where each record is seperated by a "~" tilde. I need the file reformated to remove any prexisting carriage returns, and the print the output file as lines of 80 characters maximm. Can some one help me make adjustments to my code, and understand what is going wrong? This code simply prints each line that breaks at the "~" Thanks I have the following code that does not work against a large text file (notepad)

#! / usr/bin/perl -w
use Text::Wrap qw(wrap $columns $huge);
$columns = 132;
$huge = "die";
#
#
$name = $ARGV[0];
$name1 = $ARGV[1];
#
#
open (INFILE, “$name1″);
while (my $row = ) {
print OUTFILE wrap(”,”,$row) ;
}
close (INFILE);
close (OUTFILE);

The input file is 4MB and contains variable lenght lines of what would seem to be meaningless text. It is actually an EDI file where each record is seperated by a “~” tilde. I need the file reformated to remove any prexisting carriage returns, and the print the output file as lines of 80 characters maximm.

Can some one help me make adjustments to my code, and understand what is going wrong? This code simply prints each line that breaks at the “~”

Thanks

]]> By: William Ward http://www.bayview.com/blog/2002/08/02/textwrap/#comment-17256 William Ward Wed, 19 Sep 2007 22:19:19 +0000 http://www.bayview.com/blog/?p=16#comment-17256 Sorry I just got back from vacation and have been very busy. I looked at your pics but haven't had time to figure out the cause of your issue. Sorry I just got back from vacation and have been very busy. I looked at your pics but haven’t had time to figure out the cause of your issue.

]]> By: yoavhayun http://www.bayview.com/blog/2002/08/02/textwrap/#comment-17236 yoavhayun Wed, 19 Sep 2007 13:45:27 +0000 http://www.bayview.com/blog/?p=16#comment-17236 it's been a while and you didn't answer my question... wanted to know why.. anyways... hope to hear from you. it’s been a while and you didn’t answer my question… wanted to know why..
anyways… hope to hear from you.

]]> By: Yoav Hayun http://www.bayview.com/blog/2002/08/02/textwrap/#comment-16977 Yoav Hayun Fri, 14 Sep 2007 22:05:21 +0000 http://www.bayview.com/blog/?p=16#comment-16977 ok I guess it was to long. here it is: ok I'll try to explain myself better. I have a text in a var. lets say Text: my $Text = qq{title -step1... -step2... -step3...}; now I want to print it. so this is my line of code: print wrap(""," ","$Text"); the problem is that not only there is a space every new line (and not only when a word is being wrapped) but also the first word of the new line is at the same column as the '-' at the beginnig of each step. you also must know that there's is an exe file that reads the guide and a txt file that is the guide (containing all the information) so I cannot use the print function for every step. I'm also adding pics: what I want: http://img209.imageshack.us/img209/8049/wanthz5.png what I get: http://img297.imageshack.us/img297/5079/getfg8.png thank you for your help. ok I guess it was to long. here it is:

ok I’ll try to explain myself better.
I have a text in a var. lets say Text:
my $Text = qq{title
-step1…
-step2…
-step3…};

now I want to print it. so this is my line of code:

print wrap(”",” “,”$Text”);

the problem is that not only there is a space every new line (and not only when a word is being wrapped) but also the first word of the new line is at the same column as the ‘-’ at the beginnig of each step.

you also must know that there’s is an exe file that reads the guide and a txt file that is the guide (containing all the information) so I cannot use the print function for every step.

I’m also adding pics:
what I want:
http://img209.imageshack.us/img209/8049/wanthz5.png

what I get:
http://img297.imageshack.us/img297/5079/getfg8.png

thank you for your help.

]]> By: Yoav Hayun http://www.bayview.com/blog/2002/08/02/textwrap/#comment-16976 Yoav Hayun Fri, 14 Sep 2007 22:04:28 +0000 http://www.bayview.com/blog/?p=16#comment-16976 hummm I can't seem to be able to upload a new comment... hummm I can’t seem to be able to upload a new comment…

]]> By: William Ward http://www.bayview.com/blog/2002/08/02/textwrap/#comment-16897 William Ward Thu, 13 Sep 2007 19:26:28 +0000 http://www.bayview.com/blog/?p=16#comment-16897 Can you post a bigger piece of your code? I'm not quite sure what you are asking. Two things that might be relevant: 1. Text::Wrap expects each argument to be one line of text. So you might have to split your string up into individual strings, with each string being one line, and then pass those to wrap. 2. The print function does not insert spaces in between the lines of output. If you put an array inside single quotes, it does. So if that's what you want, put the text into an array and print "@array" instead. Or use join(). Can you post a bigger piece of your code? I’m not quite sure what you are asking.

Two things that might be relevant:

1. Text::Wrap expects each argument to be one line of text. So you might have to split your string up into individual strings, with each string being one line, and then pass those to wrap.

2. The print function does not insert spaces in between the lines of output. If you put an array inside single quotes, it does. So if that’s what you want, put the text into an array and print “@array” instead. Or use join().

]]> By: Yoav Hayun http://www.bayview.com/blog/2002/08/02/textwrap/#comment-16873 Yoav Hayun Thu, 13 Sep 2007 14:25:48 +0000 http://www.bayview.com/blog/?p=16#comment-16873 oh... it doesn't put in spaces. (S) = space What is want: “title. -step1... (S)... -step2... (S)... -step3... (S)..." what I get: “title. (S) (S)-step1... (S)... (S)-step2... (S)... (S)-step3... (S)..." oh… it doesn’t put in spaces.

(S) = space

What is want:
“title.
-step1…
(S)…
-step2…
(S)…
-step3…
(S)…”

what I get:

“title. (S)
(S)-step1…
(S)…
(S)-step2…
(S)…
(S)-step3…
(S)…”

]]> By: Yoav Hayun http://www.bayview.com/blog/2002/08/02/textwrap/#comment-16872 Yoav Hayun Thu, 13 Sep 2007 14:22:42 +0000 http://www.bayview.com/blog/?p=16#comment-16872 well I have a question about word wraping. I've created an easy to use text guide with perl. I've devided it into a program that reads the guide and a program that is the guide. when I print the part the user is asking for I want it to print it like so: "title. -step1...... ....... -step2...... ..... -step3.... ..... " I've used this line of code to do so: print wrap(""," ","$text"); the problem is that is comes out like this: "title. -step1... ... -step2... ... -step3... ..." my problem is that it puts a space every time there is a new line instead of only doing so when wraping a word. I really hope you understood my problem and that you have a sulotion for me. thank you for your time =] well I have a question about word wraping.
I’ve created an easy to use text guide with perl.
I’ve devided it into a program that reads the guide and a program that is the guide.
when I print the part the user is asking for I want it to print it like so:

“title.
-step1……
…….
-step2……
…..
-step3….
…..
”

I’ve used this line of code to do so:
print wrap(”",” “,”$text”);

the problem is that is comes out like this:

“title.
-step1…
…
-step2…
…
-step3…
…”

my problem is that it puts a space every time there is a new line instead of only doing so when wraping a word.

I really hope you understood my problem and that you have a sulotion for me.

thank you for your time =]

]]> By: William Ward http://www.bayview.com/blog/2002/08/02/textwrap/#comment-445 William Ward Fri, 30 Jun 2006 21:37:43 +0000 http://www.bayview.com/blog/?p=16#comment-445 Does your program use the Text::Wrap module? I'm not sure what your code is trying to do. Perhaps if you post an example of the code I might be able to say more. Does your program use the Text::Wrap module? I’m not sure what your code is trying to do. Perhaps if you post an example of the code I might be able to say more.

]]> By: John http://www.bayview.com/blog/2002/08/02/textwrap/#comment-440 John Fri, 30 Jun 2006 01:45:33 +0000 http://www.bayview.com/blog/?p=16#comment-440 i have a while loop on my file.pl perl source code. When i enter a huge number like 1000, the perl source code while function doesn't wrap the numbers to reach zero on my browswer. Ne code that'll make it wrap. i have a while loop on my file.pl perl source code. When i enter a huge number like 1000, the perl source code while function doesn’t wrap the numbers to reach zero on my browswer. Ne code that’ll make it wrap.

]]>