한글은?
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
;; This buffer is for notes you don't want to save, and for Lisp evaluation. | |
;; If you want to create a file, visit that file with C-x C-f, | |
;; then enter the text in that file's own buffer. | |
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 DBI; | |
use Pod::Usage; | |
use File::Slurp; | |
use Getopt::Long; | |
use Config::ZOMG; | |
use lib qw/lib/; |
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
<!DOCTYPE html> | |
<html lang="en"> | |
<head> | |
<meta charset="utf-8"> | |
<title>Bootstrap, from Twitter</title> | |
<meta name="viewport" content="width=device-width, initial-scale=1.0"> | |
<meta name="description" content=""> | |
<meta name="author" content=""> | |
<!-- Le styles --> |
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 Pod::Usage; | |
use File::Slurp; | |
use Getopt::Long; | |
my %options; | |
GetOptions(\%options, "--help", "--db-init"); | |
run(\%options, @ARGV); |
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
package Streaming; | |
# This example application demos simple streaming support in Catalyst | |
# by streaming an mp3 file to a media player. You will need to point the MP3 | |
# variable to an mp3 file. Then access http://localhost:3000/mp3 in your | |
# favorite mp3 player. | |
# | |
# Works with: | |
# HTTP server | |
# CGI |
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
<!doctype html><html> | |
<head> | |
<title> | |
Mojolicious - Perl real-time web framework | |
</title> | |
<link href="/css/prettify-mojo.css" media="screen" rel="stylesheet" type="text/css" /> | |
<script src="/js/prettify.js" type="text/javascript"></script> | |
<style type="text/css">/*<![CDATA[*/ | |
a { color: inherit } |
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
use strict; | |
use warnings; | |
use JSON; | |
my $perl_scalar = { | |
foo => 1, | |
bar => [1, 2, 3], | |
baz => { | |
oops => { | |
abc => 'tiger' | |
} |