Henri a écrit 153 commentaires

Salut Stepahan,
pour essaye d'etres plus clair c'est une presentation donc je prepare et celui ci doit etre fait html+css et sur ma page j'ai les resultats suivants

Nombre de ficher traite:

Nombre de paramatre compare:

Date a la quel les donnes ont traite:

ses infomation je les possede lorsque je traite les fichier a partir de mon script perl.
maintenat j'aimerai savoir comment faire a ce que ses resultat s'affiche sur ma page html lorsque je traite les fichier a l'aide de mon script perl. j'aimerai la methode la plus simple meme si il faut utiliser un server pour transmetre les information c'est pas un probleme.
Pardon j'attend vos suggestions.

j'aimerai savoir comment je pourrai m'y prendre a creer une page dynamique de maniere a ce que lorsque
j'ai des resultats (entier) et date obtenu d'un script perl que celui si soit aussi actuellise sur une page web.

Pardon des propositions

Merci bien

la solution est

my $FileResult = 'result_1_'.$date_0.'.csv';

Probleme resolu

merci bien de l'explication. virtualbox c'est ce que mon maitre de stage me disait aussi ,j'espere que le prossessor Intel core i5 sera a la hauteur

Neox, comme je l'avais dit une fois je ne sais pas si je t'avais aussi informer, je fais un stage et mes essais je le pratique sous Windows et quand je le remet a mon maitre de Stage il l'execute sous AIX. Chance que jusqu'ici tout fonctione sous Windows comme sous AIX, mais je sais une chose est que AIX est tres semblable a LINUX

Merci bien des liens

je travaille sous windows

Salut Anaseto,
juste pour mensionner que ton code ne me suprime pas les 2 premieres lignes du fichier input
mais je pourrai le ressoudre. Grand merci de ta propositon.

Tres tres grand Merci a vous tous, c'est tres aimable de votre part, vraiment tres tres grand Merci.

Merci bien des details je suis desole que personne ne me comprenne, je m'xplique encore j'aiun fichier fhin possedant des noms exemple:

fhin-csv
Mon resultat possede
les nom sont 10 noms:
Name0
Name1
Name2
Name3
Name4
Name5
Nmae6
Name7
Name8
Name9

disont je decoupe ce fichier fhin en plusieurs fichiers fhout ayant chacun 3 Nom par fichier et en tenant compte que le 2 premieres ligne a savoir:
Mon resultat possede
les noms sont 10 noms:
n'apparaise pas sur le mon premier fichier fhout1 ainsi j'aurai enfin de compte 4 fichiers fhout:
- fhout1 - fhout2 - fhout3 - fhout4
- Name0 - Name3 - Name6 - Name9
- Name1 - Name4 - Name7
- Name2 - Name5 - Name8

J'ai efface perl close(fhin) je m'escuse d'avoir oublier cela.

comme tu l'a demander je m'explique de nouveau J'ai un fichier fhin-CSV (4000 Noms) avec des résultats, chaque ligne a un nom, mais les deux premières lignes de fhin ne doivent pas apparaître dans le fichier de sortie fhout, je veux créer plusieurs pages de fhout, a chaque page doit être mentione 30 noms, ensuite 30 noms sur la prochaine page, et ainsi de suite.

Nicolas j'ai pu regle le probleme

NeoX,
Je suis en Stage j'apprend Perl je ne m'y connais pas avec Perl, je m'y connais un peu plus avec Java, malheuresement ca n'a pas ete facile de trouve un stage en JAva, j'ai eu cette proposition et je ne pouvais refuser, ccar comme je l'ai dit pour obtenir une plce c'est pas facile.
Mon Maitre de stage est un System Administrateur il n'est pas un programmmeur c'est moi qui lui fait meme decouvrir des choses en Perl. Donc s'il te plait ne soit pas fache apres moi. je peu aussi comprendre que toi ou d'autre personne soit un peut dessus des questions que je pose. Comme je l'ai dit je m'y connais dans le developpement de Pages internet en Java.

exactement quand j'ai eu cela j'ai ecrit use wanted mais il la continue a me signaler la mm erreur

#!/usr/bin/perl                      
package wanted;
use strict;
use warnings;
use XML::Twig;   
use Text::CSV;                  
use File::Find;
use wanted;


my $FileResult = $ARGV[1] || 'result.txt'; 
my $FhResult;

my $folder ='.';
my $twig2= XML::Twig->new(    
    twig_handlers => { 
        'Parameter' => sub { 
            my $attr_value = $_->{'att'}->{'value'} // 'fault';  
            print $FhResult $attr_value . ",";
        },
    },
);

File::Find::find({wanted => \&wanted}, 'C:\Users\ADMIN\Documents');
exit;

sub newwanted {
    my ($dev,$ino,$mode,$nlink,$uid,$gid,$name);

    (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
    -f _ &&
    /^.*\.xml\z/s 
    && processXML($name);
}

sub processXML ($) {
    print $FhResult( (split('_', "\n$_",2))[0] . ',' ); 
    $twig2->parsefile($_);
}

open( $FhResult, '>', $FileResult ) or die("Unable to open file $FileResult\n$!");

find({
   wanted   => \&newwanted,
}, $folder);

close $FhResult;

Salut Neox,
j'ai pas correctement saisi les Propositions mais c'est cela que j'essaye de comprendre mais quand j'excecute le code il me revoit une erreur donc je cherche depuis hier une explication clair a cela:
voila l'erreur qu'il me mensione.

C:\Users\ADMIN\Documents>perl new2.pl
Undefined subroutine &wanted::wanted called at C:/strawberry/perl/lib/File/Find.
pm line 691.

je ne sais pas si nous somme entrain de nous comprendre car le code donc jai donne plus haut parse le fichiers-xml, mais pour cela il me faut alle dans mon editor perl ecrire les noms de tous mes fichiers, malheureusement j#en ai des milliers de fichiers-xml, et j'aimerai que ce code soit a mesure de retrouver tous le fichiers se trouvant dans un dossier et en suite naturement les parser, sans toute fois que je met a taper dans mon editor le nom de milliers de fichiers. c'est cela mon probleme.
Le veritable probleme c'est que je possede un Millier de Fichier-XML, si je n'en possedait que 4 ou 6 j'aurai tapez les noms dans mon editor-perl et j'aurai recu un resultat a l'immediat

en quelque sorte je pourrai resume de la sorte:

1-(Perl-script + Fichiers-XML) sauvegarder dans un dossier sur mon Ordi
2- Perl-script cherche les fichiers-XML se trouvant dans le dossier
3- perl-script traite (parser) les fichiers_xml
4- perl-script me retourne le result du parsage.

Teste malheureusement ne fonctione pas

Salut Warwick, malheureusement cela ne fonctione pas je pense qu'il faut que je vous persente a quoi ressemble mon code-perl qui est dans un dossier avec les fichiers-XML comment faire a ce que ce code fonctionne automatiquement sur les fichiers-XML parceque j'en ait plusieurs Milliers de fichiers-xml

#!/usr/bin/perl                      
use strict;
use warnings;
use XML::Twig;   
use Text::CSV;                  

my @files = @ARGV or die 'No files';    
my $FileResult = $ARGV[1] || 'result.csv'; 

#Ausgabedatei wird geöffnet und geprüft

open( my $FhResult, '>', $FileResult ) or die("Unable to open file $FileResult\n$!");
my $twig2= XML::Twig->new(    
        twig_handlers => { 
                'Parameter' => sub { 

                        my $attr_value = $_->{'att'}->{'value'} // 'fault';  
                        print $FhResult $attr_value . ",";
                },
        },
);

print $FhResult( (split('_', "\n$file2",2))[0] . ',' ); 
$twig2->parsefile($file2);

close $FhResult;

je suis desole ca ne fonctione pas, et a propos que veut tu dire avec iname et je pense que c'est *.xml

personne ici ne peut m'aider a resoudre mon problem? j'ai lu les informations sur les lien envoye plus haut malheureusement cela na me permet pas d'avancer

salut de me torture depuis des heures mais je n'avance pas. j'ai deja essaye mais ce ne fonctione pas. je sais une chose il faut utiliser le module File::Find et la subroutine &wanted
en voici un code permetant par exemple de retrouver tous les fichiers donc les noms commence par d et t se trouvant dans un dossier (probe) sur mon ordinanteur. mais il ne m'apporte rien car j'aimerai lasser mon code s'executer sur des milliers de fichiers se trouvant tous dans un meme dossier. Pardon quelqu'un peut-il avoir une idee?

use strict;
use warnings;
use XML::Twig;   
use File::Find;

my $file ='\Users\ADMIN\Documents\probe';

my $FileResult = 'result.txt';
open( my $FhResult, '>', $FileResult )or die ("Unable to open file $FileResult\n$!");

find(\&wanted, $file);

sub wanted {
    print $FhResult  "Found it $File::Find::dir/$_\n" if /^[d or t]/i;
}

Salut
je desire une fois de plus votre aide,
j'ai un Code-Perl qui fonctione sur plusieurs fichiers-XML, mais pour cela je dois donner sur mon editor-perl la commande c: perl code.pl A.xml B.xml C.xml D.xml et j'obtient un resultat, comment faire si je met le tout dans un Odneur avec un millie de fichier-XML et j'aimerai que le code soit a mesure de traiter les fichiers-XML tout seul, sans toute fois donner tous les noms de mes fichiers-XML.

voila le boucin donc je possede, il faut aussi que je mensione que je suis entrain d'apprendre perl
De Larry Wall, Tom Christiansen et Jon Orwant

Merci bien c'etait pourtant tres simple, j'ai fouille mais je ne suis pas tombe decu.
je te remerci infiniment