perl escape chars!

[Giannis Beredimas]

Antonis Faragitakis wrote:

> iparxei autos o kodikas (word macro)
>
> 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


Mallon \r\n einai kai ftaiei ena "/" pou den einai escaped :-P

An pali de bgei akrh dokimase kati san:

if ($string =~ /<NTMMemoryDb>(.+)<Description>.+Archive.+<\/Description>/) {
    $teststring = $1;
    while (length($teststring) > 0) {
        print ord($teststring) . "\n";
        $teststring = substr($teststring,1);
    }      
}

gia na breis poia einai ta charcodes pou psaxneis

Giannis

> distixos den ksero to charcode
>
> kamia idea!?
>
> Filika
> Antonis
>
>
>
>