Foro - Perl en Español

por **mobarrio** » 2013-02-07 04:54 @246

Antes que nada, soy nuevo y con muy poca experiencia en Perl con lo cual sepan disculpar si la pregunta es muy tonta...

Necesito incluir una librería (Kstat.pm) en mi script. En Solaris 10 x86 funciona bien, ya que compilé e instalé el módulo y todo funciona. Pero cuando quiero pasar el script Sparc el módulo no compila y harto de probar, encontré la posible solución de incluir módulos de versiones anteriores de Perl.

Solaris incluye varias distribuciones de Perl bajo la ruta /usr/perl5/ (5.6.1, 5.8.3, 5.8.4, 5.14.2). Algunas las instalé yo.

La versión /usr/perl5/5.6.1 trae el módulo y si en mi script utilizo #!/usr/perl5/5.6.1 todo funciona bien, pero la realidad es que necesito utilizar otra versión de Perl más nueva y cuando intento incluir el módulo de 5.6.1 utilizando "use lib", éste da error:

Esta idea la tome del script de Brendan Gregg que dice lo siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

# NOTES:

# - If you have upgraded /usr/bin/perl, this program may be unable to 

#   find the Sun::Solaris::Kstat library (which is under /usr/perl5).

#   Before the "use strict;" line, you may need to add,

#   use lib "/usr/perl5/5.6.1/lib";

#   to point to your location of Sun/Solaris/Kstat.pm.
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

http://www.brendangregg.com/Solaris/checkcable

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
use lib qw(/usr/perl5/5.6.1/lib);
 
use strict;
use Sun::Solaris::Kstat;
 
my $Kstat = Sun::Solaris::Kstat->new();
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Can't locate loadable object for module Sun::Solaris::Kstat in @INC (@INC contains: /usr/perl5/5.6.1/lib /usr/local/lib/perl5/site_perl/5.14.2/sun4-solaris-thread-multi /usr/local/lib/perl5/site_perl/5.14.2 /usr/local/lib/perl5/5.14.2/sun4-solaris-thread-multi /usr/local/lib/perl5/5.14.2 .) at ./a line 6

Compilation failed in require at ./a line 6.

BEGIN failed--compilation aborted at ./a line 6.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

# ls -la /usr/perl5/5.6.1/lib/Sun/Solaris/
total 112
drwxr-xr-x   5 root     bin          512 Jan 17  2008 .
drwxr-xr-x   3 root     bin          512 Jan 17  2008 ..
drwxr-xr-x   2 root     bin          512 Jan 17  2008 BSM
drwxr-xr-x   2 root     bin          512 Jan 17  2008 Exacct
-r--r--r--   1 root     bin         3172 Jan 22  2005 Exacct.pm
-r--r--r--   1 root     bin          358 Jan 22  2005 Kstat.pm
drwxr-xr-x   2 root     bin          512 Jan 17  2008 PerlGcc
-r--r--r--   1 root     bin         1424 Jan 22  2005 Privilege.pm
-r--r--r--   1 root     bin        41300 Jan 22  2005 Project.pm
-r--r--r--   1 root     bin          637 Jan 22  2005 Task.pm
-r--r--r--   1 root     bin          880 Jan 22  2005 Ucred.pm
-r--r--r--   1 root     bin          470 Jan 22  2005 Utils.pm
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

¿Alguna sugerencia de qué estoy haciendo mal?

Muchas gracias de antemano.

Bienvenido a los foros de Perl en Español, mobarrio.

El 'use lib' está bien. Perl sí es capaz de encontrar el módulo Sun::Solaris::Kstat, pero resulta que cuando lo lee, éste solo tiene 8 líneas, en las que vemos que están dedicadas exclusivamente a cargar una biblioteca compilada, y esa es la que dice el error que no encuentra.

Aparte del archivo Kstat.pm, debe existir algún archivo acabado en .so o en .o, y eso es lo que el módulo Dynaloader dentro de Kstat.pm no ha conseguido encontrar en ninguna de las rutas indicadas.

Fíjate en las rutas que sale en las variables @INC: algunas de ellas indican la ruta sun4-solaris-thread-multi/ y es ahí donde suelen residir esos archivos.

Prueba a buscar esa ruta dentro de /usr/perl5/5.6.1/lib, y agrégala a 'use lib'. Algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use lib qw(/usr/perl5/5.6.1/lib /usr/perl5/5.6.1/lib/sun4-solaris-thread-multi);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Si eso no funciona, deberás modificar el valor de la variable de entorno LD_LIBRARY_PATH para que incluya esa ruta.

Lo ideal sería hacer una instalación desde cero, pero dices que no compila, y creo que la clave está ahí: la biblioteca debe estar para la arquitectura en la que se ejecuta. No vale solo con copiar el código Perl, que sabemos que sí funcionará sin problemas, sino que la biblioteca debe estar compilada para ese sistema. Puedes probar a copiar en 5.6.1/lib la biblioteca de la máquina anterior, pero solo funcionará si la CPU y el resto del hardware es compatible con la máquina anterior.

Aquí dicen que Kstat.xs no compila muy bien en arquitecturas de 64 bits...

¿Qué error de compilación sale? Bájate los cuatro archivos y haz un

perl Makefile.PL

para que realice la compilación.

¿No existirá este módulo ya compilado para tu versión de Perl, en el repositorio de paquetes de software de Solaris?

Edito: He leído un poco más la página sobre K9Toolkit de Gregg, y dice que la biblioteca Kstat para Perl viene incluida con el propio sistema operativo, así que en principio, solo tendrías que modificar LD_LIBRARY_PATH para que la encuentre.

por **mobarrio** » 2013-02-07 08:49 @409

Ante todo, muchas gracias por la respuesta... voy contestando sobre las pruebas que comentaste anteriormente:

Compilación de la versión de illumos

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Nota: ¡El <span style="font-style: italic">bug 2636 Perl bits do not compile cleanly under 64bit perl</span> está corregido!

Environment:

LD_LIBRARY_PATH=/usr/openwin/lib:/usr/local/lib:/usr/local/ssl/lib:

PATH=/usr/sbin:/usr/bin:/usr/ccs/bin:/usr/openwin/bin:/usr/dt/bin:/var/adm/sun/bin:/var/adm/sun/sbin:/opt/csw/bin:/opt/csw/sbin:/usr/platform/SUNW,Sun-Fire-V240/sbin:/opt/sun/bin:/usr/bin/nsr:/usr/sbin/nsr:/opt/SUNWexplo/bin:/opt/SUNWsneep/bin:/opt/CTEact/bin:/usr/local/bin:/usr/local/sbin:/usr/local/lib:/usr/local/include:/usr/local/postfix-19991231-pl02/bin:/opt/SI/bin

Versión del GCC

# pkginfo -l SMCgcc

   PKGINST:  SMCgcc

      NAME:  gcc

  CATEGORY:  application

      ARCH:  sparc

   VERSION:  3.4.6

   BASEDIR:  /usr/local

    VENDOR:  FSF

    PSTAMP:  Steve Christensen

  INSTDATE:  Jan 17 2008 18:06

     EMAIL:  [email protected]

    STATUS:  completely installed

     FILES:      441 installed pathnames

                  29 shared pathnames

                  63 directories

                  28 executables

              175666 blocks used (approx)

# perl -V

Summary of my perl5 (revision 5 version 14 subversion 2) configuration:

  Platform:

    osname=solaris, osvers=2.10, archname=sun4-solaris-thread-multi

    uname='sunos newmike 5.10 generic_127111-09 sun4u sparc sunw,sun-fire-v240 '

    config_args='-Dcc=gcc'

    hint=recommended, useposix=true, d_sigaction=define

    useithreads=define, usemultiplicity=define

    useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef

    use64bitint=undef, use64bitall=undef, uselongdouble=undef

    usemymalloc=n, bincompat5005=undef

  Compiler:

    cc='gcc', ccflags ='-D_REENTRANT -fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -DPERL_USE_SAFE_PUTENV',

    optimize='-O',

    cppflags='-D_REENTRANT -fno-strict-aliasing -pipe -I/usr/local/include'

    ccversion='', gccversion='3.4.6', gccosandvers='solaris2.10'

    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=4321

    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16

    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8

    alignbytes=8, prototype=define

  Linker and Libraries:

    ld='gcc', ldflags =' -L/usr/local/lib '

    libpth=/usr/local/lib /usr/lib /usr/ccs/lib

    libs=-lsocket -lnsl -ldl -lm -lpthread -lc

    perllibs=-lsocket -lnsl -ldl -lm -lpthread -lc

    libc=/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a

    gnulibc_version=''

  Dynamic Linking:

    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '

    cccdlflags='-fPIC', lddlflags='-G -L/usr/local/lib'

Characteristics of this binary (from libperl): 

  Compile-time options: MULTIPLICITY PERL_DONT_CREATE_GVSV

                        PERL_IMPLICIT_CONTEXT PERL_MALLOC_WRAP

                        PERL_PRESERVE_IVUV PERL_USE_SAFE_PUTENV USE_ITHREADS

                        USE_LARGE_FILES USE_PERLIO USE_PERL_ATOF

                        USE_REENTRANT_API

  Built under solaris

  Compiled at Jan 31 2013 15:41:26

  @INC:

    /usr/local/lib/perl5/site_perl/5.14.2/sun4-solaris-thread-multi

    /usr/local/lib/perl5/site_perl/5.14.2

    /usr/local/lib/perl5/5.14.2/sun4-solaris-thread-multi

    /usr/local/lib/perl5/5.14.2

# perl Makefile.PL

Checking if your kit is complete...

Looks good

Writing Makefile for Sun::Solaris::Kstat

Writing MYMETA.yml and MYMETA.json

# make

cp Kstat.pm blib/lib/Sun/Solaris/Kstat.pm

/usr/bin/perl /usr/local/lib/perl5/site_perl/5.14.2/ExtUtils/xsubpp  -typemap /usr/local/lib/perl5/5.14.2/ExtUtils/typemap  Kstat.xs > Kstat.xsc && mv Kstat.xsc Kstat.c

gcc -c  -I/usr/platform/sun4u/include -I/usr/platform/sun4v/include  -D_REENTRANT -fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -DPERL_USE_SAFE_PUTENV -O    -DVERSION=\"1.3\"  -DXS_VERSION=\"1.3\" -fPIC "-I/usr/local/lib/perl5/5.14.2/sun4-solaris-thread-multi/CORE"   Kstat.c

Kstat.xs: In function `save_vminfo':

Kstat.xs:386: error: structure has no member named `updates'

Kstat.xs:386: error: structure has no member named `updates'

Kstat.xs:386: error: structure has no member named `updates'

Kstat.xs: In function `save_sfmmu_global_stat':

Kstat.xs:468: error: structure has no member named `sf_scd_1sttsb_alloc'

Kstat.xs:468: error: structure has no member named `sf_scd_1sttsb_alloc'

Kstat.xs:468: error: structure has no member named `sf_scd_1sttsb_alloc'

Kstat.xs:468: error: structure has no member named `sf_scd_1sttsb_alloc'

Kstat.xs:469: error: structure has no member named `sf_scd_2ndtsb_alloc'

Kstat.xs:469: error: structure has no member named `sf_scd_2ndtsb_alloc'

Kstat.xs:469: error: structure has no member named `sf_scd_2ndtsb_alloc'

Kstat.xs:469: error: structure has no member named `sf_scd_2ndtsb_alloc'

Kstat.xs:470: error: structure has no member named `sf_scd_1sttsb_allocfail'

Kstat.xs:470: error: structure has no member named `sf_scd_1sttsb_allocfail'

Kstat.xs:470: error: structure has no member named `sf_scd_1sttsb_allocfail'

Kstat.xs:470: error: structure has no member named `sf_scd_1sttsb_allocfail'

Kstat.xs:471: error: structure has no member named `sf_scd_2ndtsb_allocfail'

Kstat.xs:471: error: structure has no member named `sf_scd_2ndtsb_allocfail'

Kstat.xs:471: error: structure has no member named `sf_scd_2ndtsb_allocfail'

Kstat.xs:471: error: structure has no member named `sf_scd_2ndtsb_allocfail'

Kstat.xs:513: error: structure has no member named `sf_region_remap_demap'

Kstat.xs:513: error: structure has no member named `sf_region_remap_demap'

Kstat.xs:513: error: structure has no member named `sf_region_remap_demap'

Kstat.xs:513: error: structure has no member named `sf_region_remap_demap'

Kstat.xs:514: error: structure has no member named `sf_create_scd'

Kstat.xs:514: error: structure has no member named `sf_create_scd'

Kstat.xs:514: error: structure has no member named `sf_create_scd'

Kstat.xs:514: error: structure has no member named `sf_create_scd'

Kstat.xs:515: error: structure has no member named `sf_join_scd'

Kstat.xs:515: error: structure has no member named `sf_join_scd'

Kstat.xs:515: error: structure has no member named `sf_join_scd'

Kstat.xs:515: error: structure has no member named `sf_join_scd'

Kstat.xs:516: error: structure has no member named `sf_leave_scd'

Kstat.xs:516: error: structure has no member named `sf_leave_scd'

Kstat.xs:516: error: structure has no member named `sf_leave_scd'

Kstat.xs:516: error: structure has no member named `sf_leave_scd'

Kstat.xs:517: error: structure has no member named `sf_destroy_scd'

Kstat.xs:517: error: structure has no member named `sf_destroy_scd'

Kstat.xs:517: error: structure has no member named `sf_destroy_scd'

Kstat.xs:517: error: structure has no member named `sf_destroy_scd'

Kstat.xs: In function `save_temperature':

Kstat.xs:611: warning: comparison is always true due to limited range of data type

Kstat.xs:611: warning: comparison is always true due to limited range of data type

Kstat.xs:612: warning: comparison is always true due to limited range of data type

Kstat.xs:612: warning: comparison is always true due to limited range of data type

Kstat.xs:618: warning: comparison is always true due to limited range of data type

Kstat.xs:618: warning: comparison is always true due to limited range of data type

*** Error code 1

make: Fatal error: Command failed for target `Kstat.o'  

Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

De esto no paso

¡¡¡que frustración!!!

Luego, inclusión del path /usr/perl5/5.6.1/lib/sun4-solaris-64int en el use lib:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
use lib qw(/usr/perl5/5.6.1/lib/sun4-solaris-64int /usr/perl5/5.6.1/lib);
use strict;
use Sun::Solaris::Kstat;
 
my $Kstat = Sun::Solaris::Kstat->new();
exit;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El cual termina con el siguiente mensaje de error:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

DynaLoader object version 1.13 does not match $DynaLoader::VERSION 1.04 at /usr/perl5/5.6.1/lib/sun4-solaris-64int/DynaLoader.pm line 100.

Compilation failed in require at /usr/perl5/5.6.1/lib/Sun/Solaris/Kstat.pm line 12.

BEGIN failed--compilation aborted at /usr/perl5/5.6.1/lib/Sun/Solaris/Kstat.pm line 12.

Compilation failed in require at ./a.pl line 5.

BEGIN failed--compilation aborted at ./a.pl line 5.
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Inclusión del PATH /usr/perl5/5.6.1/lib/sun4-solaris-64int en el LD_LIBRARY_PATH:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

# LD_LIBRARY_PATH=$LD_LIBRARY_PATH:/usr/perl5/5.6.1/lib/sun4-solaris-64int

# export LD_LIBRARY_PATH

# env

LD_LIBRARY_PATH=/usr/openwin/lib:/usr/local/lib:/usr/local/ssl/lib::/usr/perl5/5.6.1/lib/sun4-solaris-64int

# ./kstat_test.pl 

Can't locate loadable object for module Sun::Solaris::Kstat in @INC (@INC contains: /usr/perl5/5.6.1/lib /usr/local/lib/perl5/site_perl/5.14.2/sun4-solaris-thread-multi /usr/local/lib/perl5/site_perl/5.14.2 /usr/local/lib/perl5/5.14.2/sun4-solaris-thread-multi /usr/local/lib/perl5/5.14.2 .) at ./kstat_test.pl line 5

Compilation failed in require at ./kstat_test.pl line 5.

BEGIN failed--compilation aborted at ./kstat_test.pl line 5.
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Te adjunto algo más sobre las diferentes versiones de perl instaladas por mi y preinstaladas con solaris.

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

# find / -name Kstat.*

- Solaris x86 Kstat CPAN

/var/www/tiadm/tmp/perl2exe/perl2exe.x86/perl5/lib/site_perl/5.14.2/i86pc-solaris-thread-multi/Solaris/Kstat.pm

/var/www/tiadm/tmp/perl2exe/perl2exe.x86/perl5/lib/site_perl/5.14.2/i86pc-solaris-thread-multi/auto/Solaris/Kstat/Kstat.so

/var/www/tiadm/tmp/perl2exe/perl2exe.x86/perl5/lib/site_perl/5.14.2/i86pc-solaris-thread-multi/auto/Solaris/Kstat/Kstat.bs

- Solaris x86 Kstat illumos

/var/www/tiadm/tmp/perl2exe/perl2exe.x86/perl5/lib/site_perl/5.14.2/i86pc-solaris-thread-multi/Sun/Solaris/Kstat.pm

/var/www/tiadm/tmp/perl2exe/perl2exe.x86/perl5/lib/site_perl/5.14.2/i86pc-solaris-thread-multi/auto/Sun/Solaris/Kstat/Kstat.so

/var/www/tiadm/tmp/perl2exe/perl2exe.x86/perl5/lib/site_perl/5.14.2/i86pc-solaris-thread-multi/auto/Sun/Solaris/Kstat/Kstat.bs

/usr/share/man/man3perl/Kstat.3perl

- Perl pre-intalado en Solaris sparc

/usr/perl5/5.8.4/lib/Sun/Solaris/Kstat.pm

/usr/perl5/5.8.4/lib/sun4-solaris-64int/auto/Sun/Solaris/Kstat/Kstat.bs

/usr/perl5/5.8.4/lib/sun4-solaris-64int/auto/Sun/Solaris/Kstat/Kstat.so

/usr/perl5/5.6.1/lib/Sun/Solaris/Kstat.pm

/usr/perl5/5.6.1/lib/sun4-solaris-64int/auto/Sun/Solaris/Kstat/Kstat.bs

/usr/perl5/5.6.1/lib/sun4-solaris-64int/auto/Sun/Solaris/Kstat/Kstat.soColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2013-02-07 11:08 @505

En sistemas operativos tan antipáticos como estos, compilar debería ser el último recurso, y usar solo lo que trae la distribución del sistema operativo, ya sea lo que está instalado o lo que el fabricante ofrece para instalar a través de la red.

El problema de la compilación es que Kstat.xs hace referencia a elementos de estructura que no están definidos en los archivos de cabecera. Por ejemplo, el mensaje

Kstat.xs:386: error: structure has no member named `updates'

hace referencia a esta línea dentro de Kstat.xs:

SAVE_UINT64(self, vminfop, updates);

dentro de la función 'save_vminfo', y el programa de compilación espera que 'updates' esté definido en /usr/include/sys/sysinfo.h, pero parece que no es así.

El uso de los 'use lib' ayuda a que DynaLoader encuentre la biblioteca, pero... rechaza la carga de ella, porque no coincide el número de versión del objeto Kstat.so con el del propio DynaLoader (digamos que estás intentando forzar a Perl a cargar una biblioteca que fue compilada para un Perl más viejo).

Me temo que no vas a poder usar la biblioteca para un Perl tan moderno (bueno, Perl v5.14 es del 26 de septiembre del 2011). Sí que he visto que existe Kstat para Perl v5.10 y Kstat para Perl v5.12

Otra cosa... ¿que características especiales de Perl v5.14 necesitas en tu máquina?

por **mobarrio** » 2013-02-07 12:03 @544

Bueno desde ya ¡¡¡¡muchas gracias nuevamente!!!!

Luego de tu gran explicación, entendí lo que estaba pasando, y junto con la versión de Solaris X86 en la cual sí funciona procedí a realizar un autentico GALERAZO (es decir, ¡¡¡aplicar intuición sin saber lo que estaba haciendo!!!) y ahora, ¡funciona!

Te comento lo que modifiqué...

/usr/include/sys/sysinfo.h -> Struct vminfo

Sintáxis: [ Descargar ] [ Ocultar ]

Using c Syntax Highlighting

        uint64_t updates;       /* Incluida para Kstat.xs 07-02-2013    */
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

/usr/platform/sun4u/include/vm/hat_sfmmu.h -> Struct sfmmu_global_stat

Sintáxis: [ Descargar ] [ Ocultar ]

Using c Syntax Highlighting

        int             sf_scd_1sttsb_alloc;     /* Incluida para Kstat.xs 07-02-2013 */
        int             sf_scd_2ndtsb_alloc;     /* Incluida para Kstat.xs 07-02-2013 */
        int             sf_scd_1sttsb_allocfail; /* Incluida para Kstat.xs 07-02-2013 */
        int             sf_scd_2ndtsb_allocfail; /* Incluida para Kstat.xs 07-02-2013 */
        int             sf_region_remap_demap;   /* Incluida para Kstat.xs 07-02-2013 */
        int             sf_create_scd;           /* Incluida para Kstat.xs 07-02-2013 */
        int             sf_join_scd;             /* Incluida para Kstat.xs 07-02-2013 */
        int             sf_leave_scd;            /* Incluida para Kstat.xs 07-02-2013 */
        int             sf_destroy_scd;          /* Incluida para Kstat.xs 07-02-2013 */
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

/usr/platform/sun4u/include/sys/fhc.h -> Function save_temperature

Sintáxis: [ Descargar ] [ Ocultar ]

Using c Syntax Highlighting

struct temp_stats {
        uint_t index;           /* index of current temperature */
        short l1[L1_SZ];        /* OVERTEMP_TIMEOUT_SEC samples */
        short l2[L2_SZ];        /* level 2 samples */
        short l3[L3_SZ];        /* level 3 samples */
        short l4[L4_SZ];        /* level 4 samples */
        short l5[L5_SZ];        /* level 5 samples */
        int max;                /* maximum temperature recorded */ /* Cambiamos short por int 07-02-2013 */
        int min;                /* minimum temperature recorded */ /* Cambiamos short por int 07-02-2013 */
        enum temp_state state;  /* state of board temperature */
        int temp_cnt;           /* counter for state changes */
        int shutdown_cnt;       /* counter for overtemp shutdown */
        int version;            /* version of this structure */
        enum temp_trend trend;  /* temperature trend for board */
        int override;           /* override temperature for testing */ /* Cambiamos short por int 07-02-2013 */
};
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Luego compile nuevamente el Kstat de Illumos

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

# perl Makefile.PL 
Checking if your kit is complete...
Looks good
Writing Makefile for Sun::Solaris::Kstat
Writing MYMETA.yml and MYMETA.json
 
# make
cp Kstat.pm blib/lib/Sun/Solaris/Kstat.pm
/usr/bin/perl /usr/local/lib/perl5/site_perl/5.14.2/ExtUtils/xsubpp  -typemap /usr/local/lib/perl5/5.14.2/ExtUtils/typemap  Kstat.xs > Kstat.xsc && mv Kstat.xsc Kstat.c
gcc -c  -I/usr/platform/sun4u/include -I/usr/platform/sun4v/include  -D_REENTRANT -fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -DPERL_USE_SAFE_PUTENV -O    -DVERSION=\"1.3\"  -DXS_VERSION=\"1.3\" -fPIC "-I/usr/local/lib/perl5/5.14.2/sun4-solaris-thread-multi/CORE"   Kstat.c
Running Mkbootstrap for Sun::Solaris::Kstat ()
chmod 644 Kstat.bs
rm -f blib/arch/auto/Sun/Solaris/Kstat/Kstat.so
LD_RUN_PATH="/usr/lib" gcc  -G -L/usr/local/lib Kstat.o  -o blib/arch/auto/Sun/Solaris/Kstat/Kstat.so   \
   -lkstat      \
  
chmod 755 blib/arch/auto/Sun/Solaris/Kstat/Kstat.so
cp Kstat.bs blib/arch/auto/Sun/Solaris/Kstat/Kstat.bs
chmod 644 blib/arch/auto/Sun/Solaris/Kstat/Kstat.bs
 
# make install
Files found in blib/arch: installing files in blib/lib into architecture dependent library tree
Installing /usr/local/lib/perl5/site_perl/5.14.2/sun4-solaris-thread-multi/auto/Sun/Solaris/Kstat/Kstat.so
Appending installation info to /usr/local/lib/perl5/5.14.2/sun4-solaris-thread-multi/perllocal.pod
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

# ./bin/meminfo.pl
-----------------------------------
Memoria RAM
-----------------------------------
Total    :  4096.0 Mb
Unusable :   101.1 Mb (  2.49 %)
Kernel   :   370.9 Mb (  9.14 %)
Locked   :     0.0 Mb (  0.00 %)
Used     :  1390.6 Mb ( 34.27 %)
Avail    :  2233.5 Mb ( 55.04 %)
Status   :         OK
-----------------------------------
Memoria Swap
-----------------------------------
Total   :  7213.3 Mb
Alloc   :  1109.5 Mb ( 15.38 %)
Unalloc :    16.6 Mb (  0.23 %)
Avail   :  6087.1 Mb ( 84.39 %)
MinFree :   507.3 Mb (  7.03 %)
Status  :         OK
-----------------------------------
Memoria Disco
-----------------------------------
Total    :  4096.5 Mb
Alloc    :     0.0 Mb (  0.00 %)
Free     :  4096.5 Mb (100.00 %)
Status   :         OK
-----------------------------------
 
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¡Todo funcionando!

Nuevamente, ¡muchas gracias!

por **explorer** » 2013-02-07 12:37 @567

¡Qué bueno! Me alegro. :lol:

Como último recurso, hubiera quedado la posibilidad de usar el comando kstat de la línea de comandos.

Por otra parte, para sacar estadísticas de la memoria, con un Perl v5.8.4 hubiera sido suficiente... salvo que necesitaras algo muy específico de Perl v5.14.2 (o evitar un bug de la versión vieja).

por **mobarrio** » 2013-02-07 13:02 @585

En realidad tengo varios scripts multi-plataforma, algunos de ellos como el meminfo, nicstat, que utilizan el Kstat. Lo del Perl 5.12 es porque luego con perl2exe los compilo y la versión que tengo es la 5.12. Sé que no tienen por qué ser iguales a las del SO pero para evitarme dolores de cabeza, utilizo tanto en p2x como en SO la misma.

¡Realmente todo un logro que funcionara en Sparc!

Salu2,

Mariano

por **explorer** » 2013-02-08 08:16 @386

Hummm... ¿y por qué tienes que compilarlos con perl2exe?

por **mobarrio** » 2013-02-08 08:22 @390

Solo para proteger el código fuente, que no quiero que lo puedan cambiar, esta fue la solución mas fácil que encontré.

Salu2,

Mariano

por **explorer** » 2013-02-08 12:00 @541

Siempre es preferible que el código lo pueda ver y cambiar el usuario... les da sensación de libertad (independencia del proveedor) y, además, si tocan algo y lo estropean, mejor para nosotros :twisted:

Yo, para esconder el código, alguna vez he usado Acme::Bleach :lol:

Foro - Perl en Español

Sun::Solaris::Kstat y "use lib"

Sun::Solaris::Kstat y "use lib"

Publicidad

Re: Sun::Solaris::Kstat y "use lib"

Re: Sun::Solaris::Kstat y "use lib"

Re: Sun::Solaris::Kstat y "use lib"

Re: Sun::Solaris::Kstat y "use lib"

Re: Sun::Solaris::Kstat y "use lib"

Re: Sun::Solaris::Kstat y "use lib"

Re: Sun::Solaris::Kstat y "use lib"

Re: Sun::Solaris::Kstat y "use lib"

Re: Sun::Solaris::Kstat y "use lib"

¿Quién está conectado?