creaktive

#!/usr/bin/env perl
use 5.010;
use strict;
use warnings qw(all);

use AnyEvent::HTTP;
$AnyEvent::HTTP::MAX_PER_HOST = 24;

chomp(my @urls = <DATA>);

creaktive

$ killall Mail
$ afsctool -c -s 20 -v -9 /Users/$USER/Library/Mail/V2/
/Users/stas/Library/Mail/V2/:
Number of HFS+ compressed files: 432654
Total number of files: 460614
Total number of folders: 110941
Total number of items (number of files + number of folders): 571555
Folder size (uncompressed; reported size by Mac OS 10.6+ Finder): 26326621476 bytes / 27.27 GB (gigabytes) / 25.4 GiB (gibibytes)
Folder size (compressed - decmpfs xattr; reported size by Mac OS 10.0-10.5 Finder): 16874488024 bytes / 17.2 GB (gigabytes) / 16.02 GiB (gibibytes)
Folder size (compressed): 17564481987 bytes / 17.89 GB (gigabytes) / 16.66 GiB (gibibytes)

creaktive

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;

use Benchmark::Dumb qw(cmpthese);
use Net::Curl::Easy;
use URI::Escape;
use URI::Escape::XS;

creaktive

#!/usr/bin/env perl
use strict;
use warnings;

use Net::Curl::Easy qw(:constants);

my $easy = Net::Curl::Easy->new;

$easy->setopt(CURLOPT_URL, 'http://www.cpan.org/modules/02packages.details.txt.gz');
$easy->setopt(CURLOPT_WRITEDATA, \my $data);

creaktive

PERL_DL_NONLAZY=1 /Users/stas/perl5/perlbrew/perls/perl-5.20.0/bin/perl "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/00-compile.t ................. ok
t/00-load.t .................... 1/1 # AnyEvent::Net::Curl::Queued v0.048
# Net::Curl v0.35
# AnyEvent v7.07 (AnyEvent::Impl::EV)
# Perl 5.020000 (/Users/stas/perl5/perlbrew/perls/perl-5.20.0/bin/perl)
# Net::Curl::version():
#       libcurl/7.37.0 OpenSSL/1.0.1h zlib/1.2.8 libidn/1.26 libssh2/1.4.3
# Net::Curl::version_info():
#       {age} = 3;

creaktive

CPAN::Reporter: Test result is 'pass', All tests successful.
CPAN::Reporter: preparing a CPAN Testers report for libwww-perl-6.07
CPAN::Reporter: sending test report with 'pass' via Metabase
CPAN::Reporter: Test::Reporter: error from 'Test::Reporter::Transport::Metabase:'
fact submission failed: Status read failed: Connection reset by peer at /Users/stas/perl5/perlbrew/perls/perl-5.20.0/lib/site_perl/5.20.0/Metabase/Client/Simple.pm line 100.
        Metabase::Client::Simple::submit_fact(Metabase::Client::Simple=HASH(0x7fa396b58220), CPAN::Testers::Report=HASH(0x7fa396bb6178)) called at /Users/stas/perl5/perlbrew/perls/perl-5.20.0/lib/site_perl/5.20.0/Test/Reporter/Transport/Metabase.pm line 132
        Test::Reporter::Transport::Metabase::send(Test::Reporter::Transport::Metabase=HASH(0x7fa396afb1d0), Test::Reporter=HASH(0x7fa396b0abc8)) called at /Users/stas/perl5/perlbrew/perls/perl-5.20.0/lib/site_perl/5.20.0/Test/Reporter.pm line 271
        eval {...} called at /Users/stas/perl5/perlbrew/perls/perl-5.20.

creaktive

From 1efc750d75bb98271b0c586b806a89b8a0f22127 Mon Sep 17 00:00:00 2001
From: Stanislaw Pusep <creaktive@gmail.com>
Date: Thu, 24 Jul 2014 14:38:27 +0200
Subject: [PATCH] Started work on "Remove the use of SVs as temporaries in
 dump.c"

Picked this yak from Porting/todo.pod :)
This is a work in progress, some functions still use newSV*.
Also, a cleanup is planned (_sv_catpv/_sv_cpypv macros will be removed).
---

creaktive

// to compile: gcc testrtl.c -o testrtl -lrtlsdr -lfftw3 -lm


#include <complex.h>
#include <fftw3.h>
#include <rtl-sdr.h>
#include <stdlib.h>
#include <math.h>

creaktive

#!/usr/bin/env perl
use 5.010;
use strict;
use warnings;

use Carp qw(croak);
use Fcntl qw(:DEFAULT);
use List::MoreUtils qw(pairwise);
use Math::Complex;

creaktive

#!/usr/bin/env perl
use strict;
use warnings qw(all);

use IO::Socket;
use IPC::Run qw(harness pump);

my @command = ('cat');
my ($in, $out, $err);
my $h = harness \@command, \$in, \$out, \$err;