Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Re: TMTOWTDI Puzzle: Generating a range of numbers

by runrig (Abbot)
on Dec 19, 2001 at 05:28 UTC ( #132993=note: print w/replies, xml ) Need Help??

in reply to TMTOWTDI Puzzle: Generating a range of numbers

In a roundabout way...:
use strict; use warnings; open(FH, ">tmp.txt") or die "OH NOOO!: $!"; print FH "x"; close FH; my (@done, @array) = qw(Why the heck am I even writing this stupid program?); { open(FH, ">>tmp.txt") or die "OH NOOO!: $!"; push @array, -s FH; print FH "x"; close FH; last if @array eq @done; redo; } print "@array\n";
Changed '==' to 'eq' since '==' might be considered a mathmatical operator :-)

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://132993]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (5)
As of 2016-10-22 08:37 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (294 votes). Check out past polls.