нужно составить Regxp что он отличал "word" от "#word" !!
У меня слкдующий код:
if($_ =~ /word/) {
push @A, $_;
}
он мне в тексте вырезает все слова "word" и "#word" а мне нужно точное совпадение, как это написать ?

• Regexp как указать точное совпадение ?,BigHo, 14:45 , 26-Янв-07
  • Regexp как указать точное совпадение ?,BigHo, 14:47 , 26-Янв-07
  • Regexp как указать точное совпадение ?,stan777, 15:16 , 26-Янв-07
    • Regexp как указать точное совпадение ?,BigHo, 15:59 , 26-Янв-07
    • Regexp как указать точное совпадение ?,phpcoder, 15:59 , 26-Янв-07
      • Regexp как указать точное совпадение ?,stan777, 18:22 , 26-Янв-07

>нужно составить Regxp что он отличал "word" от "#word" !!
>У меня слкдующий код:
>if($_ =~ /word/) {

  Наверное "~=" ? "~" после "=" - унитарная операция в большинстве языков.

>push @A, $_;
>}
>он мне в тексте вырезает все слова "word" и "#word" а мне
>нужно точное совпадение, как это написать ?

/^word$/

>  Наверное "~=" ? "~" после "=" - унитарная операция в
>большинстве языков.

ляпнул. Действительно, perl - единственное исключение :)

>>нужно составить Regxp что он отличал "word" от "#word" !!
>>У меня слкдующий код:
>>if($_ =~ /word/) {
>
>  Наверное "~=" ? "~" после "=" - унитарная операция в
>большинстве языков.
>
>>push @A, $_;
>>}
>>он мне в тексте вырезает все слова "word" и "#word" а мне
>>нужно точное совпадение, как это написать ?
>
>/^word$/
это не помогает, тперь он вообще мне не пишет ни одного слова.

>>>нужно составить Regxp что он отличал "word" от "#word" !!
>>>У меня слкдующий код:
>>>if($_ =~ /word/) {
>>
>>  Наверное "~=" ? "~" после "=" - унитарная операция в
>>большинстве языков.
>>
>>>push @A, $_;
>>>}
>>>он мне в тексте вырезает все слова "word" и "#word" а мне
>>>нужно точное совпадение, как это написать ?
>>
>>/^word$/
>это не помогает, тперь он вообще мне не пишет ни одного слова.
>

наверное надо сделать $_ = strip($_); перед этим делом

coder@alt0 ~ $ echo "bla bla word\nblah #word blah" | perl -wnle 'if(/[^#]word/){print "ok"}else{print "not found"}'
ok
not found

>coder@alt0 ~ $ echo "bla bla word\nblah #word blah" | perl -wnle
>'if(/[^#]word/){print "ok"}else{print "not found"}'
>ok
>not found

Я вот сделал так и все работет отлично: /(?<!#)word/ !!!