Mercurial > pt1.oyama

comparison src/epgdump_xml_parse.pl @ 157:2c1cec3c5d64

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
out put BS channel instead of SID and "transponder_slot(BS1_1)"
author Naoya OYAMA <naoya.oyama@gmail.com>
date Mon, 10 Sep 2012 15:55:40 +0900
parents 036ae90f1b01
children
comparison
equal deleted inserted replaced
156:159a729b90eb 157:2c1cec3c5d64
32 my %channel = %$channelRef; 32 my %channel = %$channelRef;
33 my $service_id = $channel{service_id}; 33 my $service_id = $channel{service_id};
34 my @si = (); 34 my @si = ();
35 my %sih = (); 35 my %sih = ();
36 my $tp = ""; 36 my $tp = "";
37 my $slot = "";
37 38
38 if (defined($channel{satelliteinfo})) { 39 if (defined($channel{satelliteinfo})) {
39 @si = @{$channel{satelliteinfo}}; 40 @si = @{$channel{satelliteinfo}};
40 %sih = %{$si[0]}; 41 %sih = %{$si[0]};
41 $tp = $sih{TP}[0]; 42 $tp = $sih{TP}[0];
42 if($tp =~ m/^BS\d+$/) { 43 if ($tp =~ /BS/) {
43 $tp = $service_id; 44 $slot = $sih{SLOT}[0];
44 } 45 }
45 } else { 46 } else {
46 $tp = $ARGV[0]; 47 $tp = $ARGV[0];
47 $tp =~ s/^.*\/(\d+)\.xml$/$1/; 48 $tp =~ s/^.*\/(\d+)\.xml$/$1/;
48 } 49 }
49 my @dpna = @{$channel{"display-name"}}; 50 my @dpna = @{$channel{"display-name"}};
50 my %dpnh = %{$dpna[0]}; 51 my %dpnh = %{$dpna[0]};
51 52
52 $channel_info_list{$service_id}{SID} = $service_id; 53 $channel_info_list{$service_id}{SID} = $service_id;
53 $channel_info_list{$service_id}{TP} = $tp; 54 $channel_info_list{$service_id}{TP} = $tp;
55 if ($slot =~ /\d/) {
56 $channel_info_list{$service_id}{SLOT} = "_" . $slot;
57 }
54 $channel_info_list{$service_id}{NAME} = $dpnh{content}; 58 $channel_info_list{$service_id}{NAME} = $dpnh{content};
55 push(@service_id_list, $service_id); 59 push(@service_id_list, $service_id);
56 } 60 }
57 61
58 foreach my $service_id (sort {$a <=> $b} @service_id_list) { 62 foreach my $service_id (sort {$a <=> $b} @service_id_list) {
59 print $channel_info_list{$service_id}{SID} . ","; 63 print $channel_info_list{$service_id}{SID} . ",";
60 print $channel_info_list{$service_id}{TP} . ","; 64 print $channel_info_list{$service_id}{TP} ;
65 print $channel_info_list{$service_id}{SLOT} . ",";
61 print $channel_info_list{$service_id}{NAME} . "\n"; 66 print $channel_info_list{$service_id}{NAME} . "\n";
62 } 67 }
63 1; 68 1;