memo

• perl

#!/usr/local/bin/perl -w
use strict;
use LWP::UserAgent;
use Encode;

my $url = "http://twitter.com/statuses/update.json";

my $msg = shift || "ほげほげ(APIからポスト)";
   $msg =~ s/(\W)/'%'.unpack("H2", $1)/ego;
   $msg =~ tr/ /+/;
my $user_name = shift || "";
my $password  = shift || "";

my $req = HTTP::Request->new( POST => $url );
   $req->authorization_basic( $user_name, $password );
   $req->content("status=". $msg);

my $ua = LWP::UserAgent->new;
my $res = $ua->request( $req );

print "レスポンスコード:". $res->code ,"\n";
print "content:". $res->content ,"\n";

• ruby（編集中）

require 'net/http'
Net::HTTP.version_1_2

name   = ARGV[0]
pass   = ARGV[1]
status = ARGV[2]

req = Net::HTTP::Post.new( '/statuses/update.json' )
req.basic_auth( name, pass )
Net::HTTP.start('twitter.com', 80 ) {|http|
  res = http.request( req, status )
  puts res.body
}

• その他

ps -eo "%p %y %x %c"

       CODE   NORMAL   HEADER
       ()                                                             ()

       %C     pcpu     %CPU
       %G     group    GROUP
       %P     ppid     PPID
       %U     user     USER
       %a     args     COMMAND
       %c     comm     COMMAND
       %g     rgroup   RGROUP
       %n     nice     NI
       %p     pid      PID
       %r     pgid     PGID
       %t     etime    ELAPSED
       %u     ruser    RUSER
       %x     time     TIME
       %y     tty      TTY
       %z     vsz      VSZ

ps -eo "%p %U %x %n %C %c %a %t"