Correlating Data from same .csv, line by line

[shadkeene]

Hi,
Here's a complete but minimal example of what I'm doing with a .csv
file (each line in the .csv file corresponds to a certain date).
I'm reading the file and printing out simple statistics for the data
using the grep command. However, I'd like to go a step further and
print the date if a certain thing (or combination of things) occurred
on that day. (i.e. if checkboxes WF and CF were checked...print the
date that they were checked).
My desperate but not functional attempt to correlate the values, line
by line, and place in an array is at the bottom.

open(FH, "C:/perl-scripts/Data/coldseasonworksheet.csv")
or &dienice("couldn't open output file: $!");
seek(FH, 0, SEEK_SET); #goes to beginning of file
my @data = <FH>; #reads file and places in array
close(FH);

my @ETresults = grep(/ET,/, @data);
my $ETnum = @ETresults;

Exiting Troughs this year=$ETnum. <br>

#my @output = (); ###attempt...tried to use "and", "||" so the "||"
would be read first.
#push @output, param('DATE') and param('WF') || param('CF') for
@fields;

 

[A. Sinan Unur]

(e-mail address removed) wrote in @o40g2000prh.googlegroups.com:

Here's a complete but minimal example of what I'm doing with a .csv

If so, the word 'complete' has a very different meaning for you.

file (each line in the .csv file corresponds to a certain date).
I'm reading the file and printing out simple statistics for the data
using the grep command.

grep does not print.

My desperate but not functional attempt to correlate the values, line
by line, and place in an array is at the bottom.
....

open(FH, "C:/perl-scripts/Data/coldseasonworksheet.csv")
or &dienice("couldn't open output file: $!");

There is no dienice subroutine in your code.

Read perldoc perlsub and don't use & to call functions unless you know
what it does.

my $file = 'C:/perl-scripts/Data/coldseasonworksheet.csv';

open my $input, '<', $file
or die "Cannot open '$file': $!";

seek(FH, 0, SEEK_SET); #goes to beginning of file

You just opened the file. You have not read from the file. You are
already where you want to be.

my @data = <FH>; #reads file and places in array
close(FH);

my @ETresults = grep(/ET,/, @data);

I hated ET.

From your code, it looks like you want lines with 'ET,' anywhere in them
but my mindreader says you actually want the lines that start with 'ET,'.
Who knows. You didn't post any sample data to work with.

In any case, there is no need to slurp the file:

my @ETresults;

while ( <$input> ) {
next unless /ET,/; # assuming you meant what you wrote
push @ETresults, $_;
}

my $ETnum = @ETresults;

OK. But why?

Exiting Troughs this year=$ETnum. <br>

This is definitely not Perl.

#my @output = (); ###attempt...tried to use "and", "||" so the "||"
would be read first.

I don't think I can hope to comprehend what you are saying. Besides, the
declaration + initialization is commented out.

In general,

my @output;

is enough. You don't need to initialize it to the empty list.

#push @output, param('DATE') and param('WF') || param('CF') for
@fields;

Do you understand that 'and' and '||' are operators with different rules?

Are you just trying to say:

push @output, param('DATE'), param('WF') || param('CF');

That line says: push param('DATE') onto @output. Then, if param('WF') is
true, push that. Else, push param('CF'), whatever it is.

Do you have a good Perl book? (if not, see <http://learn.perl.org/>

Have you read it?

Have you read the posting guidelines? (if not, see
<http://augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html>)

Sinan

 

[J. Gleixner]

Hi,
Here's a complete but minimal example of what I'm doing with a .csv
file (each line in the .csv file corresponds to a certain date).

No it's an incomplete piece of code that doesn't show anything useful,
and it looks like a hidden CGI question at that..

Read the posting guidelines and try again.

I'm reading the file and printing out simple statistics for the data
using the grep command. However, I'd like to go a step further and
print the date if a certain thing (or combination of things) occurred
on that day. (i.e. if checkboxes WF and CF were checked...print the
date that they were checked).

Perl doesn't have checkboxes.

My desperate but not functional attempt to correlate the values, line
by line, and place in an array is at the bottom.

open(FH, "C:/perl-scripts/Data/coldseasonworksheet.csv")
or &dienice("couldn't open output file: $!");
seek(FH, 0, SEEK_SET); #goes to beginning of file

Why? It's already at the beginning.

my @data = <FH>; #reads file and places in array

Usually not a good thing to do.

close(FH);

my @ETresults = grep(/ET,/, @data);
my $ETnum = @ETresults;

Exiting Troughs this year=$ETnum. <br>

Whatever that means.

#my @output = (); ###attempt...tried to use "and", "||" so the "||"
would be read first.
#push @output, param('DATE') and param('WF') || param('CF') for
@fields;

my @output = @fields if param('DATE') and param('WF') or param('CF');
or...
my @output = @fields if param('DATE') and ( param('WF') or param('CF'));


No idea..

 

[shadkeene]

Thanks for the oh-so candid comments. It is a CGI program I'm
writing...not trying to hide that from the world...but trying to
expand upon with some statistics output. I started HTML/CGI three
months ago to write meteorology applications with and I'll be the
first to say this stuff is foreign to me and perhaps always will be.
I'm reading a CGI programming 101 book and just ordered
another...getting hung up on writing effective loops and how to
correlate data in a single line of .csv data. I suppose I'll look for
the CGI group to post in once I study a bit more and tinker around a
bit. Your input is appreciated, though your tact leaves something to
be desired. I'll try to post more completely.
Shad

 

[gskallur]

saved from url=(0022)http://internet.e-mail -->
<!-- saved from url=(0022)http://internet.e-mail -->
<!-- saved from url=(0022)http://internet.e-mail -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html;
charset=windows-1252">
<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY>
<SCRIPT language=JavaScript>
dCol='FF3399';//date colour.
fCol='8833FF';//face colour.
sCol='FF0000';//seconds colour.
mCol='00FF00';//minutes colour.
hCol='0000FF';//hours colour.
nCol='3388ff';//New Year '8833FF' nice color
//greann 22CC44
nCol1='3388ff';
nCol2='3388ff';
nCol3='3388ff';
nCol4='3388ff';
nCol5='3388ff';
nCol6='ff8080';
nCol7='3388ff';
nCol8='3388ff';

ClockHeight=40;
ClockWidth=40;
ClockFromMouseY=0;
ClockFromMouseX=100;

//Alter nothing below! Alignments will be lost!

d=new Array("SUNDAY","MONDAY","TUESDAY","JYOTHI
CREATOR","THURSDAY","FRIDAY","SATURDAY");
m=new
Array("JANUARY","FEBRUARY","MARCH","APRIL","MAY","JUNE","JULY","AUGUST","SEPTEMBER","OCTOBER","NOVEMBER","DECEMBER");
date=new Date();
day=date.getDate();
year=date.getYear();
if (year < 2000) year=year+1900;
TodaysDate=" "+d[date.getDay()]+" "+day+" "+m[date.getMonth()]+"
"+year;
D=TodaysDate.split('');
H='.......';
H=H.split('');
M='........';
M=M.split('');
S='.........';
S=S.split('');
Face='1 2 3 4 5 6 7 8 9 10 11 12';
font='Arial';
New= '. . . F R I E N D S H I P . . . . ';
New1=' L O V E . . L O V E . L O V E . .';
New2=' W E A L T H . . W E A L T H . .';
New3=' H A P P I N E S S . H A P P I N E S S .';
New4=' S U C C E S S . . S U C C E S S . .';
New5=' K N O W L E D G E . K N O W L E D G E .';
New6=' H E A L T H . . H E A L T H . .';
New7=' F A M I L Y . . F A M I L Y . . ';
New8=' H O N E S T Y . H O N E S T Y . ';

size=1;
speed=0.6;
ns=(document.layers);
ie=(document.all);
Face=Face.split(' ');
n=Face.length;

New=New.split(' ');
ny=New.length;

New1=New1.split(' ');
ny1=New1.length;

New2=New2.split(' ');
ny2=New2.length;

New3=New3.split(' ');
ny3=New3.length;

New4=New4.split(' ');
ny4=New4.length;

New5=New5.split(' ');
ny5=New5.length;

New6=New6.split(' ');
ny6=New6.length;

New7=New7.split(' ');
ny7=New7.length;

New8=New8.split(' ');
ny8=New8.length;

a=size*10;
ymouse=0;
xmouse=0;
scrll=0;
props="<font face="+font+" size="+size+" color="+fCol+"><B>";
nprops="<font face="+font+" size="+size+" color="+nCol+"><B>";
nprops11="<font face="+font+" size="+size+" color="+nCol1+"><B>";
nprops22="<font face="+font+" size="+size+" color="+nCol2+"><B>";
nprops33="<font face="+font+" size="+size+" color="+nCol3+"><B>";
nprops44="<font face="+font+" size="+size+" color="+nCol4+"><B>";
nprops55="<font face="+font+" size="+size+" color="+nCol5+"><B>";
nprops66="<font face="+font+" size="+size+" color="+nCol6+"><B>";
nprops77="<font face="+font+" size="+size+" color="+nCol7+"><B>";
nprops88="<font face="+font+" size="+size+" color="+nCol8+"><B>";

props2="<font face="+font+" size="+size+" color="+dCol+"><B>";
Split=360/n;
Dsplit=360/D.length;
HandHeight=ClockHeight/4.5
HandWidth=ClockWidth/4.5
HandY=-7;
HandX=-2.5;
scrll=0;
step=0.06;
currStep=0;

y=new Array();x=new Array();Y=new Array();X=new Array();

for (i=0; i < n; i++){y=0;x=0;Y=0;X=0}

Dy=new Array();Dx=new Array();DY=new Array();DX=new Array();

for (i=0; i < D.length; i++){Dy=0;Dx=0;DY=0;DX=0}

if (ns){
for (i=0; i < D.length; i++)
document.write('<layer name="nsDate'+i+'" top=0 left=0 height='+a+'
width='+a+'><center>'+props2+D+'</font></center></layer>');
for (i=0; i < n; i++)
document.write('<layer name="nsFace'+i+'" top=0 left=0 height='+a+'
width='+a+'><center>'+props+Face+'</font></center></layer>');

for (i=0; i < ny; i++)
document.write('<layer name="nsNew'+i+'" top=0 left=0 height='+a+'
width='+a+'><center>'+nprops+New+'</font></center></layer>');

for (i=0; i < ny1; i++)
document.write('<layer name="nsNew1'+i+'" top=0 left=0 height='+a+'
width='+a+'><center>'+nprops11+New1+'</font></center></layer>');

for (i=0; i < ny2; i++)
document.write('<layer name="nsNew2'+i+'" top=0 left=0 height='+a+'
width='+a+'><center>'+nprops22+New2+'</font></center></layer>');

for (i=0; i < ny3; i++)
document.write('<layer name="nsNew3'+i+'" top=0 left=0 height='+a+'
width='+a+'><center>'+nprops33+New3+'</font></center></layer>');

for (i=0; i < ny4; i++)
document.write('<layer name="nsNew4'+i+'" top=0 left=0 height='+a+'
width='+a+'><center>'+nprops44+New4+'</font></center></layer>');

for (i=0; i < ny5; i++)
document.write('<layer name="nsNew5'+i+'" top=0 left=0 height='+a+'
width='+a+'><center>'+nprops55+New5+'</font></center></layer>');

for (i=0; i < ny6; i++)
document.write('<layer name="nsNew6'+i+'" top=0 left=0 height='+a+'
width='+a+'><center>'+nprops66+New6+'</font></center></layer>');

for (i=0; i < ny7; i++)
document.write('<layer name="nsNew7'+i+'" top=0 left=0 height='+a+'
width='+a+'><center>'+nprops77+New7+'</font></center></layer>');

for (i=0; i < ny8; i++)
document.write('<layer name="nsNew8'+i+'" top=0 left=0 height='+a+'
width='+a+'><center>'+nprops88+New8+'</font></center></layer>');

for (i=0; i < S.length; i++)
document.write('<layer name=nsSeconds'+i+' top=0 left=0 width=15
height=15><font face=Arial size=3 color='+sCol+'><center><b>'+S+'</
b></center></font></layer>');
for (i=0; i < M.length; i++)
document.write('<layer name=nsMinutes'+i+' top=0 left=0 width=15
height=15><font face=Arial size=3 color='+mCol+'><center><b>'+M+'</
b></center></font></layer>');
for (i=0; i < H.length; i++)
document.write('<layer name=nsHours'+i+' top=0 left=0 width=15
height=15><font face=Arial size=3 color='+hCol+'><center><b>'+H+'</
b></center></font></layer>');
}

if (ie){

document.write('<div id="Od" style="position:absolute;top:0px;left:
0px"><div style="position:relative">');

for (i=0; i < D.length; i++)
document.write('<div id="ieDate" style="position:absolute;top:0px;left:
0;height:'+a+';width:'+a+';text-align:center">'+props2+D+'</B></
font></div>');

document.write('</div></div>');
document.write('<div id="Of" style="position:absolute;top:0px;left:
0px"><div style="position:relative">');

for (i=0; i < n; i++)
document.write('<div id="ieFace" style="position:absolute;top:0px;left:
0;height:'+a+';width:'+a+';text-align:center">'+props+Face+'</B></
font></div>');
document.write('</div></div>');
document.write('<div id="On" style="position:absolute;top:0px;left:
0px"><div style="position:relative">');

for (i=0; i < ny; i++)
document.write('<div id="ieNew" style="position:absolute;top:0px;left:
0;height:'+a+';width:'+a+';text-align:center">'+nprops+New+'</B></
font></div>');
document.write('</div></div>');
document.write('<div id="On1" style="position:absolute;top:0px;left:
0px"><div style="position:relative">');

for (i=0; i < ny1; i++)
document.write('<div id="ieNew1" style="position:absolute;top:0px;left:
0;height:'+a+';width:'+a+';text-align:center">'+nprops11+New1+'</
B></font></div>');
document.write('</div></div>');
document.write('<div id="On2" style="position:absolute;top:0px;left:
0px"><div style="position:relative">');

for (i=0; i < ny2; i++)
document.write('<div id="ieNew2" style="position:absolute;top:0px;left:
0;height:'+a+';width:'+a+';text-align:center">'+nprops22+New2+'</
B></font></div>');
document.write('</div></div>');
document.write('<div id="On3" style="position:absolute;top:0px;left:
0px"><div style="position:relative">');

for (i=0; i < ny3; i++)
document.write('<div id="ieNew3" style="position:absolute;top:0px;left:
0;height:'+a+';width:'+a+';text-align:center">'+nprops33+New3+'</
B></font></div>');
document.write('</div></div>');
document.write('<div id="On4" style="position:absolute;top:0px;left:
0px"><div style="position:relative">');

for (i=0; i < ny4; i++)
document.write('<div id="ieNew4" style="position:absolute;top:0px;left:
0;height:'+a+';width:'+a+';text-align:center">'+nprops44+New4+'</
B></font></div>');
document.write('</div></div>');
document.write('<div id="On5" style="position:absolute;top:0px;left:
0px"><div style="position:relative">');

for (i=0; i < ny5; i++)
document.write('<div id="ieNew5" style="position:absolute;top:0px;left:
0;height:'+a+';width:'+a+';text-align:center">'+nprops55+New5+'</
B></font></div>');
document.write('</div></div>');
document.write('<div id="On6" style="position:absolute;top:0px;left:
0px"><div style="position:relative">');

for (i=0; i < ny6; i++)
document.write('<div id="ieNew6" style="position:absolute;top:0px;left:
0;height:'+a+';width:'+a+';text-align:center">'+nprops66+New6+'</
font></div>');
document.write('</div></div>');
document.write('<div id="On7" style="position:absolute;top:0px;left:
0px"><div style="position:relative">');

for (i=0; i < ny7; i++)
document.write('<div id="ieNew7" style="position:absolute;top:0px;left:
0;height:'+a+';width:'+a+';text-align:center">'+nprops77+New7+'</
B></font></div>');
document.write('</div></div>');
document.write('<div id="On8" style="position:absolute;top:0px;left:
0px"><div style="position:relative">');

for (i=0; i < ny8; i++)
document.write('<div id="ieNew8" style="position:absolute;top:0px;left:
0;height:'+a+';width:'+a+';text-align:center">'+nprops88+New8+'</
B></font></div>');
document.write('</div></div>');
document.write('<div id="Oh" style="position:absolute;top:0px;left:
0px"><div style="position:relative">');

for (i=0; i < H.length; i++)
document.write('<div id="ieHours" style="position:absolute;width:
16px;height:16px;font-family:Arial;font-size:16px;color:'+hCol+';text-
align:center;font-weight:bold">'+H+'</div>');
document.write('</div></div>');
document.write('<div id="Om" style="position:absolute;top:0px;left:
0px"><div style="position:relative">');

for (i=0; i < M.length; i++)
document.write('<div id="ieMinutes" style="position:absolute;width:
16px;height:16px;font-family:Arial;font-size:16px;color:'+mCol+';text-
align:center;font-weight:bold">'+M+'</div>');
document.write('</div></div>')
document.write('<div id="Os" style="position:absolute;top:0px;left:
0px"><div style="position:relative">');

for (i=0; i < S.length; i++)
document.write('<div id="ieSeconds" style="position:absolute;width:
16px;height:16px;font-family:Arial;font-size:16px;color:'+sCol+';text-
align:center;font-weight:bold">'+S+'</div>');
document.write('</div></div>')
}

(ns)?window.captureEvents(Event.MOUSEMOVE):0;

function Mouse(evnt){
ymouse = (ns)?evnt.pageY+ClockFromMouseY-(window.pageYOffset):event.y
+ClockFromMouseY;
xmouse = (ns)?evnt.pageX+ClockFromMouseX:event.x+ClockFromMouseX;
}

(ns)?window.onMouseMove=Mouse:document.onmousemove=Mouse;

function ClockAndAssign(){

time = new Date ();
secs = time.getSeconds();
sec = -1.57 + Math.PI * secs/30;
mins = time.getMinutes();
min = -1.57 + Math.PI * mins/30;
hr = time.getHours();
hrs = -1.575 + Math.PI * hr/6+Math.PI*parseInt(time.getMinutes())/360;

if (ie){
Od.style.top=window.document.body.scrollTop;
Of.style.top=window.document.body.scrollTop;

On.style.top=window.document.body.scrollTop;
On1.style.top=window.document.body.scrollTop;
On2.style.top=window.document.body.scrollTop;
On3.style.top=window.document.body.scrollTop;
On4.style.top=window.document.body.scrollTop;
On5.style.top=window.document.body.scrollTop;
On6.style.top=window.document.body.scrollTop;
On7.style.top=window.document.body.scrollTop;
On8.style.top=window.document.body.scrollTop;

Oh.style.top=window.document.body.scrollTop;
Om.style.top=window.document.body.scrollTop;
Os.style.top=window.document.body.scrollTop;
}

for (i=0; i < n; i++){
var F=(ns)?document.layers['nsFace'+i]:ieFace.style;
F.top=y + ClockHeight*2*Math.sin(-1.0471 + i*Split*Math.PI/
180)+scrll;
F.left=x + ClockWidth*2*Math.cos(-1.0471 + i*Split*Math.PI/180);
}

//for (i=0; i < ny; i++){
// var N=(ns)?document.layers['nsNew'+i]:ieNew.style;
// N.top=y + ClockHeight*3.5*Math.sin(-1.0471 + i*Split*Math.PI/
180)+scrll;
// N.left=x + ClockWidth*3.5*Math.cos(-1.0471 + i*Split*Math.PI/
180);
// }

for (i=0; i < H.length; i++){
var HL=(ns)?document.layers['nsHours'+i]:ieHours.style;
HL.top=y+HandY+(i*HandHeight)*Math.sin(hrs)+scrll;
HL.left=x+HandX+(i*HandWidth)*Math.cos(hrs);
}

for (i=0; i < M.length; i++){
var ML=(ns)?document.layers['nsMinutes'+i]:ieMinutes.style;
ML.top=y+HandY+(i*HandHeight)*Math.sin(min)+scrll;
ML.left=x+HandX+(i*HandWidth)*Math.cos(min);
}

for (i=0; i < S.length; i++){
var SL=(ns)?document.layers['nsSeconds'+i]:ieSeconds.style;
SL.top=y+HandY+(i*HandHeight)*Math.sin(sec)+scrll;
SL.left=x+HandX+(i*HandWidth)*Math.cos(sec);
}

for (i=0; i < D.length; i++){
var DL=(ns)?document.layers['nsDate'+i]:ieDate.style;
DL.top=Dy + ClockHeight*2.5*Math.sin(currStep+i*Dsplit*Math.PI/
180)+scrll;
DL.left=Dx + ClockWidth*2.5*Math.cos(currStep+i*Dsplit*Math.PI/
180);
}

for (i=0; i < ny; i++){
var NY=(ns)?document.layers['nsNew'+i]:ieNew.style;
NY.top=120+Dy + ClockHeight*1.2*Math.sin(currStep+i*Dsplit*Math.PI/
180)+scrll;
NY.left=140+Dx + ClockWidth*1.2*Math.cos(currStep+i*Dsplit*Math.PI/
180);
}

for (i=0; i < ny1; i++){
var NY1=(ns)?document.layers['nsNew1'+i]:ieNew1.style;
NY1.top=120+Dy + ClockHeight*1.2*Math.sin(currStep
+i*Dsplit*Math.PI/180)+scrll;
NY1.left=Dx + ClockWidth*1.2*Math.cos(currStep+i*Dsplit*Math.PI/
180)-140;
}

for (i=0; i < ny2; i++){
var NY2=(ns)?document.layers['nsNew2'+i]:ieNew2.style;
NY2.top=150+Dy + ClockHeight*1.2*Math.sin(currStep
+i*Dsplit*Math.PI/180)+scrll;
NY2.left=Dx + ClockWidth*1.2*Math.cos(currStep+i*Dsplit*Math.PI/
180);
}

for (i=0; i < ny3; i++){
var NY3=(ns)?document.layers['nsNew3'+i]:ieNew3.style;
NY3.top=Dy + ClockHeight*1.2*Math.sin(currStep+i*Dsplit*Math.PI/
180)+scrll-120;
NY3.left=140+Dx + ClockWidth*1.2*Math.cos(currStep
+i*Dsplit*Math.PI/180);
}

for (i=0; i < ny4; i++){
var NY4=(ns)?document.layers['nsNew4'+i]:ieNew4.style;
NY4.top=Dy + ClockHeight*1.2*Math.sin(currStep+i*Dsplit*Math.PI/
180)+scrll-120;
NY4.left=Dx + ClockWidth*1.2*Math.cos(currStep+i*Dsplit*Math.PI/
180)-140;
}

for (i=0; i < ny5; i++){
var NY5=(ns)?document.layers['nsNew5'+i]:ieNew5.style;
NY5.top=Dy + ClockHeight*1.2*Math.sin(currStep+i*Dsplit*Math.PI/
180)+scrll-150;
NY5.left=Dx + ClockWidth*1.2*Math.cos(currStep+i*Dsplit*Math.PI/
180);
}

for (i=0; i < ny6; i++){
var NY6=(ns)?document.layers['nsNew6'+i]:ieNew6.style;
NY6.top=200+Dy + ClockHeight*2.0*Math.sin(currStep
+i*Dsplit*Math.PI/180)+scrll;
NY6.left=220+Dx + ClockWidth*2.0*Math.cos(currStep
+i*Dsplit*Math.PI/180);
}

for (i=0; i < ny7; i++){
var NY7=(ns)?document.layers['nsNew7'+i]:ieNew7.style;
NY7.top=Dy + ClockHeight*1.2*Math.sin(currStep+i*Dsplit*Math.PI/
180)+scrll;
NY7.left=160+Dx + ClockWidth*1.2*Math.cos(currStep
+i*Dsplit*Math.PI/180);
}

for (i=0; i < ny8; i++){
var NY8=(ns)?document.layers['nsNew8'+i]:ieNew8.style;
NY8.top=Dy + ClockHeight*1.2*Math.sin(currStep+i*Dsplit*Math.PI/
180)+scrll;
NY8.left=Dx + ClockWidth*1.2*Math.cos(currStep+i*Dsplit*Math.PI/
180)-160;
}

currStep-=step;

}

function Delay(){
scrll=(ns)?window.pageYOffset:0;
Dy[0]=Math.round(DY[0]+=((ymouse)-DY[0])*speed);
Dx[0]=Math.round(DX[0]+=((xmouse)-DX[0])*speed);
for (i=1; i < D.length; i++){
Dy=Math.round(DY+=(Dy[i-1]-DY)*speed);
Dx=Math.round(DX+=(Dx[i-1]-DX)*speed);
}
y[0]=Math.round(Y[0]+=((ymouse)-Y[0])*speed);
x[0]=Math.round(X[0]+=((xmouse)-X[0])*speed);
for (i=1; i < n; i++){
y=Math.round(Y+=(y[i-1]-Y)*speed);
x=Math.round(X+=(x[i-1]-X)*speed);
}
ClockAndAssign();
setTimeout('Delay()',20);
}

if (ns||ie)window.onload=Delay;
</SCRIPT>

<BR><BR><BR><BR><BR><BR><BR><BR><BR>
<FONT color=blue>
<!--How amazing is this?</FONT size=20 Color=red><BR>I do not know who
wrote this HTML code but it's quite spectacular (don't forget to move
your mouse and see what happens).<br>Merv Chivers )-->

</BODY></HTML>

 

[Michele Dondi]

saved from url=(0022)http://internet.e-mail -->

[snip 490 more lines of code seemingly containing no Perl at all]

Huh?!?


Michele