On Thu, Oct 21, 2010 at 19:18, Michael Shadle <mike...@gmail.com> wrote:
> Don't let it die like Perl has! (ha, ha)

<?php
$perl =<<<'PERL'
#!/usr/bin/perl

my $pun = $?;
die "Great pun!" unless $pun = 0;

PERL;

$filename = dirname(__FILE__).'/tmp-'.sha1(time()).'.pl';

file_put_contents($filename,$perl);
chmod($filename,0755);

/**
 * ;-P
 */
echo `$filename`.PHP_EOL;

unlink($filename);
?>

-- 
</Daniel P. Brown>
Network Infrastructure Manager
Documentation, Webmaster Teams
http://www.php.net/

-- 
PHP General Mailing List (http://www.php.net/)
To unsubscribe, visit: http://www.php.net/unsub.php

Reply via email to