in reply to (zdog) Re: One-Line Web Counter
in thread One-Line Web Counter

More golf...

Do echo "0" >c first. 

 perl -MCGI -i -e 'while(<>){s!(\d+)!$t=$1+1!e;print}print CGI->new->h
+eader,$t' c

[download]

JJ

Update: Removed useless semicolon.

Update 2: Even smaller now!

Replies are listed 'Best First'.
Re (tilly) 1: (jj808) Re: (zdog) Re: One-Line Web Counter
by tilly (Archbishop) on Sep 09, 2001 at 21:21 UTC
    Well leaving aside locking issues, and the point that the number 2 by itself is not exactly valid html, here is the above made even shorter. 
    perl -MCGI -pi -e 'END{print&CGI::header,$t}s/\d+/$t=$&+1/e' c

    [download]
    UPDATE
    And, of course, there is always a shorter way: 
    perl -MCGI -pi -e'END{print&CGI::header,$t}$t=++$_' c

    [download]
[reply]
[d/l]
[select]

In Section Cool Uses for Perl