This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!perl | |
use strict; | |
use warnings; | |
use Getopt::Long qw/GetOptions/; | |
sub usage; | |
my $base_dir = 'C:/'; | |
my $dir_name = 'strawberry'; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/local/bin/jperl | |
use strict; | |
use warnings; | |
use Getopt::Compact::WithCmd; | |
use Data::Dumper; | |
my $go = Getopt::Compact::WithCmd->new( | |
modes => [qw/verbose/], | |
global_struct => [ |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#include <stdio.h> | |
int main(void) { | |
char foo[10]; | |
char *bar = &foo; | |
hoge(&bar); | |
printf("%s\n", "main"); | |
printf("%c\n", foo[0]); | |
} |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# for developers: | |
# "cpanm < author/requires.cpanm" will install all the modules required | |
# "make test_with_env" does all the extra tests (with pure Perl, Moose, etc.) | |
use strict; | |
use warnings; | |
BEGIN{ | |
$INC{'Module/Install/ExtraTests.pm'} = 1;# considered harmful! | |
} | |
use inc::Module::Install; | |
use Module::Install::XSUtil 0.24; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Hi, c9s. | |
App-gh is great!! I rewrote your code for more readability and maintenancibility :) | |
* I've made subcommands to be functions | |
* Using INI parser - Config::INI::Reader. | |
* When you send a token, HTTPS POST is used instead of HTTP GET. | |
* It was smart to get that usage |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use Text::Xslate; | |
use HTML::Entities qw/encode_entities/; | |
use String::Random qw/random_string/; | |
binmode STDOUT => ':utf8'; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
diff --git a/assets/static/iphone2.js b/assets/static/iphone2.js | |
index df2cf3f..bf5bb77 100644 | |
--- a/assets/static/iphone2.js | |
+++ b/assets/static/iphone2.js | |
@@ -68,5 +68,12 @@ | |
}; | |
$(function () { | |
Mobirc.initialize(); | |
+ setInterval(function() { | |
+ var channel = $('#header').html(); |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use 5.0100; | |
use LWP::UserAgent; | |
use JSON qw/decode_json/; | |
use URI::Escape qw/uri_escape/; | |
use File::Basename qw/basename/; | |
use Getopt::Long qw/GetOptions/; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use LWP::Simple qw/is_success getstore/; | |
use Getopt::Long qw/GetOptions/; | |
GetOptions( | |
'a|asin=s' => \my $asin, | |
'o|output=s' => \my $out, |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
javascript: | |
(function(d,h,l,i) { | |
function C(e,i,n,j,o,u) { | |
o = {}; | |
for (i = 0; i < e.childNodes.length; i++) { | |
n = e.childNodes[i]; | |
if (n.nodeName.toUpperCase() === 'H4') { | |
o.tweet = n.innerHTML; | |
} | |
else if (n.nodeName.toUpperCase() === 'H5') { |