function dump_arch_dep { perl \ -e 'my $Psi=$ARGV[0]; die unless $Psi && -e $Psi;' \ -e 'chomp (my(@sn)=(`uname -m`, `uname -s`));' \ -e 'open my $scf, "-|", $Psi or die;' \ -e 'my $crv=<$scf>; close $scf;' \ -e '$crv=~m/[ ]version[ ]([^ ,]{1,4})/ && (push @sn, "gnu_libc_v$1");' \ -e 'print join q/_/=> map{"\L$_"}@sn;' \ -e 'print "\n"' $1 } function show_osma { declare +x -a _Gv=(6 5) declare +x Discovered_GLIBC for LVA in ${_Gv[@]} do if [[ -e /lib/libc.so.$LVA && -x /lib/libc.so.$LVA ]] then Discovered_GLIBC=/lib/libc.so.$LVA break fi done if [[ -n $Discovered_GLIBC ]]; then dump_arch_dep $Discovered_GLIBC; fi }