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> | |
#include <stdlib.h> | |
#include <unistd.h> | |
#include <sys/types.h> | |
#include <sys/stat.h> | |
#include <fcntl.h> | |
static void die(const char *s); | |
static void do_cat_from_stdin(void); |
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.010; | |
use utf8; | |
use Encode; | |
my $last_word = ''; | |
while (my $line = <STDIN>) { |
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.010; | |
use Config::Pit; | |
use File::Which qw(which); | |
use Getopt::Long; | |
use URI; |
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
#!/bin/sh | |
SEND_FILE=$1 | |
if [ "$SEND_FILE" = "" ] | |
then | |
echo "Usage $0 filename" | |
exit 1 | |
fi | |
SUBJECT="`date +"%Y%m%d"` $SEND_FILE" |
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/src/sary.c b/src/sary.c | |
index 22f997d..874359f 100644 | |
--- a/src/sary.c | |
+++ b/src/sary.c | |
@@ -112,6 +112,9 @@ static gchar* start_tag = NULL; | |
static gchar* end_tag = NULL; | |
static gchar* array_name = NULL; | |
+#define SEARCH_INFINITE -1 | |
+static SaryInt entry_num = 1000; /* default is 1000 entry */ |
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
function dmmPage (location, pageNum) { | |
var nextLocation; | |
if (location.indexOf("page=") != -1) { | |
var page = location.match(/page=(\d+)/)[1]; | |
var nextPage = "page=" + (parseInt(page) + pageNum); | |
nextLocation = location.replace(/page=(\d+)/, nextPage); | |
} else if (location.indexOf("list") != -1){ | |
if (pageNum < 0) { | |
return false; | |
} |
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 | |
package App::UrlTitle; | |
use Mouse; | |
# reference http://code.google.com/intl/ja/apis/urlshortener/ | |
use LWP::UserAgent; | |
has ua => ( | |
is => 'rw', |
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 | |
package App::UrlTitle; | |
use Mouse; | |
# reference http://code.google.com/intl/ja/apis/urlshortener/ | |
use LWP::UserAgent; | |
has ua => ( | |
is => 'rw', |
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 | |
package App::PSPrinter; | |
use strict; | |
use warnings; | |
use Getopt::Long; | |
use Carp qw(croak carp); | |
use utf8; | |
use File::Basename; |
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 File::Which (); | |
use File::Copy (); | |
my $GIT = File::Which::which('git'); | |
die "Error: can't find 'git' command\n" unless defined $GIT; |
OlderNewer