Perl + expressions régulières
syl
-
syl -
syl -
Bonjour,
SVP pourquoi le programme et expression regul. ci-dessous n'arrive pas a me trouver une ligne telle que :
babil (noun):kinderpraat
************
#!/usr/bin/perl
use strict; #utilise les données déclarées
#use LWP::Simple; check this on man
my $ligne;
my $clean;
my $pos;
my $cleaner;
my $txt;
open(FILEINPUT,"$ARGV[0]") || die "erreur de lecture de fichier :$!";
while ($ligne=<FILEINPUT>){
if ($ligne =~ /^[a-z][a-z]*\s\(.*\)\:[a-z][a-z]*/){
#$clean=$1;
#print $clean;
print "$ligne\n";
}
#$clean=$ligne;
#$clean=~s/"[a-z][a-z]*//g;
#$clean=~s/\^[a-z][a-z]*//g;
}
close(FILEINPUT);
SVP pourquoi le programme et expression regul. ci-dessous n'arrive pas a me trouver une ligne telle que :
babil (noun):kinderpraat
************
#!/usr/bin/perl
use strict; #utilise les données déclarées
#use LWP::Simple; check this on man
my $ligne;
my $clean;
my $pos;
my $cleaner;
my $txt;
open(FILEINPUT,"$ARGV[0]") || die "erreur de lecture de fichier :$!";
while ($ligne=<FILEINPUT>){
if ($ligne =~ /^[a-z][a-z]*\s\(.*\)\:[a-z][a-z]*/){
#$clean=$1;
#print $clean;
print "$ligne\n";
}
#$clean=$ligne;
#$clean=~s/"[a-z][a-z]*//g;
#$clean=~s/\^[a-z][a-z]*//g;
}
close(FILEINPUT);
A voir également:
- Perl + expressions régulières
- Denon perl pro test - Accueil - Audio
- Active perl - Télécharger - Édition & Programmation
- Expressions régulières "ne contient pas ..." ✓ - Forum Programmation
- Expressions francaises - Forum Études / Formation High-Tech
- Perl exec - Forum Perl
par exemple si je fait sur cygwin
perl prog.pl text.txt > sortie.txt
le fichier sortie est vide bien que le fichier text.txt contient les données sur lesquelles je souhaite appliquer le programme.
Merci
open(FILEINPUT,"$ARGV[0]") || die "erreur de lecture de fichier :$!"; while ($ligne=<FILEINPUT>){ print "$ligne"; }affiche bien tout le fichier ?
Toutefois si je reduis l'exp. regul. à /^[a-z][a-z]*/ j'arrive à avoir une sortie ce qui me fait penser que peut être le problème commence sur \s dans cette expression regul.
/^[a-z][a-z]*\s\(.*\)\:[a-z][a-z]*/
essaye de remplacer, dans le script et dans le fichier \s et l'espace par X
essayer aussi ( plutot que \(
Par exemple sur une ligne comme:
babiller (verb):babbelen;kleppen;kletsen" bébé(noun):brabbelen
Pour avoir
babiller (verb): babbelen
babiller (verb): kleppen
babiller (verb): kletsen
babiller (noun):brabbelen
Aurais vous une idée comment je peux proceder, si je peux utilier "if" les expressions regul. un tableau?