Je suis pas tr=E8s dou=E9 en perl, mais je suis presque sur de pouvoir
trouver un =E9quivalent =E0 ceci en perl :
/sbin/ifconfig | grep "inet " | grep -v "127.0.0.1" | awk '{ print
$2 }' | awk -F: '{ print $2 }' | awk -F. '{ print $1"."$2"."$3"." }'
En effet mis =E0 par l'execution de la commande ifconfig, perl est
r=E9put=E9 pour pouvoir faire des awk et des grep de lui m=EAme en plus
puissant mais je ne sais pas trop comment faire.
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
Patrice Karatchentzeff
a écrit :
Je suis pas très doué en perl, mais je suis presque sur de pouvoir trouver un équivalent à ceci en perl : /sbin/ifconfig | grep "inet " | grep -v "127.0.0.1" | awk '{ print $2 }' | awk -F: '{ print $2 }' | awk -F. '{ print $1"."$2"."$3"." }'
Je ne sais pas si c'est volontaire mais cela charcute la dernière partie de l'adresse IP ?
En effet mis à par l'execution de la commande ifconfig, perl est réputé pour pouvoir faire des awk et des grep de lui même en plus puissant mais je ne sais pas trop comment faire.
Je suis pas très doué en perl, mais je suis presque sur de pouvoir
trouver un équivalent à ceci en perl :
/sbin/ifconfig | grep "inet " | grep -v "127.0.0.1" | awk '{ print
$2 }' | awk -F: '{ print $2 }' | awk -F. '{ print $1"."$2"."$3"." }'
Je ne sais pas si c'est volontaire mais cela charcute la dernière
partie de l'adresse IP ?
En effet mis à par l'execution de la commande ifconfig, perl est
réputé pour pouvoir faire des awk et des grep de lui même en plus
puissant mais je ne sais pas trop comment faire.
Je suis pas très doué en perl, mais je suis presque sur de pouvoir trouver un équivalent à ceci en perl : /sbin/ifconfig | grep "inet " | grep -v "127.0.0.1" | awk '{ print $2 }' | awk -F: '{ print $2 }' | awk -F. '{ print $1"."$2"."$3"." }'
Je ne sais pas si c'est volontaire mais cela charcute la dernière partie de l'adresse IP ?
En effet mis à par l'execution de la commande ifconfig, perl est réputé pour pouvoir faire des awk et des grep de lui même en plus puissant mais je ne sais pas trop comment faire.
Oui c'est un fait exprès la dernière partie seras une variable.
J'ai modifié ton uniligne pour qu'il retire le loopback et le dernier octet de l'adresse IP ifconfig | perl -anE 'if (/adr:/) {$F[1]=~ s/adr:(d*.d*.d*.)d*/ $1/g ; say grep {!/^127/} $F[1]}' Maintenant je cherche à envoyer ça dans une variable :)
On 31 jan, 09:39, Patrice Karatchentzeff <p.karatchentz...@free.fr>
wrote:
Patrice Karatchentzeff <p.karatchentz...@free.fr> a écrit :
[...]
> Avec toute l'adresse :
> $ ifconfig | perl -ane 'if (/adr :/) {$F[1]=~ s/adr ://g ; prin t $F[1],
> "n"}'
Oui c'est un fait exprès la dernière partie seras une variable.
J'ai modifié ton uniligne pour qu'il retire le loopback et le dernier
octet de l'adresse IP
ifconfig | perl -anE 'if (/adr:/) {$F[1]=~ s/adr:(d*.d*.d*.)d*/
$1/g ; say grep {!/^127/} $F[1]}'
Maintenant je cherche à envoyer ça dans une variable :)
Oui c'est un fait exprès la dernière partie seras une variable.
J'ai modifié ton uniligne pour qu'il retire le loopback et le dernier octet de l'adresse IP ifconfig | perl -anE 'if (/adr:/) {$F[1]=~ s/adr:(d*.d*.d*.)d*/ $1/g ; say grep {!/^127/} $F[1]}' Maintenant je cherche à envoyer ça dans une variable :)
Patrice Karatchentzeff
a écrit :
J'ai modifié ton uniligne pour qu'il retire le loopback et le dernier octet de l'adresse IP ifconfig | perl -anE 'if (/adr:/) {$F[1]=~ s/adr:(d*.d*.d*.)d*/ $1/g ; say grep {!/^127/} $F[1]}' Maintenant je cherche à envoyer ça dans une variable :)
Comment cela ?
Après, l'intérêt de l'uniligne s'estompe largement au profit d'un vrai script...
J'ai modifié ton uniligne pour qu'il retire le loopback et le dernier
octet de l'adresse IP
ifconfig | perl -anE 'if (/adr:/) {$F[1]=~ s/adr:(d*.d*.d*.)d*/
$1/g ; say grep {!/^127/} $F[1]}'
Maintenant je cherche à envoyer ça dans une variable :)
Comment cela ?
Après, l'intérêt de l'uniligne s'estompe largement au profit d'un vrai
script...
J'ai modifié ton uniligne pour qu'il retire le loopback et le dernier octet de l'adresse IP ifconfig | perl -anE 'if (/adr:/) {$F[1]=~ s/adr:(d*.d*.d*.)d*/ $1/g ; say grep {!/^127/} $F[1]}' Maintenant je cherche à envoyer ça dans une variable :)
Comment cela ?
Après, l'intérêt de l'uniligne s'estompe largement au profit d'un vrai script...
> J'ai modifié ton uniligne pour qu'il retire le loopback et le dernier > octet de l'adresse IP > ifconfig | perl -anE 'if (/adr:/) {$F[1]=~ s/adr:(d*.d*.d*.)d* / > $1/g ; say grep {!/^127/} $F[1]}' > Maintenant je cherche à envoyer ça dans une variable :)
Comment cela ?
Après, l'intérêt de l'uniligne s'estompe largement au profit d'un v rai script...
En fait mon idée c'est de pinguer toutes les adresses IP d'un réseau local pour trouver une machine. Pour ça j'incrémente le dernier octet au fure et à mesure parce que j e crois que certains routeur bloque le broadcast.
Je cherche à détecter automatiquement l'adresse du réseau à fin d' être plus portable. et c'est ce que je tente de faire en récupérant la sortie d'ipconfig.
On 31 jan, 16:01, Patrice Karatchentzeff <p.karatchentz...@free.fr>
wrote:
michel.bar...@gmail.com a écrit :
> J'ai modifié ton uniligne pour qu'il retire le loopback et le dernier
> octet de l'adresse IP
> ifconfig | perl -anE 'if (/adr:/) {$F[1]=~ s/adr:(d*.d*.d*.)d* /
> $1/g ; say grep {!/^127/} $F[1]}'
> Maintenant je cherche à envoyer ça dans une variable :)
Comment cela ?
Après, l'intérêt de l'uniligne s'estompe largement au profit d'un v rai
script...
En fait mon idée c'est de pinguer toutes les adresses IP d'un réseau
local pour trouver une machine.
Pour ça j'incrémente le dernier octet au fure et à mesure parce que j e
crois que certains routeur bloque le broadcast.
Je cherche à détecter automatiquement l'adresse du réseau à fin d' être
plus portable. et c'est ce que je tente de faire en récupérant la
sortie d'ipconfig.
> J'ai modifié ton uniligne pour qu'il retire le loopback et le dernier > octet de l'adresse IP > ifconfig | perl -anE 'if (/adr:/) {$F[1]=~ s/adr:(d*.d*.d*.)d* / > $1/g ; say grep {!/^127/} $F[1]}' > Maintenant je cherche à envoyer ça dans une variable :)
Comment cela ?
Après, l'intérêt de l'uniligne s'estompe largement au profit d'un v rai script...
En fait mon idée c'est de pinguer toutes les adresses IP d'un réseau local pour trouver une machine. Pour ça j'incrémente le dernier octet au fure et à mesure parce que j e crois que certains routeur bloque le broadcast.
Je cherche à détecter automatiquement l'adresse du réseau à fin d' être plus portable. et c'est ce que je tente de faire en récupérant la sortie d'ipconfig.
Patrice Karatchentzeff
a écrit :
En fait mon idée c'est de pinguer toutes les adresses IP d'un réseau local pour trouver une machine. Pour ça j'incrémente le dernier octet au fure et à mesure parce que je crois que certains routeur bloque le broadcast.
Pourquoi pas...
Je cherche à détecter automatiquement l'adresse du réseau à fin d'être plus portable. et c'est ce que je tente de faire en récupérant la sortie d'ipconfig.
Autant utiliser les modules ad hoc plutôt que réinventer la roue... avec un peu de chance, on peut simuler du broadcast et le problème est résolu :)
En fait mon idée c'est de pinguer toutes les adresses IP d'un réseau
local pour trouver une machine. Pour ça j'incrémente le dernier
octet au fure et à mesure parce que je crois que certains routeur
bloque le broadcast.
Pourquoi pas...
Je cherche à détecter automatiquement l'adresse du réseau à fin
d'être plus portable. et c'est ce que je tente de faire en
récupérant la sortie d'ipconfig.
Autant utiliser les modules ad hoc plutôt que réinventer la roue...
avec un peu de chance, on peut simuler du broadcast et le problème est
résolu :)
En fait mon idée c'est de pinguer toutes les adresses IP d'un réseau local pour trouver une machine. Pour ça j'incrémente le dernier octet au fure et à mesure parce que je crois que certains routeur bloque le broadcast.
Pourquoi pas...
Je cherche à détecter automatiquement l'adresse du réseau à fin d'être plus portable. et c'est ce que je tente de faire en récupérant la sortie d'ipconfig.
Autant utiliser les modules ad hoc plutôt que réinventer la roue... avec un peu de chance, on peut simuler du broadcast et le problème est résolu :)
> Je cherche à détecter automatiquement l'adresse du réseau à fin > d'être plus portable. et c'est ce que je tente de faire en > récupérant la sortie d'ipconfig.
Autant utiliser les modules ad hoc plutôt que réinventer la roue... avec un peu de chance, on peut simuler du broadcast et le problème est résolu :)
J'ai cherché un peu et j'ai trouvé le module Patricia (paquet libnet-patricia-perl). Cumulé avec libnet-ifconfig-wrapper-perl, ça doit le faire.
Patrice Karatchentzeff <p.karatchentzeff@free.fr> a écrit :
michel.barret@gmail.com a écrit :
[...]
> Je cherche à détecter automatiquement l'adresse du réseau à fin
> d'être plus portable. et c'est ce que je tente de faire en
> récupérant la sortie d'ipconfig.
Autant utiliser les modules ad hoc plutôt que réinventer la roue...
avec un peu de chance, on peut simuler du broadcast et le problème
est résolu :)
J'ai cherché un peu et j'ai trouvé le module Patricia (paquet
libnet-patricia-perl). Cumulé avec libnet-ifconfig-wrapper-perl, ça
doit le faire.
> Je cherche à détecter automatiquement l'adresse du réseau à fin > d'être plus portable. et c'est ce que je tente de faire en > récupérant la sortie d'ipconfig.
Autant utiliser les modules ad hoc plutôt que réinventer la roue... avec un peu de chance, on peut simuler du broadcast et le problème est résolu :)
J'ai cherché un peu et j'ai trouvé le module Patricia (paquet libnet-patricia-perl). Cumulé avec libnet-ifconfig-wrapper-perl, ça doit le faire.