IO::Socket::Socks lè tẹ́ ìpààrọ̀ SOCKS jáde nígbà tí ìsopọ̀ bá kùnà. Sọ proxy, ibi ìlọ àti àṣàyàn àtúnṣe ní kedere:

use IO::Socket::Socks;

my $socket = IO::Socket::Socks->new(
    ProxyAddr   => 'proxy.example',
    ProxyPort   => 1080,
    ConnectAddr => 'www.example.com',
    ConnectPort => 80,
    SocksVersion => 5,
    SocksDebug  => 1,
    Timeout     => 10,
) or die $SOCKS_ERROR;

$socket->close();

Mọ́dùùlù náà ṣàlàyé SocksDebug gẹ́gẹ́ bí ohun tí ń fi ìrìnàjò SOCKS hàn ní ọ̀nà tí ó dá lórí ìlànà. Lò ó láti rí bí ìjíròrò ti lọ jìnnà tó àti láti yẹ kóòdù ìkùnà SOCKS tí a dá padà wò.

ProxyAddr àti ProxyPort ń dámọ̀ alárinà. Àdírẹ́sì tí kò ní ìjẹ́rìí láti àkójọ proxy SOCKS5 lè kún àwọn pápá wọ́n fún ìdánwò HTTP gbogbogbò tí a gbà láàyè. ConnectAddr àti ConnectPort ń dámọ̀ iṣẹ́ tí ó yẹ kí ó sopọ̀ mọ́. Àṣìṣe láti dé ọ̀dọ̀ olùgbọ́ àti ìdáhùn ìsopọ̀ SOCKS tí kò dára jẹ́ akiyesi méjì tí ó yàtọ̀.

Fún proxy tí ó nílò ìjẹ́rìí orúkọ olùlò/ọ̀rọ̀ ìpamọ́ SOCKS5, àwọn pápá olùdá tí a kọ sílẹ̀ ní AuthType => 'userpass', Username àti Password.

Olùdá dídènà tí ó ṣàṣeyọrí ń gbé ìsopọ̀ SOCKS kalẹ̀, nígbà tí ìbéèrè ohun èlò nípasẹ̀ sọ́kẹ́tì tí a dá padà ń pèsè àbájáde ohun èlò tí ó tẹ̀lé. Fún ibi HTTPS, fi TLS ibi tí a ti ṣàyẹ̀wò kún lẹ́yìn SOCKS kí o tó fi ìbéèrè ìlànà yẹn ránṣẹ́. Ka àbájáde àtúnṣe sí ohun tí ó ní ìtẹ́ńbẹ́lẹ́ nígbà tí àwọn ẹ̀rí ìdánimọ̀ bá kópa.

Àwọn àpilẹ̀kọ tó jọra