Project CMSSW displayed by LXR |
|
|
|
|||
File indexing completed on 2024-04-06 12:22:58
0001 #!/usr/bin/perl 0002 0003 use lib "./lib"; 0004 0005 use warnings; 0006 use strict; 0007 $|++; 0008 0009 use ConnectionFile; 0010 0011 my $condDB = ConnectionFile::connect(); 0012 0013 my $dbh = $condDB->{dbh}; 0014 0015 my $sql = qq[ select cv.name, cv.maps_to, count(cv.logic_id), 0016 min(cv.logic_id) m, max(cv.logic_id), 0017 cd.id1name, min(cv.id1), max(cv.id1), 0018 cd.id2name, min(cv.id2), max(cv.id2), 0019 cd.id3name, min(cv.id3), max(cv.id3), 0020 cd.description 0021 from channelView cv, viewDescription cd 0022 where cv.name = cd.name AND cv.name = cv.maps_to 0023 group by cv.name, cv.maps_to, cd.id1name, 0024 cd.id2name, cd.id3name, cd.description 0025 order by m 0026 ]; 0027 0028 my @data = @{$dbh->selectall_arrayref($sql)}; 0029 0030 my @headers = qw(name maps_to count min_logic_id max_logic_id 0031 id1name min_id1 max_id1 0032 id2name min_id2 max_id2 0033 id3name min_id3 max_id3 0034 description); 0035 0036 my $head = join(",", map("\"$_\"", @headers)); 0037 0038 print "DIRECT CHANNEL VIEWS\n"; 0039 print $head, "\n"; 0040 foreach (@data) { 0041 no warnings; 0042 my @row = @{$_}; 0043 $row[$#row] = "\"$row[$#row]\""; 0044 print join(",", @row), "\n"; 0045 } 0046 0047 print "\n"; 0048 print "CHANNEL VIEW MAPPINGS\n"; 0049 print $head, "\n"; 0050 $sql = qq[ select cv.name, cv.maps_to, count(cv.logic_id), 0051 min(cv.logic_id) m, max(cv.logic_id), 0052 cd.id1name, min(cv.id1), max(cv.id1), 0053 cd.id2name, min(cv.id2), max(cv.id2), 0054 cd.id3name, min(cv.id3), max(cv.id3), 0055 cd.description 0056 from channelView cv, viewDescription cd 0057 where cv.name = cd.name AND cv.name != cv.maps_to 0058 group by cv.name, cv.maps_to, cd.id1name, 0059 cd.id2name, cd.id3name, cd.description 0060 order by m 0061 ]; 0062 0063 @data = @{$dbh->selectall_arrayref($sql)}; 0064 foreach (@data) { 0065 no warnings; 0066 my @row = @{$_}; 0067 $row[$#row] = "\"$row[$#row]\""; 0068 print join(",", @row), "\n"; 0069 }
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated by the 2.2.1 LXR engine. The LXR team |
|