Leser: 15
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
perl -MDBI -le ' system "ls -l /proc/$$/fd"; my $h=DBI->connect("dbi:Pg:dbname=postgres", "postgres"); die unless $h; system "ls -l /proc/$$/fd"; print "postgres file descriptor=$h->{pg_socket}" ' total 0 lrwx------ 1 postgres postgres 64 2011-01-27 17:45 0 -> /dev/pts/16 lrwx------ 1 postgres postgres 64 2011-01-27 17:45 1 -> /dev/pts/16 lrwx------ 1 postgres postgres 64 2011-01-27 17:45 2 -> /dev/pts/16 lr-x------ 1 postgres postgres 64 2011-01-27 17:45 3 -> pipe:[760699] total 0 lrwx------ 1 postgres postgres 64 2011-01-27 17:45 0 -> /dev/pts/16 lrwx------ 1 postgres postgres 64 2011-01-27 17:45 1 -> /dev/pts/16 lrwx------ 1 postgres postgres 64 2011-01-27 17:45 2 -> /dev/pts/16 lr-x------ 1 postgres postgres 64 2011-01-27 17:45 3 -> socket:[760717] lr-x------ 1 postgres postgres 64 2011-01-27 17:45 4 -> pipe:[760721] postgres file descriptor=3