perl escape chars!

[Apollon Koutlides]

Antonis Faragitakis wrote:

> Apollon Koutlides wrote:
>
>> Antonis Faragitakis wrote:
>
[coup-de-snip]

>>> iparxei autos o kodikas (word macro)
>>
>> !!! ...no comments
>>
>>>
>>> With Selection.Find
>>>        .Text = 
>>> "<NTMMemoryDb>^p<Description>^pArchive^p</Description>^p"
>>>        .Replacement.Text = ""
>>>   End With
>>>
>>> o opios opou brei:
>>>
>>> <NTMMemoryDb>
>>> <Description>
>>> Archive
>>> </Description>
>>>
>>> to kanei replace me tipota, to sbini diladi.
>>>
>>> se perl egrapsa to 
>>> s/<NTMMemoryDb>\n<Description>\nArchive\n</Description>\n//; alla 
>>> tipota, to idio isxi kai gia to \r\n kai \r
>>> distixos den ksero to charcode
>>>
>>> kamia idea!?
>>
>> Ναι, δοκίμασε να κάνεις backslash-escape το forward-slash στο 
>> "</Description>". Θα πρότεινα και ένα s option στο τέλος του 
>> substitution sequence (μετά το τελευταίο forward-slash).
>> Πριν από αυτό "λύσε" το ζήτημα του πιθανού CRLF κάνοντας ένα 
>> s/\r\n/\n/gs (εκτός και αν σου χαλάει τη σούπα το vanilla CR line 
>> termination)
>
> oxi den mou xalaei tin soupa to s!\r\n!\n!gs;
> episis s!<NTMMemoryDb>\n<Description>\nArchive\n</Description>\n!!; 
> opote no problem me </Description>
> (sorry pou den enefera to s!!!; proigoumenos)
> alla kai pali tipotis!

ΚΜΕΚ(tm). Χρησιμοποιώντας forward-slashes κανονικά και με το νόμο και με 
το αναφερθέν escaping το δικό μου test run έτρεξε λείο σα μετάξι και 
έβγαλε και το επιθυμητό αποτέλεσμα, τόσο σε UNIX-format textfile όσο και 
σε DOS-format.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: apollon.vcf
Type: text/x-vcard
Size: 348 bytes
Desc: not available
URL: <http://lists.hellug.gr/pipermail/linux-greek-users/attachments/20050819/821d16d4/attachment.vcf>