in reply to Challenge from my Fridge

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-

Replies are listed 'Best First'.
Re: Re: Challenge from my Fridge
by Rhose (Priest) on Mar 10, 2003 at 21:27 UTC
    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]

In Section Seekers of Perl Wisdom