Re: Challenge from my Fridge

[robartes]

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;

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

CU
Robartes-

[Rhose]

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;
}