Файловый менеджер

Файловый менеджер - Редактировать - /usr/share/doc/perl-Regexp-Assemble-0.35/eg/hostmatch/hostmatch

Назад
/usr/bin/perl -w # # hostmatch -- determine whether a DNS hostname matches a regular expression # use strict; use Regexp::Assemble; my $ra = Regexp::Assemble->new(chomp=>1)->add( <DATA> ); open GOOD, '>good.out' or die "Cannot open good.out for output: $!\n"; open BAD, '>bad.out' or die "Cannot open bad.out for output: $!\n"; my( $good, $bad ) = (0, 0); while( <> ) { chomp; if( /^$ra$/ ) { ++$bad; } else { print GOOD "$_\n"; ++$good; } } close GOOD; close BAD; print "$good good record(s), $bad bad record(s), $. total\n"; __DATA__ m\d+-\d+-\d+-\d+\.andorpac\.ad de\d+\.alshamil\.net\.ae \d+-\d+-\d+-\d+\.fibertel\.com\.ar ol\d+-\d+\.fibertel\.com\.ar host\d+\.\d+\.\d+\.\d+\.ifxnw\.com\.ar int-\d+-\d+-\d+-\d+\.movi\.com\.ar host-\d+\.\d+\.\d+\.\d+-ta\.adsl\.netizen\.com\.ar dsl-\d+-\d+-\d+-\d+\.users\.telpin\.com\.ar \d+-\d+-\d+-\d+\.bbt\.net\.ar \d+-\d+-\d+-\d+\.prima\.net\.ar \d+-\d+-\d+-\d+\.cab\.prima\.net\.ar \d+-\d+-\d+-\d+\.dsl\.prima\.net\.ar \d+-\d+-\d+-\d+\.dup\.prima\.net\.ar \d+-\d+-\d+-\d+\.dup\.prima\.net\.ar \d+-\d+-\d+-\d+\.wll\.prima\.net\.ar host\d+\.\d+-\d+-\d+\.telecom\.net\.ar chello\d+\.\d+\.sc-graz\.chello\.at \d+-\d+-\d+-\d+\.dynamic\.home\.xdsl-line\.inode\.at \d+-\d+-\d+-\d+\.paris-lodron\.xdsl-line\.inode\.at h\d+\.dyn\.cm\.kabsi\.at h\d+\.med\.cm\.kabsi\.at h\d+\.moe\.cm\.kabsi\.at cm\d+-\d+\.liwest\.at \d+-\d+-\d+-\d+\.pircher\.at \d+-\d+-\d+-\d+\.dyn\.salzburg-online\.at chello\d+\.\d+\.graz\.surfer\.at chello\d+\.\d+\.klafu\.surfer\.at chello\d+\.tirol\.surfer\.at chello\d+\.\d+\.\d+\.vie\.surfer\.at d\d+-\d+-\d+-\d+\.cust\.tele\d+\.at m\d+p\d+\.adsl\.highway\.telekom\.at n\d+p\d+\.adsl\.highway\.telekom\.at l\d+p\d+\.dipool\.highway\.telekom\.at chello\d+\.\d+\.\d+\.univie\.teleweb\.at chello\d+\.\d+\.\d+\.wu-wien\.teleweb\.at dsl-linz\d+-\d+-\d+\.utaonline\.at dialup-\d+\.syd\.ar\.com\.au dialup-\d+\.\d+\.\d+\.\d+\.acc\d+-ball-lis\.comindico\.com\.au dialup-\d+\.\d+\.\d+\.\d+\.acc\d+-mcmi-dwn\.comindico\.com\.au dsl-\d+\.\d+\.\d+\.\d+\.dsl\.comindico\.com\.au \d+-\d+-\d+-\d+\.netspeed\.com\.au blaax\d+-a\d+\.dialup\.optusnet\.com\.au chtax\d+-\d+\.dialup\.optusnet\.com\.au lonax\d+-b\d+\.dialup\.optusnet\.com\.au rohax\d+-\d+\.dialup\.optusnet\.com\.au wayax\d+-\d+\.dialup\.optusnet\.com\.au winax\d+-\d+\.dialup\.optusnet\.com\.au wooax\d+-b\d+\.dialup\.optusnet\.com\.au d\d+-\d+-\d+-\d+\.dsl\.nsw\.optusnet\.com\.au c\d+-\d+-\d+-\d+\.eburwd\d+\.vic\.optusnet\.com\.au c\d+-\d+-\d+-\d+\.lowrp\d+\.vic\.optusnet\.com\.au \d+\.fip-\d+\.permisdn\.ozemail\.com\.au \d+-\d+-\d+-\d+-bri-ts\d+-\d+\.tpgi\.com\.au \d+-\d+-\d+-\d+-vic-pppoe\.tpgi\.com\.au \d+-\d+-\d+-\d+\.tpgi\.com\.au dar-\d+k-\d+\.tpgi\.com\.au sou-ts\d+-\d+-\d+\.tpgi\.com\.au ains-\d+-\d+-\d+-\d+\.ains\.net\.au cpe-\d+-\d+-\d+-\d+\.nsw\.bigpond\.net\.au cpe-\d+-\d+-\d+-\d+\.qld\.bigpond\.net\.au cpe-\d+-\d+-\d+-\d+\.sa\.bigpond\.net\.au cpe-\d+-\d+-\d+-\d+\.vic\.bigpond\.net\.au cpe-\d+-\d+-\d+-\d+\.wa\.bigpond\.net\.au ppp-\d+\.cust\d+-\d+-\d+\.ghr\.chariot\.net\.au adsl-\d+\.cust\d+-\d+-\d+\.qld\.chariot\.net\.au \d+-\d+-\d+-\d+\.dyn\.iinet\.net\.au \d+\.a\.\d+\.mel\.iprimus\.net\.au \d+\.b\.\d+\.pth\.iprimus\.net\.au \d+\.a\.\d+\.sop\.iprimus\.net\.au r\d+-\d+-\d+-\d+\.cpe\.unwired\.net\.au dial-\d+\.\d+\.\d+\.\d+\.cotas\.com\.bo \d+-dial-user-ecp\.acessonet\.com\.br \d+-\d+-\d+-\d+\.corp\.ajato\.com\.br \d+\.\d+\.\d+\.\d+\.user\.ajato\.com\.br \d+-\d+-\d+-\d+\.user\.ajato\.com\.br \d+\.\d+\.\d+\.\d+\.user\.ajato\.com\.br cm-net-cwb-c[\da-f]+\.brdterra\.com\.br cm-net-poa-c[\da-f]+\.brdterra\.com\.br cm-tvcidade-rec-c[\da-f]+\.brdterra\.com\.br cm-tvcidade-ssa-c[\da-f]+\.brdterra\.com\.br cm-virtua-fln-c[\da-f]+\.brdterra\.com\.br cm-virtua-poa-c[\da-f]+\.brdterra\.com\.br net-\d+-\d+\.cable\.cpunet\.com\.br \d+-\d+-\d+\.xdsl-dinamico\.ctbcnetsuper\.com\.br \d+-\d+-\d+\.xdsl-fixo\.ctbcnetsuper\.com\.br dl-nas\d+-poa-c[\da-f]+\.dialterra\.com\.br \d+-\d+-\d+-\d+\.brt\.dialuol\.com\.br \d+-\d+-\d+-\d+\.tlf\.dialuol\.com\.br \d+-\d+-\d+-\d+\.tlm\.dialuol\.com\.br \d+-\d+-\d+-\d+\.rev\.easyband\.com\.br max-\d+-\d+-\d+\.nwnet\.com\.br \d+-\d+-\d+-\d+\.papalegua\.com\.br adsl\d+c\d+\.sercomtel\.com\.br \d+\.user\.veloxzone\.com\.br \d+\.virtua\.com\.br \d+\.bhz\.virtua\.com\.br [\da-f]+\.bhz\.virtua\.com\.br [\da-f]+\.rjo\.virtua\.com\.br [\da-f]+\.soc\.virtua\.com\.br [\da-f]+\.virtua\.com\.br \d+\.rjo\.virtua\.com\.br bhe\d+\.res-com\.wayinternet\.com\.br \d+-\d+-\d+-\d+\.mganm\d+\.dial\.brasiltelecom\.net\.br \d+-\d+-\d+-\d+\.pmjce\d+\.dial\.brasiltelecom\.net\.br \d+-\d+-\d+-\d+\.pnisir\d+\.dial\.brasiltelecom\.net\.br \d+-\d+-\d+-\d+\.pvoce\d+\.dial\.brasiltelecom\.net\.br \d+-\d+-\d+-\d+\.sance\d+\.dial\.brasiltelecom\.net\.br \d+-\d+-\d+-\d+\.bnut\d+\.dsl\.brasiltelecom\.net\.br \d+-\d+-\d+-\d+\.bsace\d+\.dsl\.brasiltelecom\.net\.br \d+-\d+-\d+-\d+\.cbabm\d+\.dsl\.brasiltelecom\.net\.br \d+-\d+-\d+-\d+\.cpece\d+\.dsl\.brasiltelecom\.net\.br \d+-\d+-\d+-\d+\.cslce\d+\.dsl\.brasiltelecom\.net\.br \d+-\d+-\d+-\d+\.ctame\d+\.dsl\.brasiltelecom\.net\.br \d+-\d+-\d+-\d+\.gnace\d+\.dsl\.brasiltelecom\.net\.br \d+-\d+-\d+-\d+\.jvece\d+\.dsl\.brasiltelecom\.net\.br \d+-\d+-\d+-\d+\.nhoce\d+\.dsl\.brasiltelecom\.net\.br \d+-\d+-\d+-\d+\.paemt\d+\.dsl\.brasiltelecom\.net\.br \d+-\d+-\d+-\d+\.pltce\d+\.dsl\.brasiltelecom\.net\.br \d+-\d+-\d+-\d+\.pvoce\d+\.dsl\.brasiltelecom\.net\.br \d+-\d+-\d+-\d+\.smace\d+\.dsl\.brasiltelecom\.net\.br \d+-\d+-\d+-\d+\.smace\d+\.e\.brasiltelecom\.net\.br \d+-\d+-\d+-\d+\.dialdata\.net\.br \d+\.\d+\.\d+\.\d+\.dialup\.gvt\.net\.br \d+\.\d+\.\d+\.\d+\.tbprof\.gvt\.net\.br \d+-\d+-\d+-\d+\.customer\.telesp\.net\.br \d+-\d+-\d+-\d+\.dial-up\.telesp\.net\.br \d+-\d+-\d+-\d+\.dsl\.telesp\.net\.br

| ver. 1.4 | Github | . | PHP 8.3.30 | Генерация страницы: 0.02 | proxy | phpinfo | Настройка