[caracas-pm-list] Perl + MS SQL

Wed Feb 25 06:23:37 CST 2004

Efectivamante hay otra alternativa, recuerdo haber hecho una conexión
con una base de datos  SQL , pero lo hice con DBD::Sybase, lo único
extra que tuve que hacer fue el instalar freetds, que son un conjunto de
librerias para Unix y Linux que te permiten comunicarte con bases de
datos MS SQL.

 visita www.freetds.org 

Manuel Telleria

-----Mensaje original-----
De: Eladio Garcia [mailto:eladio at host2world.com]
Enviado el: Miércoles, 25 de Febrero de 2004 05:45 a.m.
Para: Perl Mongers Caracas
Asunto: [caracas-pm-list] Perl + MS SQL

Saludos amigos..
Estoy teniendo bastantes problemas para conectar perl con un Servidor de

bases de datos que ejecuta SQL Server 2000
Estoy usando ODBC.. pero al parecer hay que definir unos DSN que la 
verdad a pesar de estar buscando bastante en internet.. no encuentro la 
definicion  o un manual de definicion de los mismos.. encuentro algunas 
estructuras ya definidas para MySQL o Access.. pero varian de una a otra

y no encuentr patron comun..
El problema es que no es tan sencillo como el

$dbh = DBI->connect("DBI:mysql:tabla:localhost", "user", "pass") or die 
"No  se pudo abrir la base de datos";
y listo..
alguien lo ha hecho? me podria ayudar con esto?
He tratado de definir un DSN en $HOME/.odbc.ini
y un connct del estilo
$dbh = DBI->connect("DBI:ODBC:....Pero aqui no tengo seguros los 
parametros que va

Estoy usando este ejemplo

1) create an odbc connection (through control panel) and connect like
this:

$db = DBI->connect('dbi:ODBC:test', '' ,'' ) or die $DBI::errstr;
(note that you can leave username and password fields blank because of 
Integrated Windows Authentication)
(note also that I assumed you would name the ODBC connection 'test')

or

2) create a DSN-less connection:
my $DSN = 'driver={SQL
Server};Server=localhost;database=test;uid=;pwd=;';
my $dbh  = DBI->connect("dbi:ODBC:$DSN") or die "$DBI::errstr\n";

Pero el primer metodo.. no entiendo donde definen el servidor (en mi 
caso no es localhost es una maquina aparte)... me imagino que test es la

base de datos.. pero me da error..

Y el segundo que la veo un poco mas sencillo.. me da error al tratar de 
contactar el driver y ni la informacion del host.

El servidor esta funcionando perfectamente.. por que desde la misma 
maquina en windows puede accesar ,... y no tienen ninguna poliica de 
seguridad adicional..
Alguien me podria recomentar algun otro metodo?
Sybase? o algun otro modulo para hacer la conexion?

Gracias

-- 
--------------------------------------------------------------
             Eladio Garcia eladio at host2world.com
 Linux User# 150886/95204 - Running Kernel 2.4.22 / Windows User
                         VENEZUELA
    http://www.host2world.com - Your Hosting Solution
--------------------------------------------------------------
Linux: "Free your mind" - VELUG - http://www.linux.org.ve
----BEGIN GEEK CODE BLOCK-------------------------------------
Version: 3.12
GE d- s: a- C+++>$ UL+++>$ P++++ L++ E- W+++ N(++) K- w !O !M
V- PS+ !PE Y+ PGP++ t--- 5-- X R tv+ b+ DI D++ G++ e++ h! r y+
----END GEEK CODE BLOCK------ http://www.geekcode.com --------

------------------------------------------------------------------------
Enviar e-mail a <majordomo at pm.org> colocando en el cuerpo:
"UNSUBSCRIBE caracas-pm-list" para desuscribirse.
"INFO caracas-pm-list" para conocer las reglas de etiqueta.
------------------------------------------------------------------------

begin 666 winmail.dat
M>)\^(B<,`0:0" `$```````!``$``0>0!@`(````Y 0```````#H``$(@ <`
M& ```$E032Y-:6-R;W-O9G0 at 36%I;"Y.;W1E`#$(`0V ! `"`````@`"``$$
M@ $`) ```%)%.B!;8V%R86-A<RUP;2UL:7-T72!097)L("L at 35, at 4U%,`#@+
M`06 `P`.````U <"`!D`" `7`"4``P`]`0$@@ ,`#@```-0'`@`9``@`%P`F
M``,`/@$!"8 !`"$````Q.4(Y,S$Y.38R,C-%130Y.#A%,T5%0T8R-3-$0C at V
M1 !,!P$#D 8`\ X``#(````+``(``0````,`)@```````P`N```````#`#8`
M`````$ `.0">OP4RFOO#`1X`/0`!````!0```%)%.B ``````@%'``$````P
M````8SUU<SMA/2 [<#U%05-%.VP]345.05173U)++3 T,#(R-3$R,C,S-UHM
M,S(S-#D`'@!P``$````@````6V-A<F%C87,M<&TM;&ES=%T at 4&5R;" K($U3
M(%-13 `"`7$``0```!L````!P_N$5&U>"2KU_&5*2HH4-O-3&@\```51L- `
M'@`:# $````0````36%N=65L(%1E;&QE<FEA`!X`'0X!````( ```%MC87)A
M8V%S+7!M+6QI<W1=(%!E<FP@*R!-4R!344P``@$)$ $```!'"0``0PD``"00
M``!,6D9UE,WBM@,`"@!R8W!G,3(UXC(#0W1E> 5!`0,!]T\*@ *D`^,"`&-H
M"L!S\&5T," '$P* #_,`4'\$5 at A5![(1Q0Y1`P$0QS+W!@`&PQ'%,P1&$,D2
MVQ'3VPCO"?<[&+\.,#41P at Q@SF,`4 L)`60S-A%0"Z8(($5F!9!T:79A"P.!
M#K @$/!Y(&]TN')A( = #K $H&$=TK0L(!C 8PI0"R!O'F&J8A,A: 60:"! 
M=1]0VB %H&X.P "@)Q7 `Z#3(6$A$V)A$2 @`0`BX(T?8&\$( 8`44P@'[#^
M< 20($ 84!Y@#> >4"(BX$1"1#HZ!K BHA^P?R1!(<$`< W@($ .P1[1<>$*
M4"!T=78>4";R$/!K)) %P&8G`64#( N <X\!D M@* $)T71D<Q^P[2;R<R(S
M(5)J(2 C0"+B^&QI8AC !R$$( JQ'N!250,`>" >D$P+@'7/+$ F\QY0(_%M
M:0ZP(@+^;2$@#> *P!Y!(B(BH at 0@=R+W!>(CH"X*H at J$"H @KG8$`"V0'N!W
M,8 N*27:+ at 6P9PKC,(9-`' *4+4#(%0H8&PK8C!*+33R8DT)\'-A:AY0!;!I
M'F<+@ = -/,P1$1E.E,=@ M at 9&D at 0$<*P&.Y!S @6P# `Q C0#HH8$TW4D @
M\"BP,G<%L&R49"XMX5TP1$5N,1 K-U F<6PW$$TAL64Y/S? !O 'D!^P#C B
MXD9E!RM"*M,!T# T(# U1#HT/ !A+FTP-5!;*]$W$% $D , at 30(@9WL$D 0@
M0RO1+D 0L#!3039S*J(W$%LN03^R+7"L;2TK("BP73ZD*R_%_S!*,$0&$ I 
M(# $(!X`->#5(U N,#5%*+!O'I MH?T(D&X@,2*A`9 >,2NA`V#]`F!E`, K
MI2%B'< *P2/Q_P,@(B0&4C$0(# %P"+Q,$3[+NTF\F4UD!_P,5$CDDD2;Q,A
M/0$!0$3Y=35P1?)/_24`0T3 (^0'0"NR!9 @DN\>@2;R`0$+@&D%P"$@(U'X
M1%-.)N,+8#)U3%$C('YD'O CX35P28,'D$@28O]-D"Y 1?HF@ .@"X ?(A$P
M_TY!4(!481_Q`C D$E%63_3?-] B,1Z@*B(#@75.P2+R[U;(*O(C42V <P1@
M1+%5>;T'0&<A(00A,%-2\7(;</<G,![0!"!Y'N!/]",@*Z7,37DCDB! 06,D
MD 00_TY&'? '(5CS(2(>X!ZS,$3_'I!562NQ5>$MQ43'3M%&Y?]2X2;C55($
M($9A*>!5 at 0,0#R1!+>$ZLC!*)&1B:,0@/23Q22T^(6%'X at 0H(F:A.FUY<W&W
M.N !D0M at .AA0+D!L.0+Z(A^P(DV0!)!I$@JP!! \(BDUL2+@") R=2)._R! 
M9&$CX$01'O K0%!!44'=(JLB&=!@-4&2;T3&6K+O1=$D,Q[@(,,_5[ M,01P
M^P<A'O!Y1! *P2(B4O%OT/TP1$@G$1[0`9 @,5 at W4%(#4+,ML21(3TU%+_,R
M,&9 8RY0(6 F*C15D-\%0 $``R!2\0,0;V7?9NQ]3@(Z1,!$P#ZQ3J$F\&G_
M54(MH4209&%:T -@!"!90O\P1"O"!X!5X4L$'? P2DT[NU+Q2T-M"U!VI3!*
M,6H at _04`91]@'E #D71R=9,=LI$B,2AT: -@=6=W0.\A857A3M(A@&QJ($VQ
M at 1;-*Q%K)Q$D<',Z97UW7IHG=R!I>)1&D70G'[#<)R<CP(>Q:B<D9X(X at .YR
M$1 >P&U5*%" 'D&!X+\?8"Q0"& A4 .1,^!A)U'_:5(?4' !@U)ITCE14B!0
M$,\H8"EP(I +8&YK(I %D-9A:5$>H&8R=4D>,0G 6X!A4B!7"X @,'<$($'?
M2Z @P (P+C&!@BF)B@= VRGPBC1)'O $$'4'@%(@^XJ2.5!U.8!50(O"D %-
M\WV!&B>'0Y#%,$0%L#!*,O^ &%"R08!>(8$9A*5GP(BA'U#1=V"&H 403%$]
M7'M12^A<?3M,)#UHASM7(R$!H"*Q/8=".V[@9- ].W!WG9$G;569<E]W(G=?
MAK>9HFH8(HBZ7/Q<;FU&/?4D`BAA1M '<?\%P'O!!'!N(55$'=!%XR POT7P
M3]4ML2AA:6%)1"@ML?\M@#)U/\$@0&/4:(=C4B$BWP# >9%?@@JQ#K I>/%O
M\OT'<&$U\2! +.2I1%%'(JO_3D9P`2,@)H")( 6P1,8P1/Y9IH1:T2 Q404G
M4%=S<##_)F%',F1VJN2NEDZR<C-)B?^"8@#02!(H89HD+%$#`%$R_PN `A M
M< #06-0#(#D",#O_8J&FQU+R*!%DD0(@3;,C\;\=HGNQ'C%.0 at 6Q3[1S*O+_
MJ<%9D5%6J>8ML0/PCX1KD.\)@("!7@(*P2RJTF"#I4+_+;$#`#\@(2)P,"L@
M+C%)F%]Z8US14B$W8+GC;$3&0?]NQ7 (']$#<%7!"L%:LQZB_ZY"I()QE254
M;^!:E<7%!'#_DS"Z42O2)\1102%D`B!QE?TP1$<_H2N!-#PR=33SS.__S?_/
M#\]T,*70ZC<\.)\YH at LPI2R$56EA(R Q-< P.#@V+SD.0#TAS<P at 4B$@P&(@
M2U32`R"@,BXT+C(4X"^/5P?4LM"/V2Q614Y%6E!514Q!V$AH`D!PN#HO+S&"
M.0S5T5D(8>P at 2#D1UD)3!O!+H%<A?\Q/WW_ at C^&?,$0L at S<0(MY&"=&*@J1!
MCW$BU=':,/A,54?5T=MI*R LH3(RABXG4#280D5'25#@,$=%14L2P$X`12#@
M0DQ/0TOAK^F?-F?&5C]!F-(@,RX.(,J%/>@@9,P at A) >\,P at 0RNI[4 ^)"P`
M3.U$4.U!+T) [;$=@,P at 5^Y"3BB/[4!J(.B ,7 @(4_OX"9-ZN7,(%!30D A
M4.7H(%E"0%!'[B$G(#3QM" US!%8!_ G('9"0*IB0D!$DC!$[E%'[E&R9>Y1
M:"$?P"Q0*S28/=I 1.>?-//;6C\P96O_!: !`-RTT!LT/_HO^S_\3[?I[SH(
MM5$M.")2,3RVX+9JC)%E$4!!8#(R/B%1/VB"?>.F<Q_R<#"$I2)5`$Y354)3
M0U))_^= BL%!"^1P*\.[\5-A; #7AL 1$3 U(N=P1O ``Y_?1W9HD,DS6Q 8
MP&<(<E+"_QW0)O$,D# U_5\+3PQ?#6\%-EA]#S `'@`U$ $````_````/$$T
M.$4S.3(W-#9&-D(Q-#E"0D,S,#,X0C0R.3!%13,W,3,W,48Y0&UE;F%T=V]R
M:RYE87-E+F-O;2YV93X``!X`0A !````(@```#PT,#-#-D5!.2XU,#<P-S P
M0&AO<W0R=V]R;&0N8V]M/@````,`@!#_____'P#S$ $```!8````4@!%`"4`
M,P!!`" `6P!C`&$`<@!A`&,`80!S`"T`< !M`"T`; !I`',`= !=`" `4 !E
M`'(`; `@`"4`,@!"`" `30!3`" `4P!1`$P`+@!%`$T`3 ````L`]A `````
M0 `',!#<,9N9^\,!0 `(,+H-%#*:^\,!`P#>/Z]O```#`/$_"@P``!X`^#\!
M````$ ```$UA;G5E;"!496QL97)I80`"`?D_`0```%X`````````W*= R,!"
M$!JTN0@`*R_A@@$`````````+T\]14%312]/53U&25)35"!!1$U)3DE35%)!
M5$E612!'4D]54"]#3CU214-)4$E%3E13+T-./4%414Q,15))05,````>`/H_
M`0```!4```!3>7-T96T at 061M:6YI<W1R871O<@`````"`?L_`0```!X`````
M````W*= R,!"$!JTN0@`*R_A@@$`````````+@````,`_3_D! ```P`90 ``
M```#`!I `````!X`,$ !````"P```$%414Q,15))05,``!X`,4 !````"P``
M`$%414Q,15))05,``!X`.$ !````"P```$%414Q,15))05,``!X`.4 !````
M`@```"X````#``E9`0````L`9H$(( 8``````, ```````!&``````Z%````
M`````P!^@0@@!@``````P ```````$8`````4H4``'UN`0`>`'^!"" &````
M``# ````````1@````!4A0```0````0````Y+C ``P#"@0@@!@``````P ``
M`````$8``````84````````+`,>!"" &``````# ````````1@`````#A0``
M``````,`S($(( 8``````, ```````!&`````!&%`````````P#1 at 0@@!@``
M````P ```````$8`````$(4````````#`-B!"" &``````# ````````1@``
M```8A0````````L`_H$(( 8``````, ```````!&``````:%````````"P`I
M```````+`",```````,`!A#ALC>-`P`'$.(*```#`! 0``````,`$1 `````
M'@`($ $```!E````149%0U1)5D%-04Y414A!64]44D%!3%1%4DY!5$E602Q2
M14-515)$3TA!0D522$5#2$]53D%#3TY%6$GS3D-/3E5.04)!4T5$141!5$]3
M4U%,+%!%4D],3TA)0T5#3TY$0D0Z.@`````"`7\``0```#\````\030X13,Y
M,C<T-D8V0C$T.4)"0S,P,SA"-#(Y,$5%,S<Q,S<Q1CE ;65N871W;W)K+F5A
.<V4N8V]M+G9E/@``?7@`
`
end
------------------------------------------------------------------------
Enviar e-mail a <majordomo at pm.org> colocando en el cuerpo:
"UNSUBSCRIBE caracas-pm-list" para desuscribirse.
"INFO caracas-pm-list" para conocer las reglas de etiqueta.
------------------------------------------------------------------------