[perl] Duda

[Jose Antonio Galicia]

On Mon, 14 May 2001, Benjamin Huitrón Solar wrote:


> ALguien me puede decir como puedo hacer para que dentro
> de mi programa me diga que usuario soy?, este programa
> lo ejecutan como root.


	#/usr/bin/perl
	use oija;


	sub concentrate {
	  print "hummmmmmmmmm...";
	  sleep 5;
	}


	$medium= new oija::sesion;


	print "Consultando los espiritus...\n\n";
	for (1..5) { concentrate; }
	print "Medium: Por los poderes del framework\n";
	print "        yo te invoco...\n";
	concetrate;
	print "Espiritu: ¿Quién osa interumpir mi descanso?\n";
	print "Medium: Nosotros los perleros\n";
	concentrate;
	print "Espiritu: ¿Y qué $$"#%#$#" quieren?\n";
	print "Medium: Saber el nombre del compañero\n";
	concentrate;
	print "Espiritu: ¿Se registro de alguna manera?\n";
	print "Medium: No\n";
	concentrate;
	print "Espiritu: En tal caso no puedo saberlo, soy root, no dios.\n";
	print "Medium: Chale.\n";
	concentrate;




 Este... no entendí :) pero no me pude resistir.


 Saludos,
 Toño.
---
 mailto: jcgalici@cbbanorte.com.mx


--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : unsubscribe perl