Programación Web y Scripting > Perl
Persistencia De Objetos
su -:
--- Cita de: "Eddycito" --- :hola: Gracias por la ayuda, la verdad no tenia idea de como hacerlo, hay algunos ejemplos donde pueda ver con mas detalle la utilizacion del ejemplo que me das? porfa debe haber algun codigo por ahi.
--- Fin de la cita ---
Lo que te digo son bases de Perl.
Si no entiendes esas funciones ve a http://perldoc.perl.org
Un ejmplo:
--- Código: Text ---#!/usr/bin/perluse strict;use Gtk2 -init; my $text = Getk2::Label->new("Sin Texto, Salir");if(-f "archivo.cfg"){ open FL, "archivo.cfg"; while(my $linea = <FL>){ if($linea =~ /^Button_Text: (.*)$/){$text = $1;} } close FL;}my $entry = Gtk2::Entry->new;my $button = Gtk2::Button->new;$button->add($text);$button->signal_connect(clicked => sub {Gtk2_main->quit;});my $chbot = Gtk2::Button->new("Modificar texto");my $box = Gtk2::VBox->new;$chbot->signal_connect(clicked => sub { $text->set_text($entry->get_text or "Salir"); $box->show_all; open FL, "+>archivo.cfg"; print FL "Button_Text: $entry->get_text\n"; close FL; });my $window = Gtk2::Window->new;$box->pack_start($button, 0, 0);$box->pack_start($entry, 0, 0);$box->pack_start($chbot, 0, 0);$window->add($box);$window->show_all;Gtk2->main; No es un diseño muy lindo, pero debe de dar la idea.
No se si funciona porque no lo he probado ;)
Eddycito:
Gracias su por la colaboracion. Como podriamos hacer este trabajo con XML? :comp:
su -:
--- Cita de: "Eddycito" --- Gracias su por la colaboracion. Como podriamos hacer este trabajo con XML? :comp:
--- Fin de la cita ---
Aunque no necesitas tal cosa (lo pode hacer con un formato mas simple) podes usar XML::Simple y con el mismo metodo puesto en el ejemplo.
Eddycito:
Yo creo que si lo necesito porque la cosa no es tan simple como parece, porque cada computadora que se ve en la imagen y si revisas el codigo que deje forma parte de un objeto o hash que a la ves este tiene un atributo llamado enlaces[] en este arreglo se guarda una linea que hace referencia al objeto mismo y a otro objeto con la cual se enlazan, y la linea se redimensiona cada vez que se mueve la computadora con el mouse y todo esto esta guardado a la vez en un arreglo @items, todo esot cuando se guarda y se abre mediante el programa debe poder ademas de pintarse podeer generar los objetos y lo arreglos por si quiero hacer modificaciones. Como no tengo conocimentos de como hacer estas cosas, busco informacion ejemplos que mas o menos se parezcan al problema hasla el momento probe con Persistent, lo has usado?, ahora estoy viendo con XML::Mini::Document.
Para mi esto es una cosa de locos :blink: casi no en tiendo como puede ser la logica de todo esto.
Voy a ver XML::Simple.
su -:
Ningun modulo de Persistent te va a servir ya que Gtk2 no funciona como X11::Protocol (nisiquiera con este seria valido usar un modulo de esos).
Y no, no necesitas XML... si estas usando este mismo codigo.
Lo que debe de hacer es mu simple, creas un hash y en event_mouse ingresas los datos de x, y, color e imagen con un atom para identificarlo.
Al salir del programa lo guardas.
Si no sabes esto (lo digo nuevamente) lee esto:
http://www.perl.org/books/beginning-perl/
Te repito, no puedes guardar elementos de Gtk2 en si, tenes que guardar los datos de dibujo para luego rehacerlo, mira el ejmplo que te puse.
Navegación
[*] Página Anterior
Ir a la versión completa