N
UP!
Привет всем, закидываю повторно, нужна помощь (не за бесплатно) надо перекодить 6.5кб PERL с сетевыми функциями в паскаль. Под ICSv844
Вот маленькая вырезка кода:
sub writeFile
{
my ($host, $src, $dst) = @_;
my ($total, $percent);
my $s = IO::Socket::INET->new(PeerAddr => $host, PeerPort => DEFAULT_PORT,
Proto => 'tcp') or die;
Кто шарит в PERL и готов помочь, предложения пишите в личку, по оплате договоримся.
Привет всем, закидываю повторно, нужна помощь (не за бесплатно) надо перекодить 6.5кб PERL с сетевыми функциями в паскаль. Под ICSv844
Вот маленькая вырезка кода:
sub writeFile
{
my ($host, $src, $dst) = @_;
my ($total, $percent);
my $s = IO::Socket::INET->new(PeerAddr => $host, PeerPort => DEFAULT_PORT,
Proto => 'tcp') or die;
Кто шарит в PERL и готов помочь, предложения пишите в личку, по оплате договоримся.
