This file contains 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
--- pm/MobileTplCompiler.pm.orig 2011-06-27 14:10:08.000000000 +0900 | |
+++ pm/MobileTplCompiler.pm 2011-06-27 14:11:08.000000000 +0900 | |
@@ -180,6 +180,8 @@ | |
my $saveFile = "$saveDir/$name.bin.$type"; | |
my $text = readFile($srcName, $type); | |
+ $text = replace_emoji($text); | |
+ | |
my $mtime2 = get_mtime($saveFile); | |
return if ($mtime < $mtime2); |
This file contains 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 utf8; | |
use Encode; | |
my $sample = { | |
test1 => { |
This file contains 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
package Class; | |
sub new { | |
my $class = shift; | |
my $self = shift || {}; | |
return bless $self, $class; | |
} | |
sub add { | |
my $self = shift; |
This file contains 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
use Benchmark qw(cmpthese timethese); | |
cmpthese timethese(100000, { | |
eval => sub { | |
eval { | |
die; | |
}; | |
if($@){} | |
}, | |
goto => sub { |
This file contains 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; | |
# <> でopen無しに引数のファイルを読み取れる | |
while (<>) { print; } |
This file contains 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
@@ -12,15 +12,15 @@ | |
# Source function library. | |
. /etc/init.d/functions | |
-PORT=11211 | |
-USER=memcached | |
+#PORT=11211 | |
+USER=apache | |
MAXCONN=1024 | |
CACHESIZE=64 |
This file contains 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
package Sample; | |
sub hello { | |
print "Hello\n"; | |
} | |
1; | |
package main; |
This file contains 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
package Dancer::Plugin::Teng; | |
BEGIN { | |
$Dancer::Plugin::Teng::VERSION = '0.1'; | |
} | |
use strict; | |
use warnings; | |
use Dancer::Plugin; | |
use DBI; |
This file contains 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
import java.io.*; | |
import java.net.*; | |
public class GDataOAuth2Example { | |
static final String CLIENT_ID = ""; | |
static final String CLIENT_SECRET = ""; | |
static final String REDIRECT_URI = "urn:ietf:wg:oauth:2.0:oob"; // InstalledApplication | |
static final String SCOPES = "https://www.googleapis.com/auth/userinfo.profile" |
This file contains 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
use strict; | |
use warnings; | |
use Test::More; | |
BEGIN { use_ok('IOCaptureTest') }; | |
use Capture::Tiny qw/:all/; | |
my $output; |