Call us: +44 20 8720 6583

Contact Us: contact@podtech.com

Contact Us
Contact Us
PODTECH

Blogs

Stay ahead with the latest trends in custom software development. Explore how AI, automation, and cloud solutions are shaping the future of business technology.

send: Cannot determine peer address

Looking into IO::Socket at http://search.cpan.org/src/GBARR/IO-1.2301/IO/Socket.pm reveals: [perl] sub send { @_ >= 2 && @_ <= 4 or croak ‘usage: $sock->send(BUF, [FLAGS, [TO]] +)’; my $sock = $_[0]; my $flags = $_[2] || 0; my $peer = $_[3] || $sock->peername; croak ‘send: Cannot determine peer address’ unless($peer); [/perl] So you have to take care that […]
Continue Reading

Perl – Is a value decimal, real or a string?

Perl – Is a value decimal, real or a string? To validate if a number is a number using regex. [perl] $number = “12.3”; if ($number =~ /\D/) { print “has nondigits\n” } if ($number =~ /^\d+$/) { print “is a whole number\n” } if ($number =~ /^-?\d+$/) { print “is an integer\n” } if […]
Continue Reading

Perl – Basic Fork Example

#!/usr/local/bin/perl   use strict; use warnings;   print "Starting main program\n"; my @childs;   for ( my $count = 1; $count <= 10; $count++) {         my $pid = fork();         if ($pid) {         # parent         #print "pid is $pid, parent $$\n";         push(@childs, $pid);         } elsif ($pid == 0) {                 # child                 sub1($count);                 exit 0;         } else […]
Continue Reading

PHP – Basic Fork Example

<?   print "Starting main program\n"; $childs = array();   for ( $count = 1; $count <= 10; $count++) {         $pid = pcntl_fork();         if ( $pid == -1 ) {                 // Fork failed                           echo "Fork failed\n";                 exit(1);         } else if ( $pid ) {                 # parent                 #print "pid is $pid, parent $$\n";                 array_push($childs, $pid);         } […]
Continue Reading
,

UNIX – Fork Explained

Mr. Peabody Explains fork() Introduction How Windows Does It How Unix Does It So Why Do People Want the Unix Way? How does it work in Perl? Introduction UNIX – Fork Explained Say, Mr Peabody. I was just reading through the Perl 5.6 release notes and noticed that a new function called fork() is now […]
Continue Reading