| /* | |
| The MIT License (MIT) | |
| Copyright (c) 2014 Ismael Celis | |
| Permission is hereby granted, free of charge, to any person obtaining a copy | |
| of this software and associated documentation files (the "Software"), to deal | |
| in the Software without restriction, including without limitation the rights | |
| to use, copy, modify, merge, publish, distribute, sublicense, and/or sell | |
| copies of the Software, and to permit persons to whom the Software is |
| #!/usr/bin/env perl | |
| use strict; | |
| use warnings; | |
| use FindBin; | |
| BEGIN { | |
| use lib "/Users/vti/dev/protocol-websocket/lib"; | |
| } |
| Author: | Matthew "LeafStorm" Frazier <leafstormrush@gmail.com> |
|---|---|
| Date: | February 4, 2011 |
| Status: | Early draft |
This document specifies an interface between Web servers and Web applications written in the Lua programming language, to promote interoperability between Web servers and the development of an ecosystem of reusable components for Lua
| #compdef cpanm | |
| #autoload | |
| typeset -A opt_args | |
| local context state line | |
| _arguments -C \ | |
| '(-h)'{-h,--help}'[prints help]' \ | |
| '(-v --verobse)'{-v,--verbose}'[turn on chatty output.]' \ | |
| '(-q --quiet)'{-q,--quiet}'[turn off the most output.]' \ |
| #include <stdio.h> | |
| #include <stdlib.h> | |
| #include <string.h> | |
| #include <fcntl.h> | |
| #include <err.h> | |
| #include <unistd.h> | |
| #include <sys/types.h> | |
| #include <sys/socket.h> |
| #!/bin/sh | |
| # | |
| # Redirect stdin, stdout, stderr of a daemon to /dev/pts/# | |
| # | |
| ################################################################################################################# | |
| # Ref: stdio buffering: http://www.pixelbeat.org/programming/stdio_buffering/ | |
| # Default Buffering modes: | |
| # stdin -> is always buffered | |
| # stderr -> is always unbuffered | |
| # if stdout is a terminal then buffering is automatically set to line buffered, else it is set to buffered |
| use strict; | |
| use warnings; | |
| use feature ':5.10'; | |
| use Marpa::XS; | |
| use Data::Dumper; | |
| # | |
| # a simple CSS snippet for testing | |
| # | |
| my $text = q{ |
| // ==UserScript== | |
| // @name «Yandex Mail Archive button» | |
| // @namespace gurugray | |
| // @author Sergey sergeev (gurugray) | |
| // @version 0.2.4 | |
| // @homepage_url https://raw.github.com/gist/2181532/yandex-mail.archive.user.js | |
| // @description Создаём кнопку «В архив» на web-почте Яндекса | |
| // @include http*://mail.yandex*/neo2/* |
| use Mojolicious::Lite; | |
| use EV; | |
| use AnyEvent; | |
| use AnyEvent::Util; | |
| get '/' => sub { | |
| my $self = shift; | |
| # Run Perl oneliner in separate process and capture STDOUT | |
| fork_call { |
