Velocity Reviews - Computer Hardware Reviews

Velocity Reviews > Newsgroups > Programming > Perl > Perl Misc > Correlating Data from same .csv, line by line

Reply
Thread Tools

Correlating Data from same .csv, line by line

 
 
shadkeene@hotmail.com
Guest
Posts: n/a
 
      04-26-2007
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;

 
Reply With Quote
 
 
 
 
A. Sinan Unur
Guest
Posts: n/a
 
      04-26-2007
http://www.velocityreviews.com/forums/(E-Mail Removed) wrote in news:1177615826.742871.288080
@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
 
Reply With Quote
 
 
 
 
J. Gleixner
Guest
Posts: n/a
 
      04-26-2007
(E-Mail Removed) wrote:
> 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..
 
Reply With Quote
 
shadkeene@hotmail.com
Guest
Posts: n/a
 
      04-27-2007
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

 
Reply With Quote
 
gskallur@gmail.com
Guest
Posts: n/a
 
      05-17-2007
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","NOVEM BER","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[i]=0;x[i]=0;Y[i]=0;X[i]=0}

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

for (i=0; i < D.length; i++){Dy[i]=0;Dx[i]=0;DY[i]=0;DX[i]=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[i]+'</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[i]+'</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[i]+'</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[i]+'</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[i]+'</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[i]+'</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[i]+'</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[i]+'</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[i]+'</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[i]+'</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[i]+'</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[i]+'</
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[i]+'</
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[i]+'</
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[i]+'</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[i]+'</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[i]+'</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[i]+'</
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[i]+'</
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[i]+'</
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[i]+'</
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[i]+'</
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[i]+'</
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[i]+'</
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[i]+'</
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[i]+'</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[i]+'</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[i]+'</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+ClockFromM ouseX;
}

(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[i].style;
F.top=y[i] + ClockHeight*2*Math.sin(-1.0471 + i*Split*Math.PI/
180)+scrll;
F.left=x[i] + 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[i].style;
// N.top=y[i] + ClockHeight*3.5*Math.sin(-1.0471 + i*Split*Math.PI/
180)+scrll;
// N.left=x[i] + 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[i].style;
HL.top=y[i]+HandY+(i*HandHeight)*Math.sin(hrs)+scrll;
HL.left=x[i]+HandX+(i*HandWidth)*Math.cos(hrs);
}

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

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

for (i=0; i < D.length; i++){
var DL=(ns)?document.layers['nsDate'+i]:ieDate[i].style;
DL.top=Dy[i] + ClockHeight*2.5*Math.sin(currStep+i*Dsplit*Math.PI/
180)+scrll;
DL.left=Dx[i] + 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[i].style;
NY.top=120+Dy[i] + ClockHeight*1.2*Math.sin(currStep+i*Dsplit*Math.PI/
180)+scrll;
NY.left=140+Dx[i] + 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[i].style;
NY1.top=120+Dy[i] + ClockHeight*1.2*Math.sin(currStep
+i*Dsplit*Math.PI/180)+scrll;
NY1.left=Dx[i] + 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[i].style;
NY2.top=150+Dy[i] + ClockHeight*1.2*Math.sin(currStep
+i*Dsplit*Math.PI/180)+scrll;
NY2.left=Dx[i] + 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[i].style;
NY3.top=Dy[i] + ClockHeight*1.2*Math.sin(currStep+i*Dsplit*Math.PI/
180)+scrll-120;
NY3.left=140+Dx[i] + 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[i].style;
NY4.top=Dy[i] + ClockHeight*1.2*Math.sin(currStep+i*Dsplit*Math.PI/
180)+scrll-120;
NY4.left=Dx[i] + 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[i].style;
NY5.top=Dy[i] + ClockHeight*1.2*Math.sin(currStep+i*Dsplit*Math.PI/
180)+scrll-150;
NY5.left=Dx[i] + 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[i].style;
NY6.top=200+Dy[i] + ClockHeight*2.0*Math.sin(currStep
+i*Dsplit*Math.PI/180)+scrll;
NY6.left=220+Dx[i] + 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[i].style;
NY7.top=Dy[i] + ClockHeight*1.2*Math.sin(currStep+i*Dsplit*Math.PI/
180)+scrll;
NY7.left=160+Dx[i] + 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[i].style;
NY8.top=Dy[i] + ClockHeight*1.2*Math.sin(currStep+i*Dsplit*Math.PI/
180)+scrll;
NY8.left=Dx[i] + 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[i]=Math.round(DY[i]+=(Dy[i-1]-DY[i])*speed);
Dx[i]=Math.round(DX[i]+=(Dx[i-1]-DX[i])*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[i]=Math.round(Y[i]+=(y[i-1]-Y[i])*speed);
x[i]=Math.round(X[i]+=(x[i-1]-X[i])*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>


 
Reply With Quote
 
Michele Dondi
Guest
Posts: n/a
 
      05-17-2007
On 16 May 2007 21:47:15 -0700, (E-Mail Removed) wrote:

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

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

Huh?!?


Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
..'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
 
Reply With Quote
 
 
 
Reply

Thread Tools

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
Why Non-Correlating Print, Negative and CMOS Sizes? thankyou Digital Photography 61 06-28-2009 09:45 PM
running same script on same data on two different machines -->different result Christopher Brewster Python 5 11-14-2008 08:19 PM
eval of Data::Dumper output not same as original data structure himanshu.garg@gmail.com Perl Misc 4 08-01-2007 01:49 PM
Correlating Data from same .csv, line by line shadkeene@hotmail.com Perl Misc 1 04-29-2007 06:36 AM
My auction: Multiple people accessing the same text data file at the same time... Ouch! John Smith Perl Misc 1 11-29-2003 06:43 PM



Advertisments