Prev: Cygwin error regarding profile.global
Next: CPAN - 'cl' is not recognized as an internal or externalcommand,
From: David Squire on 2 Sep 2006 14:30
Truty wrote:
> David Squire avait ?crit le 02/09/2006 :
>> next if !($carac_available && $carac_notavailable);
>
> but with this line I haven't all words result, because
> $carac_available is empty and $carac_notavailable isn't empty
> or
> $carac_available isn't empty and $carac_notavailable is empty
>
>

Well, I can't guess your requirements, you know :) Are both situations
relevant? What do you want to do in each case, i.e. under what
conditions is a word considered valid if one of these strings is empty?


DS
From: Truty on 2 Sep 2006 14:44
David Squire a pr?sent? l'?nonc? suivant :
> Truty wrote:
>> David Squire avait ?crit le 02/09/2006 :
>>> next if !($carac_available && $carac_notavailable);
>>
>> but with this line I haven't all words result, because
>> $carac_available is empty and $carac_notavailable isn't empty
>> or
>> $carac_available isn't empty and $carac_notavailable is empty
>>
>>
>
> Well, I can't guess your requirements, you know :) Are both situations
> relevant? What do you want to do in each case, i.e. under what conditions is
> a word considered valid if one of these strings is empty?
>
>
> DS

a word is valid if this word contain all caracteres in $carac_available
and no caracteres of $carac_notavailable
but at the begining, the code don't working because $carac_available or
$carac_notavailable could be empty.


From: David Squire on 2 Sep 2006 14:56
Truty wrote:
> David Squire a pr?sent? l'?nonc? suivant :
>> Truty wrote:
>>> David Squire avait ?crit le 02/09/2006 :
>>>> next if !($carac_available && $carac_notavailable);
>>>
>>> but with this line I haven't all words result, because
>>> $carac_available is empty and $carac_notavailable isn't empty
>>> or
>>> $carac_available isn't empty and $carac_notavailable is empty
>>
>> Well, I can't guess your requirements, you know :) Are both situations
>> relevant? What do you want to do in each case, i.e. under what
>> conditions is a word considered valid if one of these strings is empty?
>>
>
> a word is valid if this word contain all caracteres in $carac_available
> and no caracteres of $carac_notavailable

Yes, that was already clear. The question is, what do you want to do in
the special cases where the strings are empty? If $carac_available is
empty, does that mean that any word is OK so long as it does not contain
any characters from $carac_notavailable?

I think I can guess the behaviour you want. If I am right, this will do it:

----

#!/usr/bin/perl

use strict;
use warnings;

my $carac_available = 'eo';
my $carac_notavailable = 'hydngp';

while (my $ligne = <DATA>) {
chomp $ligne;
my $contains_all_carac_available = 1;
if ($carac_available) { # if $carac_available is empty, then there
# are no compulsory characters
$contains_all_carac_available &= ($ligne =~ /$_/) for split //,
$carac_available;
}
if (
($contains_all_carac_available
&& (!$carac_notavailable # if $carac_notavailable is empty,
# then all characters are OK
|| $ligne !~ /[$carac_notavailable]/
)
)
) {
print $ligne." | ";
}
}

----


DS
From: Mumia W. on 3 Sep 2006 02:19
On 09/02/2006 11:24 AM, Truty wrote:
>
> Ok, this [David Squire's] reply interest me but if __DATA __ content this :
> doing
> close
> sunny
> drugs
> mouve
> botts
>
> my output will be this :
> close | mouve |
>
> and not :
> close | mouve | botts |
>
> because botts haven't 'e' caracteres.
> [...]
>

I didn't use the DATA section, but you'll get the idea:


use strict;
use warnings;
my $carac_available = 'eo';
my $carac_notavailable = 'hydngp';
my $dico_txt = q{
doing
close
sunny
drugs
mouve
botts
};

my ($ca, $cn) = ($carac_available, $carac_notavailable);
open (FH, '<', \$dico_txt) or die("Oops:$!\n");

while (my $line = <FH>) {
next unless $line =~ m/(\w+)/;
my ($word) = ($1);

if (length($ca) == scalar(map $word =~ m/$_/, split //,
$ca)) {
unless ($word =~ m/[$cn]/) {
print "$word\n";
}
}

}

close (FH);



From: Klaus on 4 Sep 2006 13:33
Truty wrote:
> Hi,
>
> Please help me,
> I would like to realise a filtre to select only word in file with
> caracteres include into this variable $carac_available;
> but not caracteres include into this variable $carac_notavailable;
>
> my name file is "dico.txt"
>
> sample with $carac_available = 'eo'; and $carac_notavailable =
> 'hydngp';
> word selected : close, mouve, ... because 'o' and 'e' is include into
> this words and 'h', 'y', 'd', 'n', 'g', 'p' is not include into this
> words.
>
> content dico.txt :
> doing
> close
> sunny
> drugs
> mouve
> ...
>
>
> my code with problem :
> open (FILE_ANSWER,"dico.txt.txt");
> while ($ligne = <FILE_ANSWER>) {
> chomp($ligne);
> if (($ligne =~ \[$carac_available]\) && ($ligne !~
> \[$carac_notavailable]\) ) { print $ligne." | "; }
> }
> close FILE_ANSWER;

Here is a program:
====================================
use strict;
use warnings;

my $carac_available = 'eo';
my $carac_notavailable = 'hydngp';

open my $FILE_ANSWER, '<', 'dico.txt' or die "Error <dico.txt ($!)";

while (my $ligne = <$FILE_ANSWER>) {
chomp($ligne);
if ($ligne =~ /[\Q$carac_available\E]/
and $ligne !~ /[\Q$carac_notavailable\E]/) {
print $ligne, ' | ';
}
}

close $FILE_ANSWER;
====================================

here is the content of 'dico.txt':
====================================
doing
close
sunny
drugs
mouve
====================================


and here is the ouput:
====================================
close | mouve |
====================================

First  |  Prev  | 
Pages: 1 2 3 4 5
Prev: Cygwin error regarding profile.global
Next: CPAN - 'cl' is not recognized as an internal or externalcommand,