#!/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";
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"