Nicolas Casanova a écrit 65 commentaires

[^] # Re: Plusieurs trucs bizarres…

Posté par Nicolas Casanova le 07 octobre 2015 à 11:29. En réponse au message références aux dossiers parents. Évalué à 1.

use File::Basename;

my $f = basename 'C:\Users\Desktop\SysCompare_v01\InputData\default_sysdumpdev_150319.xml';

my @elems = split '_', $f, 2;

print $elems[0];

# system() ?

Posté par Nicolas Casanova le 29 septembre 2015 à 15:53. En réponse au message Je voudrais lancer plusieurs script Perl à partir d'un autre script Perls.. Évalué à 2.
Tu as consulté la commande system() ? Ça pourrait peut-être t'aider à avancer ; quelque chose comme
```
use strict;
use warnings;

system script1.pl, default.xml, '*.xml';
system script2.pl, data.csv;
system script3.pl, data.csv;
system script4.pl, data.csv;
system script5.pl, data.csv;
system script6.pl, default.xml, default.xml;
system script7.pl, data2.csv, default.csv;
```
Je n'ai rien testé, je te laisse le soin de le faire :-)
[^] # Re: Aucun rapport...

Posté par Nicolas Casanova le 31 août 2015 à 12:14. En réponse au message empêcher le champ vide à la fin du tableau. Évalué à 1.

Tu peux tout faire en une seule regex avec un or (|):

La doc. indique toutefois que c'est plus lent de recourir au OR que de le faire en deux opérations. Pas forcément très grave, mais il vaut mieux le savoir.
[^] # Re: En Perl

Posté par Nicolas Casanova le 09 juillet 2015 à 15:27. En réponse au message Help pour script. Évalué à 4.
Avec éventuellement un BEGIN, sinon point d'en-tête de colonnes :
```
perl -n -e 'BEGIN { print "Numero de serie,chiffrement du certif\n"} /^(\d+)/ and print "$1,"; /: (\w+)/ and print "$1\n"' input.dat
```
[^] # Re: coomand ?

Posté par Nicolas Casanova le 06 juillet 2015 à 12:08. En réponse au message traitement lot / compresser pdf. Évalué à 3.
A quoi sert "command" dans le cas de ce script ?

Ça sert (en théorie) à être sûr que tu vas appeler la commande qui suit et non pas une hypothétique fonction du shell qui porterait le même nom. Bon, ici, l'utilité ne me saute pas aux yeux, mais ça ne veut pas dire qu'elle n'existe pas :)

Sinon, un help command renseigne sur command (qui est un utilitaire POSIX) :
```
$ help command
command: command [-pVv] command [arg ...]
    Runs COMMAND with ARGS ignoring shell functions.  If you have a shell
    function called `ls', and you wish to call the command `ls', you can
    say "command ls".  If the -p option is given, a default value is used
    for PATH that is guaranteed to find all of the standard utilities.  If
    the -V or -v option is given, a string is printed describing COMMAND.
    The -V option produces a more verbose description.
```
[^] # Re: Si j’ai bien compris

Posté par Nicolas Casanova le 19 juin 2015 à 09:24. En réponse au message awk print $mavariable. Évalué à 2.
On peut même se passer d'une variable $new_name intermédiaire et de l'appel à sed :
```
for file in XXX.TTTT.*; do cp -p "$file" "${file/TTTT/YYYY}"; done
```
# Tableau HTML à partir d'une requête MySQL

Posté par Nicolas Casanova le 30 mai 2015 à 13:38. En réponse au message crontab. Évalué à 2. Dernière modification le 30 mai 2015 à 13:42.
Ce n'est pas bien compliqué a priori (je n'ai rien sous la main pour tester), il suffit de lire le manuel de MySQL :
https://dev.mysql.com/doc/refman/5.0/en/mysql-command-options.html#option_mysql_html

Surtout que la même réponse t'a déjà été donnée le 9 mai.
```
#!/bin/bash

exec 5<&1
exec 1>reponse.html

echo "<html><body>"

mysql -H -h 127.0.0.1 -D Ecole -u root -pPianissimo2015 -e "select * from Eleve"

echo "</body></html>"

exec 1<&5 5>&-
```
Au passage, il serait plus sage de :
1. ne pas utiliser root pour requêter la base
2. donner le nom de la base sur laquelle se trouve la table Eleve
# Et le message d'erreur ?

Posté par Nicolas Casanova le 27 avril 2015 à 16:52. En réponse au message sortie sur un fichier csv. Évalué à 3.

tout un coup cela ne fonctione plus je ne sais pas ce qui ne va pas;

Tu ne risques pas de recevoir beaucoup d'aide si tu ne fournis même pas le message d'erreur…
[^] # Re: loop

Posté par Nicolas Casanova le 16 avril 2015 à 14:40. En réponse au message Parsage sur plusieur fichier. Évalué à 1.
je ne sais pas comment l'empeche a ce qu'il ne me traite pas le fichier Nr.0 une fois de plus

shift est ton ami. Du coup, ton code deviendrait :
```
my $file_0 = shift or die 'No file1'; 
my @files = @ARGV or die 'No files';
```
Le shift enlève le premier argument après l'avoir affecté à ta variable $file_0 ; du coup, tu ne la retrouves plus ultérieurement dans @ARGV.
[^] # Re: loop

Posté par Nicolas Casanova le 14 avril 2015 à 16:14. En réponse au message Parsage sur plusieur fichier. Évalué à 1.

voila l'erreur que cela me notifie

mismatched tag at line 12, column 5, byte 629 at C:/strawberry/perl/site/lib/XML/Parser.pm line 187.

http://linuxfr.org/forums/programmation-perl/posts/xml-parser#comment-1596952
[^] # Re: po

Posté par Nicolas Casanova le 08 avril 2015 à 10:19. En réponse au message XML-Parser. Évalué à 1.

Ce serait plus parlant si tu montrais un exemple de ton fichier référence et un exemple de ton second fichier. Parce que là, j'ai pas compris grand-chose.
[^] # Re: po

Posté par Nicolas Casanova le 03 avril 2015 à 17:05. En réponse au message XML-Parser. Évalué à 1.
il faut pour ça que tu t'intéresses au tableau @ARGV. La documentation est là : http://perldoc.perl.org/perlvar.html

si tu appelles ton script perl comme ça.
```
./script.pl fichier.xml
```
le nom de ton fichier.xml peut être récupéré dans ton script.
[^] # Re: po

Posté par Nicolas Casanova le 03 avril 2015 à 15:40. En réponse au message XML-Parser. Évalué à 1.
si j'ai bien compris (ce dont, je ne suis pas sûr), mettre ce genre de chose avant le parsefile :
```
print( (split('_', 'd100spuptl25e0_sysdumpdev.txt',2))[0] . ',' );
```
[^] # Re: po

Posté par Nicolas Casanova le 03 avril 2015 à 15:27. En réponse au message XML-Parser. Évalué à 1.

Oui, c'est ce que je voulais dire.

Pour ton erreur, elle me semble assez explicite :

mismatched tag at line 12, column 5, byte 626 at C:/strawberry/perl/site/lib/XML/Parser.pm line 187.

C'est ton fichier XML qui est mal formé ; s'il est exactement comme celui que tu montres dans ta question initiale, c'est ta balise <Profile> qui n'est jamais fermée. Il y a bien une balise fermante </profile>, mais ce n'est pas la même casse (un p minuscule au lieu d'une capitale), donc ton analyseur syntaxique est complètement perdu. D'où l'erreur.
[^] # Re: po

Posté par Nicolas Casanova le 03 avril 2015 à 09:34. En réponse au message XML-Parser. Évalué à 1.

Juste avant le parsefile, tu écris un print de ton nom de fichier suivi par une virgule et tu auras le résultat souhaité.

[^] # Re: po

Posté par Nicolas Casanova le 02 avril 2015 à 17:22. En réponse au message XML-Parser. Évalué à 2.

Avec XML::Twig, je ferais comme ça :

use strict;
use warnings;
use XML::Twig;

my $twig= XML::Twig->new(
               twig_handlers => { 'Parameter' => sub { $, = ",";
                                                      print
                                                        $_->{'att'}->{'name'},$_->{'att'}->{'value'} . $,
                                                      }
                                }
               );

$twig->parsefile('test.xml');

ce qui donne : prim,2,second,3,copy,4,force,1,always,0,type,5,memory,allow,

Ne resterait plus qu'à nettoyer la virgule finale.

Après, comme toujours en Perl, il y a d'autres manières de faire.

# Awk ?

Posté par Nicolas Casanova le 19 janvier 2015 à 13:48. En réponse au message IFS= et imbrication. Évalué à 2.

Hello,

si tu ne t'interdis pas Awk, 15 lignes de script pourraient faire l'affaire (enfin, si j'ai bien compris le résultat à atteindre !) :

#! /usr/bin/awk -f

BEGIN {
    FS=";"
    OFS=";"
}
$1 ~ /AEQF/ {
    split($NF, Array, "|");

    for (hg in Array)
    {
        print "HOST;ADD", Array[hg], Array[hg]
    }
    print "HOST;ADD",$3,$5,$4,$7,$2,$8
}
$1 ~ /SEQI/ {
    print "HOST;DEL",$3
}

Chez moi, le script clapi_import.awk donne ça :

./clapi_import.awk sample.txt sample2.txt
HOST;ADD;foo;foo
HOST;ADD;bar;bar
HOST;ADD;baz;baz
HOST;ADD;bli;ju;blu;toto;bla;foo|bar|baz
HOST;DEL;hop
HOST;ADD;foo;foo
HOST;ADD;bar;bar
HOST;ADD;baz;baz
HOST;ADD;bli;ju;blu;toto;bla bla;foo|bar|baz
                        #^^^^^^^ L'espace est bien repris
HOST;DEL;hop

# Posh Portal

Posté par Nicolas Casanova le 07 janvier 2015 à 10:01. En réponse au message Clone OpenSource de iGoogle, NetVibes & co. Évalué à 4. Dernière modification le 07 janvier 2015 à 10:03.

Y aurait Posh, peut-être, écrit en PHP et dont on causait ici-même il y a quatre ou cinq ans : Sortie de Posh 3.0 stable.
[^] # Re: telecharger une vm depuis oracle.com

Posté par Nicolas Casanova le 08 décembre 2014 à 16:04. En réponse au message je suis quelque peu embêté..... Évalué à 3.

Il semble qu'Oracle mette même des images Virtualbox à disposition : http://www.oracle.com/technetwork/community/developer-vm/index.html#sol
[^] # Re: Même chose sous Mercurial

Posté par Nicolas Casanova le 03 décembre 2014 à 09:26. En réponse au journal GitLab, mais encore ?. Évalué à 1.

Apparemment Kallithea s'est créé en réaction à la fermeture de RhodeCode (enfin, si l'on en croit wikipedia). C'est en python, ça gère Mercurial… Je me suis dit que ça pourrait t'intéresser.
[^] # Re: Culture Club

Posté par Nicolas Casanova le 16 octobre 2014 à 10:07. En réponse au journal Enfin une ministre de la Qulture qui comprend l'internet !. Évalué à 6.

(Enfin, à l'exception des dictatures…)

Comme le Danemark. Ah, euh, attendez…
[^] # Re: 2 solutions

Posté par Nicolas Casanova le 02 septembre 2014 à 11:19. En réponse au message Une boîte mail ?. Évalué à 2.

Canadienne : Fastmail qui marche du feu de dieu, avec un webmail au poil.

Si on parle de https://www.fastmail.fm/, c'est plutôt australien si on en croit le pied de page de l'accueil (« Conçu avec soin à Melbourne, Australie ») ou leur page de politique de confidentialité (« FastMail is an Australian company and as such is subject to Australian law. »)

À moins que Stephen Harper n'ait lancé une annexion de l’Australie pendant le mois d'août, évidemment.
# Si ça peut aider...

Posté par Nicolas Casanova le 01 août 2014 à 15:16. En réponse au journal Les serveurs situés à l'étranger et la loi. Évalué à 3.

(2nd U.S. Circuit Court of Appeals, aucune idée de comment on transcrit cela en France)

Cour d'appel des États-Unis pour le deuxième circuit
# grub-reboot

Posté par Nicolas Casanova le 09 juillet 2014 à 15:57. En réponse au message Choisir l'entrée du futur démarrage. Évalué à 7.

La documentation de Debian parle de grub-reboot avec en argument le petit numéro correspondant au système ou noyau sur lequel tu veux amorcer au prochain redémarrage.

Donc voilà, ça existe toujours, a priori (pas testé, j'ai pas le nécessaire sous la main, là.)
[^] # Re: Rien à voir

Posté par Nicolas Casanova le 16 mai 2014 à 10:56. En réponse au message Latex : Une images pour séparer les subsections. Évalué à 3.

Sinon, je pense que tu veux rajouter quelque chose comme les feuilles de vignes que l'on voyait parfois sur certains ouvrage

Une feuille aldine.