Forkbomb.pl

Alex McLean

#!/usr/bin/perl

 

no warnings;

my $strength = $ARGV[0] + 1;

while (not fork) {

exit unless –$strength;

print 0;

twist: while (fork) {

exit unless –$strength;

print 1;

}

}

goto ‘twist’ if –$strength;

Posted in in/compatible Research Category

News

Our next issue - Research Values - is coming soon.

Share

Share on FacebookTweet about this on TwitterShare on Google+Share on LinkedInShare on RedditEmail this to someone