View Foo.pm
package Foo;
use Exporter 'import';
use Moo;
use MooX::Types::MooseLike::Base qw(CodeRef);
has c => (
is => 'ro',
isa => CodeRef,
required => 1,
View a.pl
print "hello\n";
View html.sh
function html() {
local tag="$1"
local content="$2"
if [ -z "$content" ] ; then
echo "<$tag/>"
else
local attrs
if [ "$#" -gt 2 ]; then
shift 2
attrs=" $@"
View output.txt
$ panda --notests install Task::Star
==> Task::Star depends on panda, HTTP::Status, HTTP::Easy, Template::Mojo, Bailador, DBIish, URI, Linenoise, LWP::Simple, JSON::RPC, Pod::To::HTML, p6doc, MIME::Base64, PSGI, Shell::Command, File::Find
==> panda depends on File::Find, Shell::Command, JSON::Fast
==> Shell::Command depends on File::Find
==> HTTP::Easy depends on HTTP::Status, PSGI
==> PSGI depends on HTTP::Status
==> Bailador depends on HTTP::Easy, Template::Mojo, Template::Mustache, URI
==> HTTP::Easy depends on HTTP::Status, PSGI
==> PSGI depends on HTTP::Status
==> Template::Mustache depends on JSON::Fast
View portunhol.gnu.sed
s/\svocê\s/ usted /g
s/\<fazer\>/hacer/g
s/\<da\>/de la/g
s/\<do\>/del/g
s/\<na\>/en la/g
s/\<no\>/en el/g
s/\sé\s/ es /g
s/\<a\>/la/g
s/(\<)só\s/$1solamente /g
s/\<e\>/y/g
View hosts
# adicione essa linha no seu /etc/hosts
127.0.0.1 paywall.folha.uol.com.br
View HTML.pm
package HTML;
use strict;
use warnings;
use feature 'say';
sub import {
my $self = shift;
my ($callpack, $callfile, $callline) = caller;
foreach my $tag (@_) {
View A.java
import java.util.*;
public class A {
String name;
public A(String name) { this.name = name; }
public String toString(){ return "A[" + this.name + "]"; }
public static void main ( String [] args ) {
View input.txt
lala
begin
sddasdas
asdasdasd
asdasd
end
lolo
View coligacoes.pl
#!/bin/perl
use strict;
use warnings;
use JSON qw(decode_json);
use Text::Table;
use LWP::Simple;
my $URL = "http://estaticog1.globo.com/2014/07/Coligacoes/eleicao.json";