A voir également:
- Perl: écrire dans un fichier
- Denon perl pro test - Guide
- Active perl - Télécharger - Édition & Programmation
- Can't open perl script "makefile.pl": no such file or directory - Forum Perl
- Perl ftp - Forum Perl
- Perl xampp ✓ - Forum Linux / Unix
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>
