Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Re: Tell if arch is HP or HPIA64

by choroba (Bishop)
on Aug 30, 2012 at 14:35 UTC ( #990772=note: print w/replies, xml ) Need Help??

in reply to Tell if arch is HP or HPIA64

I needed a similar thing once, could not think of anything better than this:
sub arch { my $arch = `$^X -v`; $arch =~ s/.* built for //s; $arch =~ s/\n.*//s; return $arch; }
لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Replies are listed 'Best First'.
Re^2: Tell if arch is HP or HPIA64
by Anonymous Monk on Aug 30, 2012 at 14:44 UTC
    $ perl -v |ack "built for" This is perl 5, version 14, subversion 1 (v5.14.1) built for MSWin32-x +86-multi-thread $ perl -V:archname archname='MSWin32-x86-multi-thread'; $ perl -MConfig -le " print $Config{archname} " MSWin32-x86-multi-thread

      Thanks all

      Since I'm doing this from within a script and only have the issue on HP, I have the following:

      my $os = $^O; my $OS = "Win32"; SWITCH: { $os =~ /^s/i && do { $OS = "SunOS"; last SWITCH; }; $os =~ /^l/i && do { $OS = "Linux"; last SWITCH; }; $os =~ /^a/i && do { $OS = "AIX"; last SWITCH; }; $os =~ /^h/i && do { $OS = $Config{'archname'} =~ /64/ ? "HPIA64" : + "HP"; last SWITCH; }; }


      Thanks for the enlightenment! I knew it should be possible, but was not able to find it faster than typing the code.
      لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
Re^2: Tell if arch is HP or HPIA64
by Tux (Abbot) on Aug 30, 2012 at 16:18 UTC

    Using Config::Perl::V you can get the %Config settings that affect the build as well as the flags used to build the perl binary:

    $ perl -MConfig::Perl::V=myconfig -MData::Dumper -e'print Dumper (myco +nfig)' --- lots of output here

    Enjoy, Have FUN! H.Merijn

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://990772]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (3)
As of 2018-05-22 21:48 GMT
Find Nodes?
    Voting Booth?