Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Re: Need help to correct a simple script

by space_monk (Chaplain)
on Jan 07, 2013 at 15:57 UTC ( #1012052=note: print w/ replies, xml ) Need Help??

in reply to Need help to correct a simple script

I like to write complex SQL statements as HEREDOCs, as removing the Perl syntax from within the SQL syntax makes for much easier reading...

i.e. it is much easier to read your CREATE TABLE statement when written as....

my $sql = <<EOF; CREATE TABLE test_data$count( id PRIMARY KEY, group_id NOT NULL, created_at NOT NULL, text NOT NULL) AS SELECT rownum, MOD(rownum, 5), TO_DATE('1-jan-07', 'dd-mon-yy') + INTERVAL ' +1' MINUTE * rownum, CAST ('xyz' || rownum AS VARCHAR2(50)) FROM dual CONNECT BY LEVEL <= $rows EOF
This incorporates martos suggestions above, and I'll update if anyone spots any other issues.

A Monk aims to give answers to those who have none, and to learn from those who know more.

Comment on Re: Need help to correct a simple script
Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1012052]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (7)
As of 2015-11-29 23:59 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (754 votes), past polls