Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Could SHA encode faster than MD5?

by bbs2web (Acolyte)
on Jun 20, 2020 at 14:19 UTC ( [id://11118270]=perlquestion: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
      export srcdev=`rbd map rbd_ssd/vm-277-disk-0`; [ -z $srcdev ] && exi
    +t 1   # eg: /dev/rbd47
      export dstdev=`rbd map rbd_ssd/vm-472-disk-0`; [ -z $dstdev ] && exi
    +t 1   # eg: /dev/rbd48
    ...
          read STDIN,$a,16;if ($a eq $b) {print "s"} else {print "c" . $_}
    +' $srcdev |
         perl -ne 'BEGIN{$/=\1} if ($_ eq"s") {$s++} else {if ($s) {
          seek STDOUT,$s*4194304,1; $s=0}; read ARGV,$buf,4194304; print $
    +buf}' 1<> $dstdev;
    
  2. or download this
      export remote='root@zajnb01-kvm5f.mirror.ad.company.co.za';
      export dstdev=`ssh -i /root/.ssh/rsync_rsa $remote "rbd map rbd_ssd/
    +vm-277-disk-0`; [ -z $srcdev ] && exit 1";
    ...
      ssh -i /root/.ssh/rsync_rsa $remote "lzop -dc |
       perl -ne 'BEGIN{\$/=\1} if (\$_ eq\"s\") {\$s++} else {if (\$s) {
        seek STDOUT,\$s*4194304,1; \$s=0}; read ARGV,\$buf,4194304; print 
    +\$buf}' 1<> $dstdev";
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://11118270]
Approved by johngg
Front-paged by Corion
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (4)
As of 2024-04-18 03:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found