Skip to content

Instantly share code, notes, and snippets.

View comewalk's full-sized avatar

Takatsugu Shigeta comewalk

37 followers · 12 following
View GitHub Profile
@comewalk
comewalk / we_love_blog.pl
Created August 24, 2015 05:34
via https://github.com/taitetsu/JustAnotherPerlHacker01/blob/master/we_love_blog.pl
#!/usr/local/bin/perl
while(<DATA>){s/(I|X|A|P|A|R|T|\n| )//g;@sa=split('S',$_);foreach $sa (@sa){print chr($sa)}}
__DATA__
SI 7X 4A PARTS1 I1XA7
PA RT S1 IX1APA5RTSIX1AP1A6
RT S3IX 2A PRTS 6IXAPART5SI1XAP1AR0T
SI XAPA 11 1R TS IXAPARTSIX11APA6RT
SIXA PART S1I0XAPART 4SIX1AP0AR1TSIXA
PART SIXA PA RTSI1X14APAR
@comewalk
comewalk / we_are_hiring.pl
Last active August 29, 2015 14:28
#!/usr/bin/env perl
$_ = 'Drink coffee! Supported by Six Apart';
tr/a-z/Blogging after this event!/;
tr/N-ZA-z/A-za-m/;
@m = split //, $_; $_ = chr(87) . lc(join(chr(0), @m[3, 2, 29, 15, 3, 2]) . chr(104) . '<3' . $m[15] . '<3' . join('', @m[31, 16, 12]));
s/<3/i/g;
print;
@comewalk
comewalk / we_are_hiring.pl
Created August 24, 2015 05:18
#!/usr/bin/env perl
$_ = 'Drink coffee! Supported by Six Apart';
tr/a-z/Blogging after this event!/;
@m = split //, $_; print chr(87) . $m[15] . $m[2] . chr(97) . $m[3] . $m[15] . $m[2] . chr(104) . $m[1] . $m[3] . $m[1] . $m[29] . $m[10] . $m[12];
@comewalk
comewalk / yapcasia2015.pl
Created August 22, 2015 06:42
#!/usr/bin/env perl
$_ = 'Drink coffee! Supported by Six Apart';
tr/a-z/Blogging after this event!/;
tr/N-ZA-z/A-za-m/;
@m = split //, $_;
$j = sub { join(chr(0), @_) };
$_ = chr(104) . $j->(@m[10, 11]) . pack("H*", join('', qw/70 3a 2f 2f/));
$_ .= $m[4] . chr(46) . $m[4] . '<3';
@comewalk
comewalk / google-api-scopes.pl
Last active February 5, 2022 06:29
The script shows all Google APIs scopes via Google APIs Discovery Service. Run like below.$ perl google-api-scopes.pl | sort | uniq
#!/usr/bin/env perl
use strict;
use warnings;
use 5.010000;
use JSON;
use LWP::UserAgent;
use URI;
@comewalk
comewalk / gist:5376715
Last active December 16, 2015 04:19
if "401 Unauthorized" and this content, try to remove token and connect again.
"error": {
"errors": [
{
"domain": "global",
"reason": "authError",
"message": "Invalid Credentials",
"locationType": "header",
"location": "Authorization"
}
],
@comewalk
comewalk / gist:5150900
Created March 13, 2013 10:30
$ python26 -V Python 2.6.8 $ java -version java version "1.6.0_18" Java(TM) SE Runtime Environment (build 1.6.0_18-b07) Java HotSpot(TM) 64-Bit Server VM (build 16.0-b13, mixed mode) I ran closurebuilder.py in above environment. I got a following error. (paths tweaked a little though.) I fixed this patch. closure-library/closure/bin/build/closur…
--- closure-library/closure/bin/build/jscompiler.py 2013-03-13 18:21:16.000000000 +0900
+++ closure-library/closure/bin/build/jscompiler.py 2013-03-13 19:22:12.000000000 +0900
@@ -33,7 +33,7 @@
def _GetJavaVersionString():
"""Get the version string from the Java VM."""
- return subprocess.check_output(['java', '-version'], stderr=subprocess.STDOUT)
+ return subprocess.Popen(['java', '-version'], stdout=subprocess.PIPE, stderr=subprocess.STDOUT).communicate()[0]
@comewalk
comewalk / parse_sitemap.pl
Created September 26, 2012 06:23
get permalinks from sitemap.xml
#!/usr/bin/env perl
use strict;
use warnings;
use XML::LibXML;
my $filename = $ARGV[0];
my $parser = XML::LibXML->new;
@comewalk
comewalk / dfareporting.pl
Created August 29, 2012 16:42
DFA Reporting API sample. Although I don't know that this script gets right results. Because I don't have my DFA account.
#!/usr/env/perl
use strict;
use warnings;
use feature qw/say/;
use FindBin;
use Google::API::Client;
use OAuth2::Client;
@comewalk
comewalk / gist:3337283
Created August 13, 2012 06:00
create a new event via calendar api
# Create a new event
say '=== Create a new event ===';
my $new_event = {
'summary' => '宇宙兄弟',
'location' => '日本テレビ',
'start' => {
'dateTime' => '2012-08-12T07:00:00+09:00',
},
'end' => {
'dateTime' => '2012-08-12T07:30:00+09:00',