Skip to content

Instantly share code, notes, and snippets.

@xaicron
xaicron / psw.pl
Created October 26, 2010 10:13
multiple perl switch utility for strawberry-perl
#!perl
use strict;
use warnings;
use Getopt::Long qw/GetOptions/;
sub usage;
my $base_dir = 'C:/';
my $dir_name = 'strawberry';
#!/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 => [
#include <stdio.h>
int main(void) {
char foo[10];
char *bar = &foo;
hoge(&bar);
printf("%s\n", "main");
printf("%c\n", foo[0]);
}
# 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;
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
#!/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';
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();
#!/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/;
#!/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,
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') {