in reply to STDOUT changing descritpors

  *STDIN = $c; # $c is child socket

[download]

Well, no wonder you have problems. Using symbol table globs to copy around file handles is usually a pretty bad idea, in my experience.

I can't figure out how to ensure that I always open fileno 1

open covers this. You close fileno 1 and then immediately reopen STDOUT and Perl even goes to a little extra effort to make sure fileno 1 is what you get (and this is documented). But ">&=" doesn't "open" any file descriptors, it causes a file handle to be associated with an already-open file descriptor. You want ">&" instead (which dup()s a file descriptor).

There is even an example of how to redirect STDOUT and STDERR (and then restore them) in the open documentation. To do STDIN andn STDOUT and not worry about restoring them, you should use something like: 

    open( STDIN,  "<&".fileno($c) ) # also closes old STDIN
        or  die "Can't redirect STDIN from socket: $!\n";
    open( STDOUT, ">&".fi­leno($c) ) # also closes old STDOUT
        or  die "Can't redirect STDOUT to socket: $!\n";

[download]

- tye        

Replies are listed 'Best First'.
Re^2: STDOUT changing descritpors (open, no =)
by suaveant (Parson) on Sep 02, 2004 at 18:33 UTC
    Excellent... that seems to fix the STDOUT problem... but when I do that for STDIN it does not seem to work. 
      open(STDIN,"<&".fileno($c)) or die;
  print STDERR "STDIN: ",<STDIN>;
  print STDERR "\$c: ",<$c>;

    [download]
    gives me: 
    20040902 14:15:45 STDIN: 
20040902 14:15:45 $c:  fcl_userid=d4ants&fcl_password=hidden&referer=&
+fcl_login_submit=Login

    [download]
    very strange. This I can deal with.. the STDOUT was the more important thing, STDIN would just be a nice thing to get working.

    I had manged to get it working using POSIX::dup2 and POSIX::close... but this seems much nicer :)

    Thanks!

                    - Ant
                    - Some of my best work - (1 2 3)

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom