请问在Perl中如何不使用AWK，而能够获取主机名？

beike

UID: 30965
帖子: 1
积分: 2
在线时间: 10 分钟

11^# beike 发表于 2008-08-15 18:11

#!/usr/bin/perl -w
my ($my_hostname) = `hostname` =~ /(\w+)\./;
print $my_hostname;

xpkiller

UID: 19439
帖子: 131
积分: 301
在线时间: 23 小时

12^# xpkiller 发表于 2008-08-15 18:17

perl -e 'print $ENV{HOSTNAME} =~ /^(.+?)\./;'
害怕主机名中包含其他字符，所以用.

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

13^# cobrawgl 发表于 2008-08-15 19:18

use Sys::Hostname;

my $name = (split '.', hostname)[0];

没测试过，不保证能运行

ulmer

UID: 6072
帖子: 148
积分: 340
在线时间: 1 天 6 小时

14^# ulmer 发表于 2008-08-15 19:42

using split /regex/
available hostname formats are
foo
or
foo.bar.com
for example one perl line:
perl -e '$h = (split /\./, `hostname`)[0]; print $h'

jjqing

UID: 40439
帖子: 178
积分: 409
在线时间: 1 天 19 小时

15^# jjqing 发表于 2008-08-16 18:58

谢谢各位老大！

各位的指点，让我受用多多，初学perl，以后还有很多问题要向各位请教，谢谢！

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

16^# flw 发表于 2008-08-16 19:16

hostname -s
hostname --short

jjqing

UID: 40439
帖子: 178
积分: 409
在线时间: 1 天 19 小时

17^# jjqing 发表于 2008-08-16 21:23

QUOTE:

原帖由 flw 于 2008-8-16 19:16 发表
hostname -s
hostname --short

======================
bash-3.00# hostname
solaris01.jjqing.com

======================
bash-3.00# hostname -s
bash-3.00# hostname
-s

======================
bash-3.00# hostname --short
bash-3.00# hostname
--short

======================
bash-3.00# hostname solaris01.jjqing.com
bash-3.00# hostname
solaris01.jjqing.com

bash-3.00# more /etc/release
                     Solaris 10 11/06 s10x_u3wos_10 X86
         Copyright 2006 Sun Microsystems, Inc.  All Rights Reserved.
                     Use is subject to license terms.
                        Assembled 14 November 2006