qwurx [shmem] ~> perl
open $fh, "+>", undef or die "Can't create anonymous storage: $!";
$file = "/proc/$$/fd/" . fileno $fh;
print "$file => ", readlink( $file ), $/;
__END__
/proc/26628/fd/3 => /tmp/PerlIO_eVAtFg (deleted)
On systems which lack /proc/$$/fd it can be quite annoying to find out, specially when the file system is full and a process is just sitting around in IOWAIT. In this condition there's a difference between disk usage of device and file system. Found that on an old Solaris server running a program which employed this trick: create file, get handle, unlink. Took me some time to find out.
perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'
|