Perl ;
print { open my $out, ">", "pidfile"; $out or die } $$, "n";
Рубин ;
File.open('pidfile', 'w+'){ |fh| fh.puts Process.pid }
File.open('pidfile', 'w+'){ |fh| fh.puts Process.pid }
Я мог бы использовать «$$» вместо Process.pid, но я предпочитаю удобочитаемость
PHP;
file_put_contents( 'pidfile', getmypid() );
file_put_contents( 'pidfile', getmypid() );
Да, я знаю, я знаю, но в любом случае …