12 sleep 31;
13
14 #오늘의 날짜를 구한다(YYYYMMDD)
15 my $today;
16 my $day;
17 my $month;
18 my $year;
19 my $dir_name;
20
21 ($day, $month, $year) = (localtime)[3, 4, 5];
22 $year += 1900;
23 $month += 1;
24 if ( $month < 10 )
25 {
26 $month = "0".$month;
27 }
28 if ( $day < 10 )
29 {
30 $day = "0".$day;
31 }
32 $today = $year.$month.$day;
33 $power_dir_name = $mycwd."power/"."power_".$year."_".$month;
34
35 my $power_name = "power"."_".$year."_".$month."_".$day.".mp2";
36 my $power_name_mp3 = "power"."_".$year."_".$month."_".$day.".mp3";
37 my $power_name_128bps_mp3 = "power"."_".$year."_".$month."_".$day."_128bps".".mp3";
38 my $power_tag_name = "P"."_".$year."_".$month."_".$day;
39
40
41
42
43 #mkfifo mp3filter;
44
45
46
47 #Japanese
48 #system "toolame -b 64 -a - $power_name < power_mp3filter 1> /dev/null 2>&1 &";
49 system "toolame -b 128 - $power_name < power_mp3filter 1> /dev/null 2>&1 &";
50 system "$mycwd/mplayer -ao pcm:file=power_mp3filter mmst://219.240.37.11/L-FM_300k 1> /dev/null 2>&1 &";
51 # 19m 40s
52 system "sleep 1182";
53 $kpid = `pidof mplayer`;
54 system "kill -9 $kpid";
55
56 #After 20s, because of CPU Power for other recording.
57 sleep 3620;
58
59 $power_filename = $power_name_mp3;
60
61 #mp2 -> mp3
62 system "$mycwd/lame --silent --tt $power_tag_name --ta EBS --ty $year --tc \"무단복제 및 배포를 금지함.\" $power _name $power_name_128bps_mp3";
63 system "$mycwd/lame -b 64 --silent --tt $power_tag_name --ta EBS --ty $year --tc \"무단복제 및 배포를 금지함.\" $power_name $power_name_mp3";
64 #sleep 300;