Sponsored Content
Full Discussion: perl BOFH :)
Top Forums Shell Programming and Scripting perl BOFH :) Post 302095051 by sysgate on Friday 3rd of November 2006 04:56:24 AM
Old 11-03-2006
perl BOFH :)

Hello,

This is a script that a friend of mine wrote, and I just added some things on the code, it's intended to be funny Smilie Please excuse me if it had been posted somewhere here, i wasn't able to find it. I'm using this as a 404 document.

The code :

Code:
#!/usr/local/bin/perl
# BOFH exuse generator

@first = qw (
Temporary Intermittant Partial Redundant Total Multiplexed Inherent Duplicated D
ual-Homed
Synchronous Bidirectional Serial Asynchronous Multiple Replicated Non-Replicated
 Unregistered
Non-Specific Generic Migrated Localised Resignalled Dereferenced Nullified Abort
ed Serious SystemBus
Minor Major Extraneous Illegal Insufficient Viral Unsupported Outmoded Legacy Pe
rmanent Subfailure
Invalid Deprecated Virtual Unreportable Undetermined Undiagnosable Unfiltered St
atic Dynamic
Delayed Immediate Nonfatal Fatal Non-Valid Unvalidated Non-Static Unreplicatable
 Non-Serious
);

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

@third = qw(
Interruption Destabilisation Destruction Desynchronisation Failure Dereferencing
 Overflow Underflow NMI
Interrupt Corruption Anomaly Seizure Override Reclock Rejection Invalidation Hal
t Exhaustion Infection
Incompatibility Timeout Expiry Unavailability Bug Condition Crash Dump Crashdump
 Stackdump Problem Lockout
Untransmittable Panic CrashOverride Impossibillity Defacement Desegmentation
);

@fourth = qw(
Error Problem Warning Signal Flag
);

sub get_exuse() {
        my $exuse;
        $exuse .= $first[rand($#first)].' ';
        $exuse .= $second[rand($#second)].' ';
        $exuse .= $third[rand($#third)];
        $exuse .= ' '.$fourth[rand($#fourth)] if (rand(10) % 2==0);
        return $exuse;
}

print "Content-type: text/html\n\n";
print "<h2>You came here because:</h2>\n";
print "<h3>Today's excuse: <u>".&get_exuse."</u></h3>\n";
print "<b>In case the above is not good try one of these:</b><br><br>\n";
for ($i=0;$i<10;$i++) {
        print &get_exuse . "<br>\n";
}

 

8 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

[Perl] Accessing array elements within a sed command in Perl script

I am trying to use a script to replace the header of each file, whose filename are stored within the array $test, using the sed command within a Perl script as follows: $count = 0; while ( $count < $#test ) { `sed -e 's/BIOGRF 321/BIOGRF 332/g' ${test} > 0`; `cat 0 >... (2 Replies)
Discussion started by: userix
2 Replies

2. Shell Programming and Scripting

Passing date formats in Perl: i.e. Jul/10/2007 -> 20070710 (yyyymmdd) - Perl

Hi , This script working for fine if pass script-name.sh Jul/10/2007 ,I want to pass 20070710(yyyymmdd) .Please any help it should be appereciated. use Time::Local; my $d = $ARGV; my $t = $ARGV; my $m = ""; @d = split /\//, $d; @t = split /:/, $t; if ( $d eq "Jan" ) { $m = 0 }... (7 Replies)
Discussion started by: akil
7 Replies

3. Shell Programming and Scripting

Perl :How to print the o/p of a Perl script on console and redirecting same in log file @ same time.

How can i print the output of a perl script on a unix console and redirect the same in a log file under same directory simultaneously ? Like in Shell script, we use tee, is there anything in Perl or any other option ? (2 Replies)
Discussion started by: butterfly20
2 Replies

4. Shell Programming and Scripting

Hidden Characters in Regular Expression Matching Perl - Perl Newbie

I am completely new to perl programming. My father is helping me learn said programming language. However, I am stuck on one of the assignments he has given me, and I can't find very much help with it via google, either because I have a tiny attention span, or because I can be very very dense. ... (4 Replies)
Discussion started by: kittyluva2
4 Replies

5. Shell Programming and Scripting

HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

Hi all, Not sure if this should be in the programming forum, but I believe it will get more response under the Shell Programming and Scripting FORUM. Am trying to write a customized df script in Perl and need some help with regards to using arrays and file handlers. At the moment am... (3 Replies)
Discussion started by: newbie_01
3 Replies

6. UNIX for Advanced & Expert Users

perl and HP-UX : instmodsh in combination with software depot : update inventory for installed Perl

we create a HP-UX software depot with a new perl-modul. after installation of the software depot, the perl module i can't find with instmodsh in the inventory for installed Perl modules. - i have learned of using instmodsh command : i find out what modules are already installed on my system. ... (0 Replies)
Discussion started by: bora99
0 Replies

7. Programming

PERL: In a perl-scripttTrying to execute another perl-script that SETS SOME VARIABLES !

I have reviewed many examples on-line about running another process (either PERL or shell command or a program), but do not find any usefull for my needs way. (Reviewed and not useful the system(), 'back ticks', exec() and open()) I would like to run another PERL-script from first one, not... (1 Reply)
Discussion started by: alex_5161
1 Replies

8. What is on Your Mind?

The BOFH...

I was in converstion with a friend and got talking about getting help from centres that are supposedly the experts at a particular field WRT to their own item that they have sold. This is usually applied to help for specific SW that has gone wrong for some reason and he pointed me to this: BOFH:... (2 Replies)
Discussion started by: wisecracker
2 Replies
NPM-RUN-SCRIPT(1)                                                                                                                NPM-RUN-SCRIPT(1)

NAME
npm-run-script - Run arbitrary package scripts SYNOPSIS
npm run-script <command> [--silent] [-- <args>...] alias: npm run DESCRIPTION
This runs an arbitrary command from a package's "scripts" object. If no "command" is provided, it will list the available scripts. run[-script] is used by the test, start, restart, and stop commands, but can be called directly, as well. When the scripts in the package are printed out, they're separated into lifecycle (test, start, restart) and directly-run scripts. As of ` https://blog.npmjs.org/post/98131109725/npm-2-0-0, you can use custom arguments when executing scripts. The special option -- is used by getopt https://goo.gl/KxMmtG to delimit the end of the options. npm will pass all the arguments after the -- directly to your script: npm run test -- --grep="pattern" The arguments will only be passed to the script specified after npm run and not to any pre or post script. The env script is a special built-in command that can be used to list environment variables that will be available to the script at run- time. If an "env" command is defined in your package, it will take precedence over the built-in. In addition to the shell's pre-existing PATH, npm run adds node_modules/.bin to the PATH provided to scripts. Any binaries provided by locally-installed dependencies can be used without the node_modules/.bin prefix. For example, if there is a devDependency on tap in your package, you should write: "scripts": {"test": "tap test/*.js"} instead of "scripts": {"test": "node_modules/.bin/tap test/*.js"} to run your tests. The actual shell your script is run within is platform dependent. By default, on Unix-like systems it is the /bin/sh command, on Windows it is the cmd.exe. The actual shell referred to by /bin/sh also depends on the system. As of ` https://github.com/npm/npm/releases/tag/v5.1.0 you can customize the shell with the script-shell configuration. Scripts are run from the root of the module, regardless of what your current working directory is when you call npm run. If you want your script to use different behavior based on what subdirectory you're in, you can use the INIT_CWD environment variable, which holds the full path you were in when you ran npm run. npm run sets the NODE environment variable to the node executable with which npm is executed. Also, if the --scripts-prepend-node-path is passed, the directory within which node resides is added to the PATH. If --scripts-prepend-node-path=auto is passed (which has been the default in npm v3), this is only performed when that node executable is not found in the PATH. If you try to run a script without having a node_modules directory and it fails, you will be given a warning to run npm install, just in case you've forgotten. You can use the --silent flag to prevent showing npm ERR! output on error. You can use the --if-present flag to avoid exiting with a non-zero exit code when the script is undefined. This lets you run potentially undefined scripts without breaking the execution chain. SEE ALSO
o npm help 7 scripts o npm help test o npm help start o npm help restart o npm help stop o npm help 7 config January 2019 NPM-RUN-SCRIPT(1)
All times are GMT -4. The time now is 05:22 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy