Otro "modismo" Perl (Era Re: Serial CD 2)

Ernesto Hernandez-Novich emhn at telcel.net.ve
Fri May 4 14:21:24 CDT 2001


On Fri, 4 May 2001, Ernesto Hernandez-Novich wrote:
> #!/usr/bin/perl
> # Los IOCTLs tomados desde /usr/include/linux/cdrom.h
> my $CDREADTOCHDR   = 0x5305;
> my $CDREADTOCENTRY = 0x5306;
> my $CDMSF          = 0x02;
> 
> my $be = unpack("h*",pack("s",1)) =~ /01/;

Obviamente, esta línea se puede eliminar del programa y no cambia
para nada puesto que $be no se usa nunca en el programa, pero...
¿Qué estoy tratando de averigüar con ésta instrucción?

Asuman que más adelante se hace algo como

if ($be) {
  /* Si es */
} else {
  /* No es */
}

así que $be es un flag que cuando vale 1 indica... ¿qué?
-- 
Ernesto Hernández-Novich - Running Linux 2.4.2 i686 - Unix: Live free or die!
-----BEGIN GEEK CODE BLOCK-----
Version: 3.1
GCS/E d+(++) s+: a C+++$ UBLAVHIOSC*++++$ P++++$ L+++$ E- W+ N++ o 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-----

------------------------------------------------------------------------
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.
------------------------------------------------------------------------



More information about the caracas-pm mailing list