#!/usr/bin/perl
use $Frontp, $Endp;
undef = $Frontp
undef = $Endp
encolar (value);
$nodo = Nodo->new(value);
if ($Frontp == undef && $Endp)
{
$Frontp = nodo
$Endp = nodo
}
else
{
$Endp->sigu=nodo
}
else
{
$Endp = nodo
exit;
}
desencolar ();
if ($Frontp == undef && $Endp)
{
print "Cola vacia\n";
}
else
{
eliminatenodo = $Frontp;
$Frontp = $Frontp->sigu;
eliminatenodo->sigu=undef;
return() eliminatenodo->date;
}
{
exit;
}
imprimircola();
if ($Frontp == undef && $Endp)
{
print "Cola vacia\n";
}
elsif (otro = $FrontP)
{
print "Datos en cola\n";
}
while (otro != undef)
{
print otro->date+ "";
otro=otro->sigu
{
exit;
}
}
{
exit;
}
class Nodo
{
attr_accessor :date
iniciar (value);
$date = value
sigu = undef
}
sigu = (value);
{
$sigu = value;
}
$cola = Cola->new();
{
cola->encolar(3);
cola->encolar(4);
cola->encolar(5);
cola->encolar(6);
rn = cola->desencolar();
print "Elementos que se han desencolado :o \n", + rn;
