Skip to content

Instantly share code, notes, and snippets.

View ntakanashi's full-sized avatar

ntakanashi

5 followers · 1 following
View GitHub Profile
@ntakanashi
ntakanashi / gist:dde78f369e59aa76284f
Created August 13, 2014 10:33
hydeの暗号
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
my @alfabet = ('a'..'z');
my @num = qw/19 8 9 14 20 1 9 18 9 11 21/;
print $alfabet[$_ - 1] for @num;
@ntakanashi
ntakanashi / iframe_test.html
Created August 7, 2014 05:34 — forked from ypresto/iframe_test.html
<!DOCTYPE HTML>
<html lang="en">
<head>
<meta charset="UTF-8">
<title></title>
</head>
<body>
<iframe name="ad_iframe" src="./casper_test.html" />
</body>
</html>
@ntakanashi
ntakanashi / custom_cell.rb
Created August 21, 2013 05:20 — forked from arkan/custom_cell.rb
# code inspired from http://jainmarket.blogspot.com/2009/05/creating-custom-table-view-cell.html
class CustomCell < UITableViewCell
attr_accessor :primaryLabel
attr_accessor :secondaryLabel
def createLabels
@primaryLabel = UILabel.alloc.init
@ntakanashi
ntakanashi / gist:5811276
Created June 19, 2013 02:32
Get title from url.
#!/usr/bin/env perl
use common::sense;
use Furl::HTTP;
use HTML::TagParser;
$ARGV[0] =~ /(s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,%#]+)/ or die 'invalid format';
my $url = $1;
my $furl = Furl::HTTP->new;
my ($minor_version, $status, $message, $headers, $content) = $furl->request(