J'utilise Sys::Hostname pour récupérer le host d'une machine :
my $MyHost = hostname;
Dans certains cas, j'obtiens: le_host,
et dans d'autres cas le_host.le_domaine.
Comment faire pour ne récuperer que le_host (sans utiliser split).
Merci.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Benoit Izac
Bonjour,
le 04/06/2004 à 14:13, Delf a écrit dans le message <40c0672d$0$4228$ :
J'utilise Sys::Hostname pour récupérer le host d'une machine : my $MyHost = hostname; Dans certains cas, j'obtiens: le_host, et dans d'autres cas le_host.le_domaine. Comment faire pour ne récuperer que le_host (sans utiliser split).
Pourquoi ne pas utiliser split ?
$MyHost =~ s/..*$//;
Sinon tu as des modules : <http://search.cpan.org/~miker/Sys-Hostname-FQDN-0.06/FQDN.pm> mais vu qu'il utilise split, tu n'en veux sûrement pas.
Sinon sous UNIX : my $MyHost = system("hostname -s");
-- Benoit Izac
Bonjour,
le 04/06/2004 à 14:13, Delf a écrit
dans le message <40c0672d$0$4228$626a14ce@news.free.fr> :
J'utilise Sys::Hostname pour récupérer le host d'une machine :
my $MyHost = hostname;
Dans certains cas, j'obtiens: le_host,
et dans d'autres cas le_host.le_domaine.
Comment faire pour ne récuperer que le_host (sans utiliser split).
Pourquoi ne pas utiliser split ?
$MyHost =~ s/..*$//;
Sinon tu as des modules :
<http://search.cpan.org/~miker/Sys-Hostname-FQDN-0.06/FQDN.pm> mais vu
qu'il utilise split, tu n'en veux sûrement pas.
Sinon sous UNIX :
my $MyHost = system("hostname -s");
le 04/06/2004 à 14:13, Delf a écrit dans le message <40c0672d$0$4228$ :
J'utilise Sys::Hostname pour récupérer le host d'une machine : my $MyHost = hostname; Dans certains cas, j'obtiens: le_host, et dans d'autres cas le_host.le_domaine. Comment faire pour ne récuperer que le_host (sans utiliser split).
Pourquoi ne pas utiliser split ?
$MyHost =~ s/..*$//;
Sinon tu as des modules : <http://search.cpan.org/~miker/Sys-Hostname-FQDN-0.06/FQDN.pm> mais vu qu'il utilise split, tu n'en veux sûrement pas.
Sinon sous UNIX : my $MyHost = system("hostname -s");
-- Benoit Izac
Delf
Benoit Izac wrote:
Pourquoi ne pas utiliser split ? $MyHost =~ s/..*$//;
Je sais pas... je pensais qu'il y avait un meilleur moyen :|
-- Delf www.snoworld.org
Benoit Izac wrote:
Pourquoi ne pas utiliser split ?
$MyHost =~ s/..*$//;
Je sais pas... je pensais qu'il y avait un meilleur moyen :|
Pourquoi ne pas utiliser split ? $MyHost =~ s/..*$//;
Je sais pas... je pensais qu'il y avait un meilleur moyen :|
-- Delf www.snoworld.org
Laurent Wacrenier
Delf écrit:
J'utilise Sys::Hostname pour récupérer le host d'une machine : my $MyHost = hostname; Dans certains cas, j'obtiens: le_host, et dans d'autres cas le_host.le_domaine. Comment faire pour ne récuperer que le_host (sans utiliser split).
C'est un exercice ? my $MyHost = (hostname =~ /([^.]*)/)[0];
Delf <none@none.org> écrit:
J'utilise Sys::Hostname pour récupérer le host d'une machine :
my $MyHost = hostname;
Dans certains cas, j'obtiens: le_host,
et dans d'autres cas le_host.le_domaine.
Comment faire pour ne récuperer que le_host (sans utiliser split).
C'est un exercice ?
my $MyHost = (hostname =~ /([^.]*)/)[0];
J'utilise Sys::Hostname pour récupérer le host d'une machine : my $MyHost = hostname; Dans certains cas, j'obtiens: le_host, et dans d'autres cas le_host.le_domaine. Comment faire pour ne récuperer que le_host (sans utiliser split).
C'est un exercice ? my $MyHost = (hostname =~ /([^.]*)/)[0];
