Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister

Making sense of "write"??

by jeff316 (Initiate)
on Jul 16, 2004 at 19:07 UTC ( #375096=perlquestion: print w/replies, xml ) Need Help??
jeff316 has asked for the wisdom of the Perl Monks concerning the following question:

Hi All, trying to teach myself perl and am running into some frustration using write. I've written a simple script to count the occurences of digits in numbers and compare them to the "expected" frequency (Benford's Law), but when I go to print it I can't seem to get the format right, I get "runaway format" if I try to do it per the documentation I have. Here's the exisitng write section:

<snip a bunch of stupid newbie code>
write; format FtDreport= *****************Digits 1 - 99 ************************************ NUMBER**OCCURENCES***EXPECTED *****ACTUAL************************** ******************************************************************* ~~ ^< ^>>>>> ^>>>>>>>> ^>>>>>>>> $digits, $ftdocc, $ftdexp, $ftdact ******************************************************************* + .
This works great if the file I'm reading has enough numbers (say 100K) but not if I run through 100 or so. The problem is with the "^" which I know means wrap this line, but if I try the following using @>> or even @# I get the runaway format. I can post the rest of the script if it would help . I'm using active state perl 5.83 on win32....Can anyone point me to a good resource for "write" or clue me in if I'm making some stupid mistake?


Replies are listed 'Best First'.
Re: Making sense of "write"??
by Paladin (Priest) on Jul 16, 2004 at 19:57 UTC
    ^ doesn't really mean wrap the line.

    What it does is put as much text into the field as it can, then remove that text from the variable so the next time it's used, the next part of the text will be filled in.

    @ doesn't do this, so combined with the ~~, which means to repeat over and over until the variable is empty, you get the first part over and over again.

    You can find much more info on Forms in perldoc perlform.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://375096]
Approved by sgifford
[thezip]: G'day all!
[perldigious]: Well, that and dodging the people who forget how ice works right away. :-)
[stevieb]: hey, thezip
[perldigious]: I don't miss having to drive up and down in elevation on roads that are iced over, I white knuckled gripping the steering wheel every time I had to where I used to live.
[perldigious]: So I don't envy you mountain guys if you have to drive in the winter, even with tire chains.
MidLifeXis waves.
[stevieb]: man, I absolutely LOVE driving in the worst winter conditions. In the mountainous roads, there are extremely few (if any) other drivers. I love the challenge. I've been doing extreme off-road my whole life, and as I said, I'm always well...
[stevieb]: ...prepared for even the very worst
Discipulus seems a part of the globe very unfrindly with Kawasaki riders..

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (8)
As of 2016-12-06 16:44 GMT
Find Nodes?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:

    Results (112 votes). Check out past polls.