PS_OK=$'\n''%F{green}CURRENT=%'$'\n%F{yellow}✖╹◡╹✖ %F{magenta}☆☆☆ %F{reset}'
PS_NG=$'\n''%F{red}CURRENT=%'$'\n%F{yellow}xX_Xx %F{magenta}☆☆☆ %F{reset}'
PS1="%0(?|${PS_OK}|${PS_NG})"
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use Mac::Growl; | |
system @ARGV; | |
my $appname = "notice.pl"; | |
Mac::Growl::RegisterNotifications($appname, ['alert'], ['alert']); |
#coding: utf-8 | |
require 'twitter' | |
Twitter.configure do |config| | |
config.consumer_key = YOUR_CONSUMER_KEY | |
config.consumer_secret = YOUR_CONSUMER_SECRET | |
config.oauth_token = YOUR_OAUTH_TOKEN | |
config.oauth_token_secret = YOUR_OAUTH_TOKEN_SECRET | |
end | |
client = Twitter::Client.new |
use strict; | |
use warnings; | |
use Config::Pit; | |
use Net::Twitter::Lite; | |
use Encode; | |
use utf8; | |
my $message = shift or usage(); | |
$message = Encode::decode('utf-8',$message); |
use strict; | |
use warnings; | |
use Config::Pit; | |
use Net::Twitter::Lite; | |
use DateTime; | |
use Encode; | |
use utf8; | |
my $now = DateTime->now; |
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use Proc::ProcessTable; | |
use Mac::Growl; | |
my $pid = shift or die "<usage> $0 pid"; | |
die "bad pid" unless $pid !~ m/[^0-9]/; | |
chomp $pid; |
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use String::Random; | |
my $length = shift; | |
$length //= 8; | |
die "length must be unsigned int" if $length < 1; |
package CloudForecast::Data::Qudo; | |
use CloudForecast::Data -base; | |
use Qudo; | |
=head1 NAME | |
CloudForecast::Data::Qudo | |
=head1 SYNOPSIS |
double_lambda = lambda {|x| return x * 2} | |
def double_fn(x) | |
return x * 2; | |
end | |
p double_lambda.call(4) #8 | |
p double_fn(4) #8 |
alias mkdn2html="perl -MText::Markdown -e 'print Text::Markdown::markdown(join(q{},<>))'" |