Buenas tarde amigos :<br><br>estoy migrado un programa echo python a
Perl y este realiza llamados al sistema operativo debían en una maquina
local (lspci, lsusb, etc) y además permiter escribir una nota esto con
el fin de ayudar a un usuario en caso que tenga problemas tecnicos en
su maquina y entonces con esa informacion suministra ayudarlo toda esta
información la guardo en un arreglo, mi problema compañeros como enviar
informacion en el mismo formato que lo tiene el codigo en phyton a un
servidor. este es el codigó python :<br>
<pre><div><br></div><div><span>import</span> <span>urllib</span></div><div><span>import</span> <span>os</span></div><br><div><span>info</span><span>=</span><span>"-*- Información publicada automáticamente mediante el script 'crearnota' de canaima:</span><span>\n\n</span><span>"</span></div>
<br><div><span>info</span><span>+=</span><span>"-</span><span>\n</span><span>"</span></div><div><span>info</span><span>+=</span><span>"----- Dispositivos conectados por PCI:</span><span>\n</span><span>"</span></div>
<br><div><span>info</span><span>+=</span><span>"-</span><span>\n</span><span>"</span></div><div><span>info</span><span>+=</span><span>os</span><span>.</span><span>popen</span><span>(</span><span>"lspci"</span><span>)</span><span>.</span><span>read</span><span>()</span></div>
<br><div><span>info</span><span>+=</span><span>"-</span><span>\n</span><span>"</span></div><div><span>info</span><span>+=</span><span>"----- Dispositivos conectados por puerto USB:</span><span>\n\n</span><span>"</span></div>
<br><div><span>info</span><span>+=</span><span>"-</span><span>\n</span><span>"</span></div><div><span>info</span><span>+=</span><span>os</span><span>.</span><span>popen</span><span>(</span><span>"lsusb"</span><span>)</span><span>.</span><span>read</span><span>()</span></div>
<br><div><span>info</span><span>+=</span><span>"-</span><span>\n</span><span>"</span></div><div><span>info</span><span>+=</span><span>"----- Información sobre su tarjeta gráfica:</span><span>\n\n</span><span>"</span></div>
<br><div><span>info</span><span>+=</span><span>"-</span><span>\n</span><span>"</span></div><div><span>info</span><span>+=</span><span>os</span><span>.</span><span>popen</span><span>(</span><span>"glxinfo"</span><span>)</span><span>.</span><span>read</span><span>()</span></div>
<br><div><span>info</span><span>+=</span><span>"-</span><span>\n</span><span>"</span></div><div><span>info</span><span>+=</span><span>"----- Información sobre su memoria RAM (en MB):</span><span>\n\n</span><span>"</span></div>
<br><div><span>info</span><span>+=</span><span>"-</span><span>\n</span><span>"</span></div><div><span>info</span><span>+=</span><span>os</span><span>.</span><span>popen</span><span>(</span><span>"free -m"</span><span>)</span><span>.</span><span>read</span><span>()</span></div>
<br><div><span>info</span><span>+=</span><span>"-</span><span>\n</span><span>"</span></div><div><span>info</span><span>+=</span><span>"----- Información sobre su espacio libre :</span><span>\n\n</span><span>"</span></div>
<br><div><span>info</span><span>+=</span><span>"-</span><span>\n</span><span>"</span></div><div><span>info</span><span>+=</span><span>os</span><span>.</span><span>popen</span><span>(</span><span>"df -h"</span><span>)</span><span>.</span><span>read</span><span>()</span></div>
<br><div><span>info</span><span>+=</span><span>"-</span><span>\n</span><span>"</span></div><div><span>info</span><span>+=</span><span>"----- Información sobre sus discos duros :</span><span>\n\n</span><span>"</span></div>
<br><div><span>info</span><span>+=</span><span>"-</span><span>\n</span><span>"</span></div><div><span>info</span><span>+=</span><span>os</span><span>.</span><span>popen</span><span>(</span><span>"fdisk -l"</span><span>)</span><span>.</span><span>read</span><span>()</span></div>
<br><div><br></div><div><br></div><div><span>params</span> <span>=</span> <span>urllib</span><span>.</span><span>urlencode</span><span>({</span><span>'codigo_form'</span><span>:</span> <span>info</span><span>,</span> <span>'titulo_form'</span><span>:</span> <span>"Desde consola"</span><span>,</span><span>'nombre_form'</span><span>:</span> <span>"nombre"</span><span>})</span></div>
<br><div><span>f</span> <span>=</span> <span>urllib</span><span>.</span><span>urlopen</span><span>(</span><span>"<a href="http://172.16.130.67:8000/enviar_consola" target="_blank">http://172.16.130.67:8000/enviar_consola</a>"</span><span>,</span> <span>params</span><span>)</span></div>
<br><div><span>print</span> <span>f</span><span>.</span><span>read</span><span>()<br><br>como pueden ver amigos la inforación la guardan en un arreglo de nombre info y luegos la envia a la maquina y creo que es en formato html<br>
<br><br>tengo dos meses programando en perl e avanzado en lo siguiente compañeros<br><br><a href="http://notas.pl/" target="_blank">notas.pl</a><br><br>#!/usr/bin/perl -w<br><br># use strict;<br> use Gtk2 -init;<br> use Gtk2::GladeXML; <br>
<br><br> my $buffer_t ;<br> my $programa = Gtk2::GladeXML->new('canaima-notas2.glade'); <br> my $ventana_principal = $programa->get_widget('ventana_principal');<br> my $t_titulo = $programa->get_widget('text_titulo');<br>
<br> my $t_autor = $programa->get_widget('text_autor');<br># my $notas_t = $programa->get_widget('nota');#textview<br> my $boton_e = $programa->get_widget('boton_enviar');<br> my $boton_c = $programa->get_widget('boton_cancelar');<br>
<br> my $pci = $programa->get_widget('pci'); #lspci<br> my $usb = $programa->get_widget('usb'); #lsusb<br> my $dpkg = $programa->get_widget('dpkg'); #dpkg.log<br> my $term = $programa->get_widget('term'); #term.log<br>
<br> my $d_alma = $programa->get_widget('d_alma'); #dispositvo de almacenamientoterm.lo<br> my $t_part = $programa->get_widget('t_part'); #tabla de particiones <br> my $Eprueba = $programa->get_widget('label4');<br>
<br> my $tit_aut = $programa->get_widget('label6');<br> my $n1 = $programa->get_widget('entry1');<br> my $n2 = $programa->get_widget('entry2');<br> my $n3 = $programa->get_widget('entry3');<br>
<br> my $n4 = $programa->get_widget('entry4');<br> my $n5 = $programa->get_widget('entry5');<br> my $n6 = $programa->get_widget('entry6');<br> my $n7 = $programa->get_widget('entry7');<br>
<br> my $n8 = $programa->get_widget('entry8');<br> my $n9 = $programa->get_widget('entry9');<br> my $n10 = $programa->get_widget('entry10');<br> my $n11 = $programa->get_widget('entry11');<br>
<br> my $n12 = $programa->get_widget('entry12');<br> my $n13 = $programa->get_widget('entry13');<br> my $n14 = $programa->get_widget('entry14');<br> my $n15 = $programa->get_widget('entry15');<br>
<br> my $n16 = $programa->get_widget('entry16');<br> $programa->signal_autoconnect_from_package('main'); <br> $ventana_principal->show_all();<br> <br> Gtk2->main;<br> <br> sub on_boton_cancelar_clicked {Gtk2->main_quit;}<br>
<br> <br> sub on_boton_enviar_clicked { <br> my $d_alma1 = $d_alma->get_active;<br> my $t_part1 = $t_part->get_active;<br> push (@informe,"****<<<< SISTEMA DE NOTAS CANAIMA >>>>****\n\n"); <br>
<br> my $tex_1 = $n1->get_text();<br> my $w = &validar_nota($tex_1);<br> &datos_sistema($w);<br> my $t_titulo1 = $t_titulo->get_text();<br> my $t_autor1 = $t_autor->get_text(); <br> my $e =&titulo_autor($t_titulo1,$t_autor1); <br>
<br> #creamos el archivo y almacenamos los datos <br> open (DATA, ">/tmp/notas_canaima.txt"); <br> # Grabamos el archivo con los datos<br> foreach $dato (@informe)<br> {<br> print DATA $dato;<br> }<br>
<br> close(DATA);<br> chmod (0777, "/tmp/notas_canaima.txt");<br>}<br><br>sub validar_nota {<br>#asignaciones,reconsideracion,cuota_ipasme,fe_vida,constancia_estudio,homologacion,embargo,oficios,resol_jp,<br>
#jubilacion_pension,pension_sobreviviente,resol_sob,pasivos_laborales<br><br>#---------------------------------------------------------------------------<br> my ($num)=@_;<br> my $w;<br> if ($num eq ""){<br># push (@informe,"----- SIN NOTA DEL USUARIO: Por favor es necesario una nota -----\n"); <br>
<br> $Eprueba->set_markup("----- SIN NOTA DEL USUARIO: Por favor es necesario una nota -----\n");<br> $w=1;<br> }else{<br> $w=0;<br> push (@informe,"----- NOTA DEL USUARIO -----\n");<br>
$tex_1 = $n1->get_text();<br><br> $Eprueba->set_markup("");<br> push(@informe,$tex_1);<br> $tex_2 = $n2->get_text();<br> push(@informe,$tex_2);<br> $tex_3 = $n3->get_text();<br> push(@informe,$tex_3);<br>
$tex_4 = $n4->get_text();<br><br> push(@informe,$tex_4);<br> $tex_5 = $n5->get_text();<br> push(@informe,$tex_5);<br> $tex_6 = $n6->get_text();<br> push(@informe,$tex_6);<br> $tex_7 = $n7->get_text();<br>
push(@informe,$tex_7);<br><br> $tex_8 = $n8->get_text();<br> push(@informe,$tex_8);<br> $tex_9 = $n9->get_text();<br> push(@informe,$tex_9); <br> $tex_10 = $n10->get_text();<br> push(@informe,$tex_10);<br>
$tex_11 = $n11->get_text();<br><br> push(@informe,$tex_11);<br> $tex_12 = $n12->get_text();<br> push(@informe,$tex_12);<br> $tex_13 = $n13->get_text();<br> push(@informe,$tex_13);<br> $tex_14 = $n14->get_text();<br>
push(@informe,$tex_14);<br><br> $tex_15 = $n15->get_text();<br> push(@informe,$tex_15);<br> $tex_16 = $n16->get_text();<br> push(@informe,$tex_16);<br> } <br> return $w;<br>}<br>sub datos_sistema{<br> my $num=@_;<br>
if ($num != 0){<br> my $pc1 = $pci->get_active; <br><br> if ($pc1 == 1) {<br> push (@informe,"----- Dispositivos PCI -----\n");<br> my @pci = qx(lspci);<br> push(@informe,@pci);<br> <br> }<br> my $usb1 = $usb->get_active;<br>
if ($usb1==1){<br> push (@informe,"----- Dispositivos USB -----\n");<br><br> my @usb = qx(lsusb);<br> push(@informe,@usb);<br> <br> }<br> my $dpkg1 = $dpkg->get_active;<br> if($dpkg1==1){<br> push (@informe,"----- dpkg.log -----\n");<br>
my @dpkg = qx(cat /var/log/dpkg.log);<br><br> push(@informe,@dpkg);<br> <br> }<br> my $term1 = $term->get_active;<br> if($term1==1){<br> push (@informe,"----- term.log -----\n");<br> my @term = qx(cat /var/log/apt/term.log);<br>
push(@informe,@term); <br><br> } <br> } <br>}<br>sub titulo_autor{<br> my ($t_titulo1,$t_autor1)=@_;<br> $Eprueba->set_markup("$t_titulo1,$t_autor1");<br> my $w; <br> if ($t_titulo1 eq ""){<br>
my $w=1;<br> $tit_aut->set_markup("----- SIN TITULO PARA LA NOTA: Por favor es necesario un Titulo-----\n"); <br><br> }else{<br> my $w=0;<br> push (@informe,"----- TITULO USUARIO -----\n"); <br>
$tit_aut->set_markup("");<br> push(@informe,$t_titulo1); <br> } <br> if ($t_autor1 eq ""){<br><br> my $w=1;<br> $tit_aut->set_markup("----- SIN AUTOR PARA LA NOTA: Por favor es necesario un Autor-----\n"); <br>
}else{<br> my $w=0;<br> push (@informe,"----- AUTOR DE LA NOTA -----\n"); <br><br> $tit_aut->set_markup("");<br> push(@informe,$t_autor1); <br> } <br> foreach $i (@informe) {<br>
print "$i\n";<br> } <br> return $w;<br>} <br></span></div><div><br><br>y el <span>canaima-notas2.glade</span> se lo adjunto:<br><br><br>mis amigos solo necesito un poco de orientación que paquete o paquetes de la CPAN podria utilizar para tal fin <br>
<br><br>muschas gracias de ante mano buen dia 8,) pasenla bien.</div></pre>