That XML-0- is wrong. Without error handling the print will silently fail.
But the OPEN will create an empty file which shold be noticeable :-)
Anyway, here is the one silly way I can reproduce this...
$ cre tmp.tmp/fdl="rec; form fix; size 10"
$ perl -e "print q(x)x25" > tmp.tmp
$ type tmp.tmp
xxxxxxxxxx
xxxxxxxxxx
xxxxx
$ dump/rec tmp.tmp/wid=80
:
File ID (142525,97,0) End of file block 1 / Allocated 3
Record number 1 (00000001), 10 (000A) bytes, RFA(0001,0000,0000)
7878 78787878 78787878 xxxxxxxxxx...... 000000
Record number 2 (00000002), 10 (000A) bytes, RFA(0001,0000,000A)
7878 78787878 78787878 xxxxxxxxxx...... 000000
Record number 3 (00000003), 10 (000A) bytes, RFA(0001,0000,0014)
0000 00000078 78787878 xxxxx........... 000000
Hein.
On Sun, Jul 8, 2012 at 10:04 PM, Craig A. Berry <craigbe...@mac.com> wrote:
>
> On Jul 8, 2012, at 2:08 PM, Carl Friedberg wrote:
>
> > Hi,
> >
> > I'm sure I've missed something, and am about to do serious googling,
> > but does anyone here happen to know how to encourage the print
> > statement not to break lines at 132 chars?
> >
> > I have a 200-characacter string $y that I want to write to a file,
> > but if I do this:
> >
> > open XML, "> something.xml"
> >
> > print XMLO '<',$x,'>',$y,'</',$x,'>',"\n";
> >
> > the print commands inserts a hard return after each 132 characters.
>
>
> I cannot reproduce this with either 5.12.3 or with blead, even if I create
> the file first with DCL and then create a new version with Perl. I'm doing
> the following:
>
> open XML, "> something.xml";
> my $x = 'tag';
> my $y = 'W' x 200;
> print XML '<',$x,'>',$y,'</',$x,'>',"\n";
>
> So something is different about your environment or what you're doing.
> Are you sure there are no embedded newlines in $y?
>
> ________________________________________
> Craig A. Berry
> mailto:craigbe...@mac.com
>
> "... getting out of a sonnet is much more
> difficult than getting in."
> Brad Leithauser
>
>
