On Nov 26, 2013, at 10:53 AM, David E. Wheeler <da...@justatheory.com> wrote:

> Well, I can see I have a bug or two to work out. That should be:
> 
>    $ perl -MURI -Ilib -E 'say 
> URI->new("db:pg://me:sec...@example.com/foo.db")->dbi_dsn'
>    dbi:Pg:host=example.com;dbname=foo.db

Oh silly me not escaping the "@". Let’s try that again:

    $ perl -Ilib -MURI -E 'say URI->new(shift)->dbi_dsn' 
db:pg://me:sec...@example.com/foo_db       
    dbi:Pg:host=example.com;dbname=foo_db

    $ perl -Ilib -MURI -E 'say URI->new(shift)->dbi_dsn' 
db:ingres://me:sec...@example.com/foo_db    
    dbi:Ingres:foo_db

    $ perl -Ilib -MURI -E 'say URI->new(shift)->dbi_dsn' 
db:sqlserver://me:sec...@example.com/foo_db 
    dbi:ODBC:Driver={SQL Server};Server=example.com;Database=foo_db

Much saner. :-)

Best,

David

Reply via email to