Reprise du message précédent :

Tu fais parti de ces gens qui sont allergique au chocolat et que je plains sincèrement.

en même temps si c'est pour installer un Linux pour y foutre du samba .....

tututut, on fout du linux et pis c'est tout

Yen a ici qui bossent en openspace avec des gens qui parlent fort ? Un cax audio à conseiller ?

T'as pas ou trop peu de cache sur le contrôleur des disques. Ou alors la batterie duncache est morte.

n'importe quel casque fermé, pas trop lourd ni trop chaud, évite les oreillettes en cuir, juste

Quel souci avec les oreillettes en cuir ?

tu transpires des oreilles au bout de quelques heures

Mignon

Le mieux est d'éliminer la source du problème. Coup sec derrière la nuque par exemple.

si t'as quelqu'un pour te les lécher, oui

Tu veux venir gouter mon jus d'oreille?  

Quelqu'un aurait un programme portable (sans installation) à me conseiller pour récupérer des infos sur un pc genre version de windows, mises à jour installées, programmes installés et quelques détails hardware ?

psinfo ?

Installé de base t'as systeminfo en cli qui donne déjà pas mal de choses (mais pas la liste des softs), sinon comme d'hab, sysinternals :
http://technet.microsoft.com/en-us [...] 97550.aspx

je t'ai un peu cramé la

http://portableapps.com/apps/utilities/siw_portable

Tu grandis si vite, si tu savais comme je suis fier de toi  

Bro-tip : /accepteula en paramètre sur le PSinfo

Merci les gens.
SIW me convient le mieux, c'est pour faire lancer à des lusers.

Si je nettoie la boite de 50% de ses effectifs, ça risque de pas être très pratique

Au contraire, ton geste patriotique te permettra de réduire le chômage

S'ils sont employés, ils sont pas au chômage

les morts seront remplacé ... et donc le chômage réduira de facto

edit anecdote du jour... installer un imprimante réseau en télémaintenance quand la personne sur place n'as pas la bonne IP c'est fun  et quand elle est pas capable d'aller lire les params dans la becanne c'est encore plus facile

Si on les remplace par d'autres tout aussi bruyants, je vous fais une infinite-loop

(au téléphone)
 
(mon chef) - ok, et donc le délai c'est demain matin 8h, Rosco, haha
(moi) - ok
- *clac*
- *clac* (merde, est-ce qu'il était sérieux ?)  

Cet horrible moment quand tu réalises et que tu te poses la question

Bon, comme je développe peu, je sèche un peu sur l'itération d'une référence en perl :

 
Comment puis-je boucler sur chaque entrée de result_object1 afin de récupérer les id puis pour chacun, le number de chaque service ?

Pour le reboot de prod de la semaine dernière ...  

http://lesjoiesdusysadmin.tumblr.c [...] O2MY3dP-eM

Je te dis ça dans 10 mn, j'ai un clavier a nettoyer et brancher.
A la base, result_object1 est la clé d'un hash dont la valeur est une liste (anonyme) d'éléments qui sont des de hashes qui...
A+,

Désolé, j'ai du en urgence prendre les dimensions de la salle de bain et les passer au téléphone (faut profiter des soldes au Bricorama...)

#!/usr/bin/perl
# code propre
use strict;
use warnings;
 
 
use Data::Dumper;
my %v = (
     'msg' => '',
     'sophia_class_name' => 'VOResult',
     'debug_message' => '',
     'result_object2' => undef,
     'result_object1' => [
                  {
                   'id' => 5226,
                   'services' => [
                          {
                           'number' => 5,
                           'enabled' => 0,
                          },
                          {
                           'number' => 4,
                           'enabled' => 0,
                          },
                         ],
                  },
                  {
                   'id' => 5227,
                   'services' => [
                          {
                           'number' => 5,
                           'enabled' => 0,
                          },
                          {
                           'number' => 3,
                           'enabled' => 0,
                          },
                         ],
                  },
                 ],
    );
my $var = \%v;
# tu peux faire print Data::Dumper($var); pour vérifier que c'est ce que tu as donné initialement
# bon ce qui t'intéresse pour dérouler les structures suit:
foreach my $e (@{$var->{'result_object1'}}) {
  print "id : $e->{'id'}, services : ";
  foreach my $f (@{$e->{'services'}}) {
    print "$f->{'number'} ";
  }
  print "\n";
}

en sortie:

Tu adaptes à tes besoins.
A+,

Ok je vois ce que tu fais, tu castes dans un array pour pouvoir faire le foreach.
 
Merci

  heu... a moins de faire des copies, il y a un autre moyen ?

Y'a peut-être d'autres fonctions que foreach et qui permettaient de le faire ?

?? le foreach, il est pas couteux puisque ce qui est assigné a sa variable est une référence à un hash, ie une valeur scalaire. Il n'y a pas copie de structures ici.
A+,

C'est pas un cast, mais un déréférencement d'une référence à un array (anonyme).
A+,

C'est quand même bien tordu les références en perl.

ce n'est pas a toi que je repondais...