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

Post a Comment

Popular posts from this blog

Outlook : "operation failed, object could not be found. " when trying to close a PST.

Image
When you try to close a PST. The error message "operation failed, object could not be found" pop up. After you have tried scanpst and detect and repair. Still won't work. Solution. (a hard way) Start Regedit Go to Key HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Microsoft Outlook Internet Settings Where "Microsoft Outlook Internet Settings" is the Outlook profile name that has problem. (note: Outlook support multiple profile even for same Windows login) In the HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Microsoft Outlook Internet Settings, you will see a bunch of long string sub keys in it Like in the format of GUID, like e.g. 75d1fa940a0d3a4497130516edbde90e Then, start at the very first sub keys of HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Microsoft Outlook Internet Settings. Right click on sub key, Select Find (menu) And then,
Read more

Troubleshooting Outlook Express (IMAP, POP3, HTTP, NEWS) with the log file

Just happen to know this when trying to solve my friend OE problem. You can log in POP3, IMAP, NEWS, HTTP commands of your Outlook Express into a log file. (note, the password in the log file is encrypted by Microsoft, therefore, it is safe to ask user to send the log file over if you are a IT support) To enable logging. ------------------------- Tools(menu) - Options (menu) - Maintenance(menu) - check on the protocol you need. (POP3, IMAP, NEWS or HTTP) To view the log file -------------------------- Goto path C:\Documents and Settings\YourUserName\Local Settings\Application Data\Identities\{8D32DF8B-D3B8-4783-A0C5-FE37E2FC8659}\Microsoft\Outlook Express\pop3.log (for pop3) imap.log for (imap) and other respectively. P.S. The {8D32DF8B-D3B8-4783-A0C5-FE37E2FC8659} may vary and there could be a few Identities in it. Look for the folder with the structure of *.dbx similar to your Outlook Express email account.
Read more

MSSQL GROUP_CONCAT

This is using XML feature of the SQL server. (nothing new here) select Type, RestaurantNames from Restaurant AS A CROSS APPLY (SELECT RestaurantName + ',' FROM Restaurant AS B WHERE A.Type = B.Type FOR XML PATH('')) D (RestaurantNames) GROUP BY Type, RestaurantNames This is to get something like below (similar to MYSQL GROUP_CONCAT) Type |RestaurantNames ----- --------------- Chinese Food | Ah Yat Abalone, Liang Yah Yong Tau Foo, Indian Food | Kanna Curry House, Western Fast Food | Burger King, McDonald instead of multiple rows. like Type |RestaurantName ----- --------------- Chinese Food |Ah Yat Abalone Chinese Food |Liang Yah Yong Tau Foo Indian Food |Kanna Curry House
Read more