i wrote a usefull (at least for me) perl script that executes aterm with flags where the -tint $color flag everytime you execute the script changes ... so everytime you open a new aterm window ... it has a random tint color...
any suggestions on making the script better are wellcome.
any suggestions on making the script better are wellcome.
#!/usr/bin/perl my @colors = ( 'red', 'green', 'blue', 'cyan' ); $howmany=@colors; $color = @colors[abs(rand($howmany))]; $line = 'aterm -fg green -tr -trsb -tint '."$color".' -cr green -pr gr +een -bd green +sb'; `$line`;
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: aterm script
by Aristotle (Chancellor) on Sep 28, 2002 at 22:21 UTC | |
(jeffa) Re: aterm script
by jeffa (Bishop) on Sep 28, 2002 at 21:16 UTC | |
Re: aterm script
by Anonymous Monk on Nov 01, 2002 at 17:07 UTC |
Back to
Cool Uses for Perl