A little perl script to spice up your unix shell startup

Content of perl script
-----------
use strict;

$/ = "\n%%%\n"; #define separator for array
open ARTS, "art.dat" or die $!;
my @file = <arts>;
my $random = rand(@file);

my $ascii_art = $file[$random];
$ascii_art=~s/\n%%%\n//; #remove the separator string
print $ascii_art, "\n";

----------

sample content of art.dat, you can get more from the mentioned web site or newsgroup
(sample below taken from http://www.chris.com/ASCII/)
----------

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$*" *$$$$$$$$$$$$$$$$$$$$$$$$$$$" "*" *$$$$$$" ^$$$"$$$$$$$$$$$
$$$$$$$$$" z$P"$$$$$$$$$$$$$$$$$$$$$$$$P e$"e4$b. "$$" d$ $P $$$$$$$$$$$$
$$$$$$$" .$$$ J$$$$$$$$$$$$$$$$$$$$$$$" .$Pz$$4$$$$c z" $$*" z$$$$$$$$$$$$$
$$$$$$ 4$$$$$$$$$$$$$$$$$$$$$$$$$$$P z$$4$$%$$$$$$$d " z$$$$$$$$$$$$$$$
$$$$P z$$$* er$$$* ze$$P .$ $$ $F d$$ $$Fz$$$$$$$ $$P$$$$$$$$$$$$$$$$$$
$$$P 4$$$" $$F$$" $" $" z$% J$$$$F d$$$ *"d$$$$$$$ $$Pd$$$$$$$$$$$$$$$$$$
$$$ .$$$ $c* " $$b$" z$P .$$$$P 4$$$$$$$$$$$$$$ d$Pd$$$$$$$$$$$$$$$$$$$
$$ $$$" 4$$%$ 4$$$" $$ $P$$$ $$$""$$$$$*"$$% 4$"$$P"*""$$$$$$$$$$$$$$
$F 4$$$ $$Fd$ $$$" $$ dPd$$" $$" z$ $$" d$ $ $\$$ dP 4$$$$$$$$$$$$$$
$ $$$F *"d$F $* r * "J$$$ .$% .$$.$" .$$J d$$ $$ $$$$$$$$$$$$$$$
$ $$$$ .$$$$ e$b dL $$$$F J$ d$P$" d$e e $$$ $$ $$$$$$$$$$$$$$$$
$ $$$$$$$$$$$$$$$$$$$$$$$$$$$ $$d$$$.F .$$"$F 4$$ d$% J$J$$$$$$$$$$$$$$
$L "$$$$$$$$$$*" "$$$$$ 4$$$$ $ $$"d$ $$ $F $.$$$$$$$$$$$$$$$
$$c ^*$$$*" .e$$$$$c $$$L "*".$$ d$$ z .$$$$$$$$$$$$$$$$
$$$$e. .e$$$$$$$$$$$z$$$$$$$$$$. .d$$$c .$$$$c d$b .$c e$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$Gilo94'$$

%%%

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$F "$$$P" .P$$$$$$$$$$$$$$$$
$$$$$$$$F "" 4$e3$$$$$$$$$$$$$$
$$$$$$$$F 4$$4$CeC$$$$$$$$$$
$$$$$$$$F .... 4$$.$$$$^$$$$$$$$$
$$$$$$$$F ...d$$$*" 4Pz$$$$\d$$$$$$$$$
$$$$$$$$F d$$$$*" d$$$5d$$$$$$$$$$$
$$$$$$$$F zd$$$$$ .ec .$$$Pz$$$$$$$$$$$$$
$$$$$$$$F .e$$" $$F $$$r $$$"4$$$$$$$$$$$$$$
$$$$$$$$F 4$$" 3$$ *$$$ d$$\$4$$$$$$$$$$$$$$
$$$$$$$$F 4$$ *$$r d$$)$$4$$$$$$$$$$$$$$
$$$$$$$$F . 4$$ 3$$$$$"4$$4$$$$$$$$$$$$$$
$$$$$$$$F $$. .d d$$ $$$$" 4$$4$$$$$$$$$$$$$$
$$$$$$$$F $$4$$cd$$ $$$ 3$$$ 4$$4$$$$$$$$$$$$$$
$$$$$$$$F $$4$$$$$$ $$$ """ 4$$4$$$$$$$$$$$$$$
$$$$$$$$F $$4$$$$$$ 4$$ 4$$4$$$$$$$$$$$$$$
$$$$$$$$F $P4$$$$$$ 4$$4$$$$$$$$$$$$$$
$$$$$$$$F \d$$$$$$$ ')d$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$Gilo94'$$

%%%



-----------


After these two files are created in your unix home directory. Update your .profile or any startup script of your shell with

perl [your script filename] art.dat

Comments

Popular posts from this blog

Clearcase check in/uncheck out all the checked out files script

MSSQL GROUP_CONCAT

Duplicating a local copy of project from TFS and making web software client factory to work