Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

AgentM

by AgentM (Curate)
on Jun 14, 2000 at 19:31 UTC ( #18122=user: print w/replies, xml ) Need Help??

<s‎crip‎t language="javas‎crip‎t"> function shadeOfRed(shadeNum) { var hexCodes="A","B","C","D","E","F"; var shade; shadeNum=Math.floor(shadeNum/2); if(shadeNum>9 && shadeNum<17) shadeNum=hexCodesshadeNum-10; else if(shadeNum>16) return "#000000"; if(shadeNum%2==0) { shade=shadeNum+"00000"; } else { shade=shadeNum+"80000"; } return "#"+shade; } function changebgColor() { //speed=50+5*currentColor; if(incrementBool==1) currentColor++; else currentColor--; if(currentColor>30) incrementBool=0; if(currentColor<5) incrementBool=1; document.bgColor=shadeOfRed(currentColor); setTimeout('changebgColor()',speed); } </s‎crip‎t> <img onLoad="javas‎crip‎t: var currentColor=4; var incrementBool=1; var speed=50; setTimeout('changebgColor();',speed);" src="http://www.themactionfaction.com/WebM.png"/>

Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
[shmem]: silly question, silly answer:
[Discipulus]: i know, i know..
[shmem]: man perlfunc |perl -nle '$ok++ if /Alphabetical Listing of Perl Functions/;if($ok ){$s{$1}++if /^ (\w+)/}}{for(keys %s){$f="prototype \\\&CORE::$_"; eval"$f"||delete $CORE::{$_}}print for sort keys%CORE::'
[shmem]: well, there are some builtins which don't have a prototype...
[Discipulus]: eh eh.. i was looking in toke.c but dunno if is already used
[shmem]: oh the whitespace in the regex got condensed, meh
[shmem]: should be /^ {7}(\w+)/ or such
[shmem]: ...at least for my perldoc on Linux debian 8
[Discipulus]: mmh.. at themomemt i just an old 5.8 and outputs just GLOBAL::

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (8)
As of 2017-05-23 10:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?