A voir également:
- Perl: écrire dans un fichier
- Fichier rar - Guide
- Fichier host - Guide
- Téléchargez cette archive (dossier compressé). en extraire tous les fichiers dans un dossier local. quel fichier contient l’expression trouverpix ? ✓ - Forum Windows
- Fichier iso - Guide
- Comment réduire la taille d'un fichier - Guide
1 réponse
Salut,
lami20j@debian:~$ cat fichier.txt
word=ecrire pos=verb priorpolarity=negative
word=abolish pos=verb priorpolarity=negative
lami20j@debian:~$ cat dtd.pl
#!/usr/bin/perl
use strict;use warnings;
my $model='<morpho>
<name>-</name>
<category>=</category>
</morpho>
';
my $fic='fichier.txt';
my $fic2='dtd.txt';
open F, $fic or die "E/S $fic : $!\n";
open FF,">$fic2" or die "E/S $fic2 : $!\n";
while(<F>){
my $res;
next unless /=/;
my @t=split /[\s=]/;
($res=$model)=~s/-/$t[1]/;
$res=~s/=/VER/;
print FF "$res";
}
__END__
lami20j@debian:~$ perl dtd.pl
lami20j@debian:~$ cat dtd.txt
<morpho>
<name>ecrire</name>
<category>VER</category>
</morpho>
<morpho>
<name>abolish</name>
<category>VER</category>
</morpho>