#!/usr/bin/perl #------------------------------------------------- # ▼設定項目 #------------------------------------------------- #----------ソフランリスト---------- @arMusicList = ( [".59",123,135], ["1st Samurai",175,200], ["A",93,191], ["avant-guerre",130,146], ["CHECKING YOU OUT",108,216], ["Close my Eyes for Me",132,145], ["Concertino in Blue",140,155], ["Cradle",160,188], ["D",120,175,240], ["DANCER",145,149], ["dual control",131,140], ["empathy",85,170], ["era (nostalmix)",90,180], ["era (step mix)",90,180], ["eRAseRmOToRpHAntOM",135,270], ["Fascination MAXX",100,200,400], ["FLOWERS for ALBION",70,80,93], ["GRADIUS -FULL SPEED-",160,200,220], ["ICARUS",126,176,251], ["INSERTiON",110,139,225], ["Marie Antoinette",205,215,248], ["MAX 300",50,300], ["moon_child",146,160], ["New Castle Legions",120,150,170,180], ["NNRT(Levaslater)",101,202], ["PARANOiA 〜HADES〜",75,150,300], ["Pink Rose",132,146], ["quaver♪",182,186], ["Raison d'etre〜交差する宿命〜",155,175], ["SA.YO.NA.RA. SUPER STAR",85,170], ["SABER WING",37,74,222,444], ["Session 1 -Genesis-",79,178], ["Session 12 -Esther-",172,193], ["Session 9 -Chronicles-",182,189], ["She is my wife",85,170], ["Sol Cosine Job 2",190,200], ["Spooky",140,455], ["SYNC-ANTHEM",160,166], ["TRANOID",130,190], ["VJ ARMY",135,141,145,160], ["Votum Stellarum",136,147], ["キャッシュレスは愛情消すティッシュ",117,170], ["ピアノ協奏曲第1番 蠍火",185,188], ["ラクエン",99,198], ["ラクエン Feat.Chiharu Chonan -JAKA respect for K.S.K. remix",88,175], ["ワルツ第17番 ト短調 大犬のワルツ",280,290,300,310,320], ["大桟橋",84,168], ["桜",150,300,320], ["少年A",90,192], ["聖人の塔(Beridzebeth)",97,194], ["卑弥呼",83,185], ); @arMusicList2 = ( ["ABSOLUTE",60,144], ["Agnus Dei",70,168], ["airflow",40,148], ["Blind Justice 〜Torn souls, Hurt Faiths〜",137,165], ["earth scape",45,94], ["four pieces of heaven",125,195], ["Ganymede",72,82], ["Glorious Days",40,82,83], ["GRADIUSIC CYBER",159,160,167], ["Linus",168,176], ["Little Little Princess",180,212], ["NEBULA GRASPER",152,153], ["Prelude",135,140], ["quell -the seventh slave-",140,162], ["Regulus",120,128], ["THANK YOU FOR PLAYING",45,170], ["Voltage(feat. Hidemaru)",30,125], ["ZETA〜素数の世界と超越者〜",90,180], ["革命",83,148], ["走馬灯 -The Last Song-",68,85], ["冥",66,100,200], ); #----------基本設定---------- # スクリプトURL $this_cgi = "./sudplus_fhs.cgi"; #-------------------------------------------------------- #----------以下は必要に応じて編集してください。---------- #-------------------------------------------------------- # スタイルシート等の指定は以下を編集します。$html_header = <<"_EOF_";と_EOF_に囲まれた部分は普通にHTMLを書いてOKです。 $html_header = <<"_EOF_";
BPM | "; for( $k = 1; $k <= $list_num; $k++ ){ $html .= "$arMusicList[$i][$k] | "; } $html .= "
メインBPM:$tgtbpm | "; for( $k = 1; $k <= $list_num; $k++ ){ $tgtbpm2 = $arMusicList[$i][$k]; $sudp = $tgtbpm / $tgtbpm2 * $greenval; #$sudp_round = sprintf("%.0f",$sudp); $sudp_round = int($sudp); if($sudp_round<-50){ $sudp_round = "---"; } $html .= "$sudp_round | "; } $html .= "