Il y a deux règles que je m'applique continuellement en perl :
- ne jamais utiliser /bin/grep
- ne jamais utiliser /bin/sed
Dans ton cas tu dois pouvoir faire quelque chose comme : #!/usr/bin/perl -w
use strict;
my $who = (grep {!/(:/} `who`)[0];
print "$who";
Tu appelle la commande who tu parse le résultat avec le grep de perl qui renvoie un tableau et tu prend que le premier élément (perl renvoie un tableau). Au niveau des protections je saurais pas te dire mais le problème doit être beaucoup plus simple.
Tous les contenus que j'écris ici sont sous licence CC0 (j'abandonne autant que possible mes droits d'auteur sur mes écrits)
# perl is good
Posté par barmic . En réponse au message méta caractère "\(". Évalué à 3.
Il y a deux règles que je m'applique continuellement en perl :
- ne jamais utiliser /bin/grep
- ne jamais utiliser /bin/sed
Dans ton cas tu dois pouvoir faire quelque chose comme :
#!/usr/bin/perl -w
use strict;
my $who = (grep {!/(:/} `who`)[0];
print "$who";
Tu appelle la commande who tu parse le résultat avec le grep de perl qui renvoie un tableau et tu prend que le premier élément (perl renvoie un tableau). Au niveau des protections je saurais pas te dire mais le problème doit être beaucoup plus simple.
Tous les contenus que j'écris ici sont sous licence CC0 (j'abandonne autant que possible mes droits d'auteur sur mes écrits)