comment on

This is my first CUFP. (You have to do something when you get bored at work..) If you have any suggestions, I'm sure you do, feel free. This is sure to be a hit with Sys Admins and BOfH lovers alike. To come in future releases...:

- Automated web-based tech support
- and Bulk-Eraser function:

print "You would like more space?";
print "What did you say your username was? ";
while (<>) {
     rm -rf /home/$_
}
print "You should have plenty of space now!";

BOfH.pl:

#!/usr/bin/perl -w
############################################
# BOfH Random Excuse Generator
# Word list from the BOfH Excuse board
# [http://bofh.ntk.net/ExcuseBoard.html]
# Copyright 2001, Simon Travaglia
#
# BOfH stories @ :
# http://www.theregister.co.uk/content/30
# and http://bofh.ntk.net/Bastard.html
#
#
# perl by mexnix [http://mexnix.perlmonk.org
############################################

use strict;

my @words1 = qw(Temporary    Intermittant    Partial 
           Redundant    Total        Multiplexed
           Inherent        Duplicated    Dual-Homed
           Synchronous    Bidirectional    Serial
           Asynchronous    Multiple    Replicated
           Non-Replicated    Unregistered    Non-Specific
           Generic        Migrated    Localised
           Resignalled    Dereferenced    Nullified
           Aborted        Serious        Minor
           Major        Extraneous    Illegal
           Insufficient    Viral        Unsupported
           Outmoded        Legacy        Permanent
           Invalid        Deprecated    Virtual
           Unreportable    Undetermined    Undiagnosable
           Unfiltered    Static        Dynamic
           Delayed        Immediate    Nonfatal
           Fatal        Non-Valid    Unvalidated
           Non-Static    Unreplicatable    Non-Serious);

my @words2 = qw(Array        Systems        Hardware
           Software        Firmware    Backplane
           Logic-Subsystem    Integrity    Subsystem
           Memory        Comms        Integrity
           Checksum        Protocol    Parity
           Bus        Timing        Synchronisation
           Topology        Transmission    Reception
           Stack        Framing        Code
           Programming    Peripheral    Environmental
           Loading        Operation    Parameter
           Syntax        Initialisation    Execution
           Resource        Encryption    Decryption
           File        Precondition    Authentication
           Paging        Swapfile    Service
           Gateway        Request        Proxy
           Media        Registry    Configuration
           Metadata        Streaming    Retrieval
           Installation    Library        Handler);

my @words3 = qw(Interruption    Destabilisation    Destruction
           Desynchronisation Failure    Dereferencing
           Overflow        Underflow    NMI
           Interrupt    Corruption    Anomoly
           Seizure        Override    Reclock
           Rejection    Invalidation    Halt
           Exhaustion    Infection    Incompatibility
           Timeout        Expiry        Unavailability
           Bug        Condition    Crash
           Dump        Crashdump    Stackdump
           Problem        Lockout);

# Optional 4th word
my @words4 = qw(Error        Problem        Warning
           Signal        Flag);

my $word1 = $words1[rand(scalar(@words1))];
my $word2 = $words2[rand(scalar(@words2))];
my $word3 = $words3[rand(scalar(@words3))];
my $word4 = $words4[rand(scalar(@words4))];


print "\n##############################\n";
print "#BOfH Random Excuse Generator#\n";
print "##############################\n\n";
print "Today's excuse: ";
print "$word1 $word2 $word3\n\n";
print "Use Optional 4th Word?\n";
print "(Answer \"yes\" if DUMMYMODE == ON) [yes/no]";
while (<>) {
    if ($_ eq /yes/ or /y.*/) {
        print "\n$word1 $word2 $word3 $word4\n";
        exit;
    } else {
        exit;
    }
}
[download]

my %mexnix = (email => "mexnix@hotmail.com", website => "http://mexnix.perlmonk.org");

In reply to BOfH Random Excuse Generator by mexnix

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


P is for Practical
	PerlMonks