ターミナルã‹ã‚‰twitterã¸ãƒã‚¹ãƒˆã™ã‚‹gaucheスクリプト - yaotti's diaryã‹ã„ãŸã€‚ #!/usr/local/bin/gosh (use rfc.http) (use rfc.base64) (define (main args) (let* ((username (cadr args)) (passwd (caddr args)) (status (cadddr args)) (basic-info (string-append "Basic " (base64-encode-string (string-append username ":" passwd))))) (define (twitter-post status) (http-post "twitter.com" "/statuses/update.xml" #`"status=,status" :Authorization basic-info)) (twitter-post status))
{{#tags}}- {{label}}
{{/tags}}