-
Welcome to AH.FM
Join the Biggest EDM Community, engage in discussions, share music, and connect with fellow electronic music enthusiasts!
-
Stream Live Player Pop Up | Winamp | Premium
24-12-2007 AH.FM End of Year Countdown
- Thread starter dan
- Start date
this one is for dfx....
HTML:#!/bin/perl #code for ah.pl #begin use strict; use warnings; use diagnostics; open F,"<$ARGV[0]" or die "Can't open $ARGV[0] due to: $! \n"; my @f=<F>; close F; my $i=0; my %h=(); my $x=0; my $y=-1; my $v=0; for (@f) { s/\<em\>//; s/\<\/em\>//; tr/\000-\037/ /; s/^\s{2,}//; s/\s{2,}$//; s/^\s*$//; next if m/^$/; if (m/Voters: \<strong\>(\d+)\<\/strong\>/) { $v=$1; } last if m/Multiple Choice Poll/; $i=1 if m/View Poll Results/; next if !$i; if (!m/\Q<\E/ and !$x) { s/amp;//; ++$y; $h{$y}{'n'}=$_; $x=1; } if (m/class.*title.*\<strong\>(\d+)\<\/strong\>/) { $h{$y}{'v'}=$1 if $x; } if (m/class.*nowrap.*\>(\d+\.\d+)%/) { $h{$y}{'p'}=$1 if $x; $x=0; } } close F; my @r=map{[$_->[0], $_->[1], $_->[2]]} sort{$b->[1] <=> $a->[1]} sort{$a->[0] cmp $b->[0]} map{[$h{$_}{'n'}, $h{$_}{'v'}, $h{$_}{'p'}]} keys %h; my @c=qw(red royalblue seagreen yellow darkorchid deepskyblue sienna magenta darkslateblue yellowgreen); open O,">ah.out" or die "Can't open ah.out due to: $! \n"; print O "here is a sorted list of top $ARGV[1] individual sets, $v people have voted so far.\n"; print O "ah.pl script executed on "; my $b=`date -u`; chomp $b; my @b=split / /,$b; if ($b[3]=~m/1$/) { $b[3].='st'; } elsif ($b[3]=~m/2$/) { $b[3].='nd'; } elsif ($b[3]=~m/3$/) { $b[3].='rd'; } else { $b[3].='th'; } if ($b[4]=~m/(\d+):(\d+):(\d+)/) { my $h=$1; if (!$h) { $b[4]="12:$2:$3 AM"; } elsif ( ($h>0) and ($h<12) ) { $b[4]=$h.":$2:$3 AM"; } elsif ($h==12) { $b[4]="12:$2:$3 PM"; } else { $b[4]=$h-12 .":$2:$3 PM"; } } print O "[ DATE: $b[0], $b[1] $b[3], $b[6]\tTIME: $b[4] ($b[5]) ]\n\n"; my $m=1; my $k=0; my $j; for ($j=0;$j<@r;++$j) { last if $j==$ARGV[1]; printf O "%-60s %-40s %-120s\n", (!$j ? 1 : ($r[$j][1]==$r[$j-1][1] ? $m : ++$m)) . ". " . $r[$j][0], "[indent][list] " . $r[$j][1] . " [color=darkslategray]" . '.' x 10 . "[/color] ( " . $r[$j][2] . "% ) [/list]", "[list] [b][color=" . $c[$k] . "]" . 'x' x $r[$j][1] . "[/color][/b] [/list][/indent]"; ++$k; $k=0 if $k==scalar @c; } close O; #end
that's the script nasim?...LOL
hello nasimhello binnie.:kissing:
hello binnie.
- Joined
- May 30, 2006
- Messages
- 373,738
- Reaction score
- 10,285
* wow ! how did you dó that ? ! *
that's an amázing job you did here, Nasim ! 
Thank you so much !
that's an amázing job you did here, Nasim ! Thank you so much ! hello taby
i couldn't bring myself to shut it down last night and go to sleep, i always have to do it the same way you supposed to remove a band aid...in a swift, fast motion
so you went to bed when sun was shinning, and got up when it wasn't
heyhello
hahaha yeah now that you mentioned it :tongue:so you went to bed when sun was shinning, and got up when it wasn't
this is not good hehe.
thank you.
:grinning: just so you know, baron augustin louis cauchy taught me....
got to love page 3359 & 3360...the poll and the result...lots of scrolling
lethalleigh
Registered
- Joined
- Mar 11, 2007
- Messages
- 1,589
- Reaction score
- 0
loving this!
headphones massaging my brain! 