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 feature ':5.10'; | |
use Encode::Argv; | |
use File::Basename 'dirname'; | |
use File::Spec; |
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 | |
=pod | |
This program checks whether an image is able to be embedded by AtomicParsley. | |
=cut | |
use strict; | |
use warnings; |
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 | |
=pod | |
A sample of streaming. | |
This sends dynamic contents on "Transfer-Encoding: chunked". | |
See also the source: t/mojolicious/longpolling_lite_app.t | |
=cut |
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 5.12.0; | |
use warnings; | |
use Geo::Gpx; | |
use Getopt::Std; | |
use Mac::PropertyList; | |
#-- setting | |
my $options = {}; |
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
<!DOCTYPE html> | |
<html><head><title>GPX Casual Viewer v3</title> | |
<meta name="viewport" content="initial-scale=1.0, user-scalable=no" /> | |
<meta http-equiv="content-type" content="text/html; charset=utf-8" /> | |
<meta http-equiv="content-script-type" content="text/javascript" /> | |
<meta http-equiv="content-style-type" content="text/css" /> | |
<style type="text/css"> | |
html { height: 100% } | |
body { height: 100%; margin: 0px; padding: 0px } | |
#map_canvas { height: 100% } |
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
=head1 NAME | |
flatten-multipart.pl - flatten multipart message | |
=head1 SYNOPSIS | |
$ perl flatten-multipart.pl email.eml | |
multipart/mixed (2) | |
multipart/related (2) | |
application/octetstream (142019) |
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 5.12.0; | |
use warnings; | |
use FindBin; | |
use lib "$FindBin::Bin/../lib"; | |
use AnyEvent::Beanstalk; | |
use Data::Dumper; | |
use MyApp::App::Command; |
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
--- AtomicParsley.cpp.orig 2006-09-16 08:22:33.000000000 +0900 | |
+++ AtomicParsley.cpp 2013-07-27 17:18:30.279141101 +0900 | |
@@ -1447,7 +1447,7 @@ | |
uint32_t atom_offsets = 0; | |
char* uuid_outfile = (char*)calloc(1, sizeof(char)*MAXPATHLEN+1); //malloc a new string because it may be a cli arg for a specific output path | |
if (output_path == NULL) { | |
- char* orig_suffix = strrchr(originating_file, '.'); | |
+ const char* orig_suffix = strrchr(originating_file, '.'); | |
if (orig_suffix == NULL) { | |
fprintf(stdout, "AP warning: a file extension for the input file was not found.\n\tGlobbing onto original filename...\n"); |
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 DateTime::Format::W3CDTF; | |
my $dt_string = $ARGV[0]; | |
my $w3cdtf = DateTime::Format::W3CDTF->new; | |
my $dt = $w3cdtf->parse_datetime($dt_string); | |
print $dt->epoch, "\n"; | |
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 ruby | |
require 'sinatra/base' | |
SECONDS_INTERVAL = 1.0 | |
URL_STREAM = '/stream' | |
NAME_EVENT = 'ldavg' | |
NUMBER_MAX_PLOT = 180 | |
SEPARATOR_OF_DATA = ' ' |
OlderNewer