scratch/y.pl
changeset 137 dd11d1262b6c
parent 136 a5d087334439
child 138 790ac145bccc
--- a/scratch/y.pl	Sat Jul 25 17:16:13 2015 +0200
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,80 +0,0 @@
-#!/usr/bin/perl
-use 5.010;
-use strict;
-use warnings;
-use Crypt::CBC;
-use autodie qw(:all);
-use Benchmark qw(:all);
-use File::Temp;
-
-my $tmp = File::Temp->new();
-
-{ 
-    open(my $fh, "/dev/urandom");
-    local $/ = \(my $x = 1024 * 1024);	# 1 MiB
-    for (1 .. 4) {
-	print {$tmp} scalar <$fh>;
-    }
-}
-
-sub getbyref {
-    my $ref = shift;
-    local $/ = undef;
-    seek($tmp, 0, 0);
-    $$ref = <$tmp>;
-}
-
-sub getbyval {
-    seek($tmp, 0, 0);
-    local $/ = undef;
-    return <$tmp>;
-}
-
-cmpthese(900 => {
-    byref => sub { my $x; getbyref(\$x); $_ = length($x) },
-    byval => sub { my $x = getbyval(); $_ = length($x) },
-    }
-);
-
-
-
-__END__
-
-
-
-cmpthese(30 => {
-    'openssl' => sub { openssl($text) },
-    'perlssl' => sub { perlssl($text) },
-    }
-);
-
-cmpthese(30 => {
-    'gzip' => sub { bingzip($text) },
-    'perlzip' => sub { perlzip($text) },
-    }
-);
-
-sub openssl {
-    open(my $out, "|openssl bf -pass env:X -out $tmp") or die;
-    print $out $_[0];
-    close $out;
-    die $? if $?;
-}
-
-sub perlssl {
-    open(my $out, ">$tmp");
-    print $out $cipher0->encrypt($_[0]);
-    close $out;
-}
-
-sub perlzip {
-    open(my $out, ">$tmp");
-    gzip($_[0] => $out);
-}
-
-sub bingzip {
-    open(my $out, "|gzip -1 >$tmp");
-    print $out $_[0];
-    close $out;
-    die $? if $?
-}