I'm trying to pass a variable that has a period in it through a socket and keep losing the period and anything that follows.
Here is a SCALED DOWN version of my program
$errfile come in from the command line as /home/username/file.dat
When I read $arg on the Client side it contains /home/username/file ( the .dat is missing)
#On Master ( Sending side )
my $errfile = shift;
select(Server);
$| = 1;
print Server "userfile $errfile\n";
my ($servanswer) = <Server>;
#On Client ( Receiving side )
sub userfile
{
$usererr = "ok";
my $arg = shift || die;
print Client "$arg";
close (Client);
}
Here is a SCALED DOWN version of my program
$errfile come in from the command line as /home/username/file.dat
When I read $arg on the Client side it contains /home/username/file ( the .dat is missing)
#On Master ( Sending side )
my $errfile = shift;
select(Server);
$| = 1;
print Server "userfile $errfile\n";
my ($servanswer) = <Server>;
#On Client ( Receiving side )
sub userfile
{
$usererr = "ok";
my $arg = shift || die;
print Client "$arg";
close (Client);
}