Recent content by Alfio75

That's a nice code Kevin... This is working. The next step is to get it counting for n times it is getting the same X Y Z colums. example 1 2 3 4 5 6 1 2 3 8 9 10 5 4 3 I wanna get this: 1 2 3 1 2 3 4 5 6 5 4 3 8 9 10 and: 1 2 3 is 2 times found 4 5 6 is 1 time 5 4 3 is 1 time 8 9 10 is 1...

i got all those data in a file, so i think i could read those and order them.

Hello guys. Does anybody know how to order ascendent a list of data? What i mean is that i got 3 columns of data. What i need is to order them with respect to the first one, but i need all the 2 next colums get order at the same time that one. Example 1 5 4 4 8 9 10 15 4 1 5 8 2 7 9 so...

no rharsh , what i need is to add for example the 1.dat to an existent 1.dat , the 2.dat to another old 2.dat etc.

That's a good point KevinADC.! In fact is just important the secuence and not the start of count.

#!/usr/bin/perl -w use strict; my $number = 1; open FH, ">$number.dat" or die "Failed to open file [$number.dat]"; while(<DATA>) { if(/^(?:OCHO)?\s*$/) { close FH; $number++; open FH, ">$number.dat" or die "Failed to open file [$number.dat]"; next; } print FH "<"...

#!/usr/bin/perl #use strict; my $min_dist = 2; my @points = map {[split]} <DATA>; dist_between_points(0..$#points); #{[(split)[1..3,0]]} #****************************************************** sub dist_between_points { my $point = shift...

Thanks guys but what i'm needing is to rename 600 files whose names r 1.dat, 2.dat...10.dat, 11.dat...600.dat To 001.dat, 002.dat,003.dat...010.dat etc that's because when i use another program i need to get named on that way. So any advice

another question trojan. I have another post in here about distance between 2 points. Do u think using ur code can be easy to do that calculation?. I gonna give it a try but i need ur opinion.

thanks rharsh let me try something and tomorrow U'll get one question more

Yeah, trojan u r the man. but how about if i got more than 2 labels?

Hello there trojan. You did it the next code and that is working but i got a new question. ********************* #!/usr/bin/perl -w use strict; my $number = 1; open FH, ">$number.dat" or die "Failed to open file [$number.dat]"; while(<DATA>) { if(/^(?:OCHO)?\s*$/) { close FH...

I think i can assing radius if i can split the rows and if the field number one is 1 then i got a red point.I got the idea but i'm a newbie in perl

Hello again. What i really want to get is comparations between all the points, same way ur last code did it. but i need to print the kind of colors for example, just to know if i'm comparing red with red and red with green. That's because when i print those to a file i want to identify them...

Hello rharsh. ok ur code is working...now i got another question. In the last code u can know distances for 1 data set of 8 rows right? What should i do to be able to do the same for more than 1 data block ? Example: 1 0.266E+01 0.229E+01 0.384E+01 2 0.383E+01 0.301E+01 0.264E+01 1...