Snowman has asked for the wisdom of the Perl Monks concerning the following question:

Hi,

My fridge door is littered with perl... and my friends, who are decidly non-perl users came up with the phrase...

chomp the flock

They subsequently challanged me to actually have the line of code in a perl script... So I thought I'd throw this out to the greater perl masses for consideration.

Successful completion of this challange will raise 10 of my English pounds for Charity...

--
The Snowman
snowman@notreally.co.uk

update (broquaint): $title =~ s{^Challange}{Challenge}

Replies are listed 'Best First'.
Re: Challenge from my Fridge
by xmath (Hermit) on Mar 10, 2003 at 16:20 UTC 
      sub the : lvalue

{ my $var = "Foo"   }

  chomp the flock

( Code, "4 Snowman" )

    [download]

    I initially started out with the attempt to also make it poetry but I gave up on that.. I'm not much of a poet :-)

    (It doesn't do anything useful.. that's not a problem is it?)

[reply]
[d/l]
      Ah... It was the 'the' that I was finding hard. Why it's in the perl fridge magentic I'm not sure, I suppose I could overload all the functions and have it do what ever I liked....

      --
      The Snowman
      snowman@notreally.co.uk

[reply]
Re: Challenge from my Fridge
by robartes (Priest) on Mar 10, 2003 at 16:50 UTC
    Or, if you want it on a line by itself, override flock(): 
    #!/usr/local/bin/perl -w
use strict;
use subs qw(flock);
sub the : lvalue {my $v="A flock"};
sub flock () {'of sheep'};
chomp the flock;

    [download]
    It compiles. Not to anything useful, but it compiles. It even runs. A bit like a flock of sheep, actually ;)

    CU
    Robartes-

[reply]
[d/l]
      Ok, so once again I find myself killing a few minutes working with someone else's code. *Smiles*

      I went ahead and overrode chomp to make it chomp the flock. 

      #!/usr/bin/perl -w
use strict;

use subs qw(chomp flock);
my @gFlock=(1..10);

sub chomp
{
  pop @gFlock;
}

sub the
{
  'My flock is: ',shift,"\n";
}

sub flock
{
  join(' ',@gFlock);
}

while (flock)
{
  print the flock;
  chomp the flock;
}

      [download]
[reply]
[d/l]
Re: Challenge from my Fridge
by DarknessX (Scribe) on Mar 11, 2003 at 03:43 UTC
    After asking around in the chatterbox, we decided there was no easy way to do this, but I decided to post anyway.. good poetry doesn't have to make sense, so in a twisted sort of way, perl doesn't have to compile.. I think. Plus, your friends challenged you to have it in a perl script, there's nothing about it working. With that in mind, here goes: 
    #!/usr/bin/perl -w
use strict;
use constant flock => "goose "x50;
sub the {
  my $geese=flock;
  return $geese;
}
chomp the flock; #there's the problem:  chomp is operating on flock, n
+ot on the returned value of the()

    [download]

    any ideas, suggestions, comments, at all, are desired.

[reply]
[d/l]

Back to Seekers of Perl Wisdom