porovnavani inet masky

[Jindra Vavruska]

Dne Po, 18 zář 2000 jste napsal(a):

...

> a to ja prave potrebuji, napr. v jedom txt mam adresu ?anek@*.lipniknb.* (je
> jich tam vice, a potrebuji aby sedela alespon jedna) a potrebuji ji porovnat
> s janek na isse.lipniknb.cz jestli to sedi

aha. a co tohle (TXT = soubor se vzory, $_ aktualne hledana adresa napr.
janek na isse.lipniknb.cz):

     if( $vzor = <TXT> ) {
         $vzor =~ s/(\@|\.)/\\$1/g ; # prida uvozovaci '\' pred vsechny '@' a '.'
         $vzor =~ s/\?/.?/g ;   # nahradi vsechny '?' '.?' 
         $vzor =~ s/\*/.*/g ;   # nahradi vsechny '*' '.*'
         $Ok=1 if m/$vzor/i ;   # pouzije regularni vyraz ulozeny ve $vzor
                                # jako vzor pro porovnani, $Ok indikuje shodu
     }
> 
> >
> > Jinak myslim, ze "net maska" se rika necemu jinemu (opravi mne nekdo?)
> 
> myslim ze se tomu presne rika hostmaska (pouziva se na siti irc tvar:
> nick!ident na pocitac)

Tak zase vim neco noveho ;-)

-- 
Jindra Vavruska (OK1FOU)

use perl ;