A voir également:
- Perl: écrire dans un fichier
- Denon perl pro test - Accueil - Audio
- Active perl - Télécharger - Édition & Programmation
- Perl foreach ✓ - Forum Perl
- Perl substitution ✓ - Forum Perl
- [Perl] WWW::Mechanize - Forum Perl
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>