regular expression

[Panayotis Tsiamis]

Sorry gia to 3 sinexomeno post paidia alla sto paste kolisa
ti proigoumeni grami pou eixe kratisei o pontikas mou :(

To sosto regular expresion einai:
echo 'axel-m-a-n' |perl -e 'while (<>) { if  (!/--+/) {print $_;}}'

Pou simenei otan breis 2 '-' kai parapano stilta ston kirio /dev/null


Panayotis Tsiamis wrote:

> Akiro to proigoumeno pezei mono me 2 '-'
> To sostotero an thes na kratiseis string me ena '-':
>
> echo 'axel-m-a---n' |perl -e 'while (<>) { if (! /-+/) {print $_;}}'
>
> Panayotis Tsiamis wrote:
>
>> echo 'axel-m-a--n' | sed 's/--/FOUND/g'|grep -v FOUND
>>
>> Giati to kalo to palikari xeri kai allo arapi me kalo sapouni!!!
>>
>>
>> axel maroudas wrote:
>>
>>>
>>>> Αυτό δε σου κάνει...
>>>>
>>>>        -[^-]
>>>>  
>>>>
>>> Distixos den kani. Otan to valo mazi me xaraktires distixos i dio 
>>> pavles pernane. px ([a-z]+-[^-][a-z]+)* to axel--mangr to afini na 
>>> perasi
>>>
>>> axelmangr
>>>
>>> ____________________________________________________________________
>>> http://www.freemail.gr - δωρεάν υπηρεσία ηλεκτρονικού ταχυδρομείου.
>>> http://www.freemail.gr - free email service for the Greek-speaking.
>>>
>>>
>>
>>
>
>
>