XHTML 1.0 Transitional Compliance

[Ovid]

--- Joshua Keroes <joshua_keroes at eli.net> wrote:
> > "Ovid" on http://www.perlmonks.org/
> > Someone asked me how to count to 10 in Perl:
> > push at A,$_ for reverse q.e...q.n.;for(@A){$_=unpack(q|c|,$_);@a=split//;
> > shift at a;shift at a if $a[$[]eq$[;$_=join q||, at a};print $_,$/for reverse @A
> 
> Hey mang, one of these days you have to show us how to count to 11.
> 
> -J

$_ ='push at A,$_ for reverse q.e...q.n.;for(@A){$_=unpack(q|c|,$_);@a=split//;
shift at a;shift at a if $a[$[]eq$[;$_=join q||, at a};print $_,$/for reverse @A';
s/\.n/.o/;
eval;

Cheers,
Curtis "Ovid" Poe 


=====
"Ovid" on http://www.perlmonks.org/
Someone asked me how to count to 10 in Perl:
push at A,$_ for reverse q.e...q.n.;for(@A){$_=unpack(q|c|,$_);@a=split//;
shift at a;shift at a if $a[$[]eq$[;$_=join q||, at a};print $_,$/for reverse @A

__________________________________________________
Do You Yahoo!?
Yahoo! - Official partner of 2002 FIFA World Cup
http://fifaworldcup.yahoo.com
TIMTOWTDI