SHARE
TWEET

Untitled

a guest Jul 23rd, 2010 464 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. my $n = `pacman -Qu | wc -l`;
  5. my $cool = "88CC00";
  6. my $medi = "DDDD00";
  7. my $hot = "EE5500";
  8.  
  9. chomp($n);
  10. if ($n eq "0"){ print '${color '."$cool".'}OK${color}' }
  11. else{ print '${color '."$hot".'}'."$n new".'${color}' }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top