Re^3: How to add columns with new row name using perl from mysql query?

in reply to Re^2: How to add columns with new row name using perl from mysql query?
in thread How to add columns with new row name using perl from mysql query?

> Hey at least its not "select *' anymore!

Note that my solution involves SELECT * from a union of two tables both of which have the columns listed, using the same names for both the inner selects would obscure the already complex statement even more:

SELECT queue_name, jobs_pend, jobs_run FROM (
    SELECT queue_name, jobs_pend, jobs_run
        FROM queues
        ORDER BY queue_name
        LIMIT 5
) UNION ALL
SELECT 'others', SUM(jobs_pend) AS jobs_pend, SUM(jobs_run) AS jobs_ru
+n FROM (
    SELECT jobs_pend, jobs_run
        FROM queues
    ORDER BY queue_name
    LIMIT -1 OFFSET 5
)
[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

In Section Seekers of Perl Wisdom