क्या मैं डीबीआईसीएक्स :: कक्षा में डीबीआईसी_Tआरएसीई आउटपुट को सुंदर-प्रिंट कर सकता हूं?

Question

सत्य पर DBIC_TRACE वातावरण चर सेट करना:

BEGIN { $ENV{DBIC_TRACE} = 1 } 

बहुत उपयोगी उत्पादन, विशेष रूप से दिखा SQL क्वेरी की जाती है कि निष्पादित किया जा रहा उत्पन्न करता है लेकिन SQL क्वेरी एक लाइन में सब है।

क्या इसे किसी प्रकार के "एसक्यूएल साफ" दिनचर्या के माध्यम से इसे बेहतर बनाने के लिए इसे धक्का देने का कोई तरीका है, शायद इसे कई लाइनों पर तोड़ना? यह विफल हो रहा है, क्या कोई मुझे इस तरह के हुक जोड़ने के लिए कोड में कहां से घूमने की आवश्यकता होगी? और बुरी तरह से स्वरूपित SQL क्वेरी को स्वीकार करने और अच्छी तरह से स्वरूपित एक को बाहर निकालने का सबसे अच्छा टूल क्या है?

इस संदर्भ में "अच्छा स्वरूपण" बस "सभी एक पंक्ति पर" से बेहतर है। मैं विशेष रूप से फ़ॉर्मेटिंग प्रश्नों की विशिष्ट शैलियों के बारे में चिंतित नहीं हूं

धन्यवाद!

Answer 1

As of DBIx::Class 0.08124 it's built in.

बस console या console_monochrome करने के लिए $ENV{DBIC_TRACE_PROFILE} निर्धारित किया है।

Answer 2

DBIx :: कक्षा के प्रलेखन से

:: भंडारण

DBIC_TRACE तो सेट कर दिया जाता जानकारी का उत्पादन किया है (जब डिबग विधि सेट किया गया है के रूप में) का पता लगा है।

...

डिबग
कारणों का पता लगाने के बारे में जानकारी debugobj वस्तु पर उत्सर्जित होना। (या एसटीडीईआरआर अगर डीबगोबज विशेष रूप से सेट नहीं किया गया है)।

debugobj
मेट्रिक संग्रह के लिए उपयोग की गई वस्तु को सेट या पुनर्प्राप्त करता है। डीबीआईएक्स :: कक्षा :: संग्रहण :: आंकड़े जो कि है, को कॉलबैक के रूप में कोडरेफ़ का उपयोग करने की मूल विधि के साथ संगत है। अधिक जानकारी के लिए उपर्युक्त सांख्यिकी वर्ग देखें।

दूसरे शब्दों में, आप एक वस्तु है कि DBIx::Class::Storage::Statistics उपवर्गों कि कक्षा में debugobj स्थापित करना चाहिए। अपने उप-वर्ग में, आप क्वेरी को उस तरीके से दोबारा सुधार सकते हैं जिस तरह से आप चाहते हैं।

Answer 3

सबसे पहले, पॉइंटर्स के लिए धन्यवाद! आंशिक जवाब इस प्रकार है ....

मैं अब तक क्या मिल गया है ... पहले कुछ मचान:

# Connect to our db through DBIx::Class 
my $schema = My::Schema->connect('dbi:SQLite:/home/me/accounts.db'); 

# See also BEGIN { $ENV{DBIC_TRACE} = 1 } 
$schema->storage->debug(1); 

# Create an instance of our subclassed (see below) 
# DBIx::Class::Storage::Statistics class 
my $stats = My::DBIx::Class::Storage::Statistics->new(); 

# Set the debugobj object on our schema's storage 
$schema->storage->debugobj($stats); 

और होने का मेरे :: DBIx :: कक्षा :: भंडारण :: सांख्यिकी परिभाषा :

package My::DBIx::Class::Storage::Statistics; 

use base qw<DBIx::Class::Storage::Statistics>; 
use Data::Dumper qw<Dumper>; 
use SQL::Statement; 
use SQL::Parser; 

sub query_start { 
    my ($self, $sql_query, @params) = @_; 

    print "The original sql query is\n$sql_query\n\n"; 

    my $parser = SQL::Parser->new(); 
    my $stmt = SQL::Statement->new($sql_query, $parser); 
    #printf "%s\n", $stmt->command; 

    print "The parameters for this query are:"; 
    print Dumper \@params; 
} 

कौन कैसे में हुक करने के लिए "बहुत-ify" मेरे लिए SQL क्वेरी प्राप्त करने के बारे समस्या का हल।

my $rs = $schema->resultset('SomeTable')->search(
    { 
     'email' => $email, 
     'others.some_col' => 1, 
    }, 
    { join => 'others' } 
); 
$rs->count; 

हालांकि एसक्यूएल :: पार्सर DBIx :: क्लास द्वारा उत्पन्न एसक्यूएल पर barfs:

The original sql query is 
SELECT COUNT(*) FROM some_table me LEFT JOIN others other_table ON (others.some_col_id = me.id) WHERE (others.some_col_id = ? AND email = ?) 

SQL ERROR: Bad table or column name '(others' has chars not alphanumeric or underscore! 

SQL ERROR: No equijoin condition in WHERE or ON clause 

तो ... वहाँ से एक बेहतर पार्सर है

तब मैं क्वेरी चलाने एसक्यूएल :: नौकरी के लिए पार्सर?