elazarl

package cp

import (
	"io"
	"os"
)

func cp(dst, src string) error {
	s, err := os.Open(src)
	if err != nil {

tyilo

coins_values = [2, 1, 0.5, 0.2, 0.1, 0.05, 0.02, 0.01]
coins_amount = [1, 2, 2,   3,   1,   2,    2,    2   ]

price = 1.7


import itertools

total_coins = 0
coins_list = []

eqhmcow

#!/usr/bin/perl
# example perl code, but this should now actually work properly, even on
# Windows

# thanks to everyone who tested this, reported bugs and suggested or
# implemented fixes!

# this code is licensed under GPL 2 and/or Artistic license;
# aka free perl software

jberger

#!/usr/bin/env perl
package Mojo::URLQueue;
use Mojo::Base 'Mojo::EventEmitter';

use Mojo::UserAgent;

has queue => sub { [] };
has ua    => sub { Mojo::UserAgent->new(max_redirects => 5) };
has concurrency => 4;

markstos

#!/usr/bin/env perl
use v5.10;
use strict;
use warnings;
use Carp;
use IO::Prompt::Tiny 'prompt';
use Net::GitHub;
use Path::Tiny;
use RT::Client::REST::Ticket;
use RT::Client::REST;

bitfolk

#!/usr/bin/perl

use warnings;
use strict;

use Net::IP;
use Net::DNS;
use IO::Select;
use Getopt::Long;
use Pod::Usage;

asimjalis

How to run Perl in an interactive shell

by Asim Jalis, MetaProse.com

An interactive shell is useful for quickly trying out different commands. While Ruby, Python, and Clojure come with interactive shells, Perl does not. However, it is easy to create one using this one-liner on Unix systems:

perl -e 'do{print("perl> ");$_x=<>;chomp $_x;print(eval($_x)."\n")}while($_x ne "q")'

ikbear

package main

// sort a map's keys in descending order of its values.

import "sort"

type sortedMap struct {
	m map[string]int
	s []string
}

jxerome

package com.mainaud.slidingwindow;

import java.util.Set;

public class SlidingWindowMap {
    private long periodMs;
    private SlidingWindow[] keyWindow;

    public SlidingWindowMap(Set<String> keys, int maxCount, long periodMs) {
        keyWindow = new SlidingWindow[keys.size()];

jeffreykegler

#!perl

# This calculator contains *TWO* DSL's.
# The first one is for the calculator itself.
# The calculator's grammar is written in OP2.
# OP2 is the second DSL, and its code is the
# second half of this file.

use 5.010;
use strict;