История изменений

#!/usr/bin/env perl

open my $in,  '<:encoding(UTF-8)', './vxod.txt';
open my $out, '>:encoding(UTF-8)', './vyxod.txt';
$t = time();
while ( <$in>) {
    print $out s/( \w* ) \K \W+ \1 //xr;
}
$t2 = time()-$t;
print "Perform time: $t2 seconds\n"

#!/usr/bin/perl

open D, 'vxod.txt';
open V, '>vyxod.txt';

$t = time();
while (<D>) {
  s/([^+\s]*?)([^+\s]*)[\s+]+\2/$1$2/;
  print V;
  }
$t2 = time()-$t;
print "Perform time: $t2 seconds\n"

#!/usr/bin/env perl

open my $in,  '<:encoding(UTF-8)', './vxod.txt';
open my $out, '>:encoding(UTF-8)', './vyxod.txt';
$t = time();
while ( <$in>) {
    print $out s/( \w* ) \K \W+ \1 //xr;
}
$t2 = time()-$t;
print "Perform time: $t2 seconds\n"

#!/usr/bin/perl

open D, 'vxod.txt';
open V, '>vyxod.txt';

$t = time();
while (<D>) {
  s/([^+\s]*?)([^+\s]*)[\s+]+\2/$1$2/;
  print V;
  }
$t2 = time()-$t;
print "Perform time: $t2 seconds\n"