ksurent

#!perl

use strict;
use warnings;

use Device::Gsm;

$| = 1;

my $modem = Device::Gsm->new(

ksurent

#!/usr/bin/env qore

%new-style
%require-types
%enable-all-warnings

namespace OpenCorpora;

class OpenCorpora::Tokenizer {
    private {

ksurent

#!/usr/bin/env perl

use v5.14;

use UUID::Tiny;
use Mojolicious::Lite;
use Net::Frame::Simple;
use Net::Frame::Dump::Offline;

BEGIN {

ksurent

#!/usr/bin/env perl

use v5.14;

#chomp(my $input = <STDIN>);

# Hello World!\n
#my $input = '++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>.';

# Hello World!

ksurent

#!/usr/bin/env perl

use v5.14;

use List::Util qw(shuffle);
use Parse::CPAN::Packages::Fast;
use List::MoreUtils qw(uniq any);

use AE;
use IO::AIO;

ksurent

package main

import (
    "encoding/csv"
    "fmt"
    "math/rand"
    "os"
    "strconv"
)

ksurent

#!/usr/local/bin/perl

use v5.14;
use warnings;

use IO::Socket 1.18;
use Digest::MD5 qw(md5 md5_hex);
use Time::HiRes qw(time);

# epoch = January 1, 1900

ksurent

package Role;
use Moose::Role;
requires "delegated_method";

has provided_attribute => (
    is      => "ro",
    isa     => "Str",
    lazy    => 1,
    builder => "_build_provided_attribute",
);

ksurent

use v5.14;                                                                                                                                                                   [6/1836]
use warnings;

use IO::Socket;
use POSIX qw(:sys_wait_h);

my($ip, $host) = @ARGV;

my $sock = IO::Socket::INET->new(
    PeerAddr => "$ip:80",

ksurent

package main

// heavily inspired by https://blog.nelhage.com/2010/08/write-yourself-an-strace-in-70-lines-of-code/

import (
    "errors"
    "fmt"
    "log"
    "os"
    "strconv"