Skip to content

Instantly share code, notes, and snippets.

package main
import "fmt"
func main(){
fmt.Println("Hello World !!!")
}
@ramtiga
ramtiga / atnd.pl
Created August 4, 2011 13:31
Usage ATND::Lite
#!/usr/bin/env perl
use strict;
use warnings;
use ATND::Lite;
use Data::Dumper;
use utf8;
use Encode qw/encode_utf8/;
my $search = {
@ramtiga
ramtiga / webscrap_amazon_cache.pl
Created August 4, 2011 16:29
webscrap Amazon Bestsellers
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Encode;
use Web::Scraper;
use Cache::FileCache;
use LWP::Simple;
@ramtiga
ramtiga / test_closure.pl
Created August 9, 2011 19:24
test closure
#!/usr/bin/env perl
use strict;
use warnings;
my $ref_fnc;
{
my $num = 1;
$ref_fnc = sub {
print "$num\n";
@ramtiga
ramtiga / test_xmlget.pl
Created August 11, 2011 17:17
Usage XML
#!/usr/bin/env perl
use strict;
use warnings;
use XML::Simple;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $res = $ua->get('http://weather.livedoor.com/forecast/rss/13/63.xml');
die $res->status_line unless $res->is_success;
@ramtiga
ramtiga / test_youtubeinfo.pl
Created August 12, 2011 09:54
get Youtube Info
#!/usr/bin/env perl
use strict;
use warnings;
use URI::Escape;
use LWP::Simple;
use Data::Dumper;
my $id = shift || die "Usage: $0 [video_id]";
@ramtiga
ramtiga / gist:1193000
Created September 4, 2011 15:16
get json
NSURL *url = [NSURL URLWithString:@"http://twitter.com/statuses/public_timeline.json"];
NSURLRequest *req = [NSURLRequest requestWithURL:url];
NSError *error = nil;
NSData *res = [NSURLConnection sendSynchronousRequest:req returningResponse:nil error:&error];
//NSData -> NSString
NSString *json_string = [[NSString alloc] initWithData:res encoding:NSUTF8StringEncoding];
NSArray *json = [json_string JSONValue];
@ramtiga
ramtiga / gist:1208411
Created September 10, 2011 15:09
ASIHTTPRequest
- (void)tweet_refresh:(int)type {
[UIApplication sharedApplication].networkActivityIndicatorVisible = YES;
NSURL *url = [NSURL URLWithString:@"http://twitter.com/statuses/public_timeline.json"];
ASIHTTPRequest *request = [ASIHTTPRequest requestWithURL:url];
[request setDelegate:self];
[request startAsynchronous];
}
- (void)requestFinished:(ASIHTTPRequest *)request {
[mtArray_ removeAllObjects];
@ramtiga
ramtiga / gist:1511349
Created December 22, 2011 18:39
Amon2 Json Output
#!/usr/bin/env perl
use strict;
use warnings;
use Amon2::Lite;
use JSON;
use Data::Dumper;
__PACKAGE__->load_plugins('DBI');
@ramtiga
ramtiga / gist:2033769
Created March 14, 2012 03:19
OpenSSL::SSL::SSLError
require 'openssl'
module OpenSSL
module SSL
remove_const :VERIFY_PEER
end
end
OpenSSL::SSL::VERIFY_PEER = OpenSSL::SSL::VERIFY_NONE