#storable

[tdate-in-blog]

Order home made chutney powder and ready to eat items on our online store and support #MadeinIndia products.. #homemade #ready2eat #healthy #storable #chutneypowder Shop at -> https://tdate.in #VocalForLocal #SupportLocal #bevocalsupportlocal (at Bangalore, India) https://www.instagram.com/p/CCQzasbApPT/?igshid=1afwmjkz37ceu

[yesimstarterlove]

Free Shipping Notched Sliding Winch Storable

Free Shipping Notched Sliding Winch Storable

Shop for Notched Sliding Winch Storable choose our fantastic deals and get your product today with a big discount. Read detail information about this product below:

Notched Sliding Winch Storable Detail Features and Description :

Features

All Straps rated and tagged to meet or exceed DOT, CHP, & TC requirements.

Winches are seamless 1-piece mandrel w/ smooth web slot extends useful life of…

View On WordPress

[codecouch-blog]

more map (+ Storable, Dumper)

my %alphabets = (     'AAA' => [ qw( aaa bbb ccc ) ],     'BBB' => [ qw( bbb ddd eee ggg iii ) ],     'CCC' => [ qw( fff ggg hhh ttt ) ],     ); my @fewer_than_4_items = grep @{ $alphabets{ $_ } } < 4, keys %alphabets; my @list_has_bbb = grep {   my @list = @{ $alphabets{ $_ } };   grep $_ eq 'bbb', @list;        # returns count of the items found } keys %alphabets; say "@fewer_than_4_items";        # AAA say "@list_has_bbb";                    # BBB AAA

my @remapped_ABC = map {   # transforms hash to array below       [ $_ => $alphabets{ $_ } ]    # [ $_, $alphabets{ $_ } ]      the same as above    } keys %alphabets;$

equals: @remapped_ABC = ( [ 'AAA', [ 'aaa' 'bbb' 'ccc' ]],                                                 [ 'BBB', [ 'bbb', 'ddd', 'eee', 'ggg', 'iii' ]],                                                 [ 'CCC', [ qw( fff ggg hhh ttt) ]], )

the following map transforms %alphabet to anonymous arrays of key-1value pairs:

 my @ABC_with_items = map {  # saving $_ so that the inner map's $_ won't get messed up         my $abc = $_; # saving list of items - visual aid         my @items = @{ $alphabets{$abc} }; # this map creates a list of anon arrays using #+ the anonymous array constructor         map [$abc => $_], @items;  # === map [$abc,$_], @items } keys %alphabets;

we can dump the data with Data::Dumper or store/retrieve it from file:

use Data::Dumper; print Dumper(\@ABC_with_items);   # produces $VAR1 below use Storable; store \@ABC_with_items, 'ABCfile';   # stores variable in ABCfile (current dir)

# to retrieve it: my $restored = retrieve 'ABCfile';

# to check retrieved vars: $Data::Dumper::Purity = 1;       # declare possibly self-referencing structs print Dumper( $restored );

$VAR1 = [           [ 'CCC', 'fff' ],           [ 'CCC', 'ggg' ],           [ 'CCC', 'hhh'],           [ 'CCC', 'ttt' ],           [ 'BBB', 'bbb' ],           [ 'BBB', 'ddd' ],           [ 'BBB', 'eee' ],           [ 'BBB', 'ggg' ],           [ 'BBB', 'iii' ],           [ 'AAA', 'aaa' ],           [ 'AAA', 'bbb' ],           [ 'AAA', 'ccc' ] ];

[codecouch-blog]

processing coconet.dat + Storable

There is no need to create a humongous log-file -> the code below always updates the saved core variable, updating it with the results of the next logfile.

coconet.dat can be downloaded from here The code below produces the following output:

        fileserver.copyroom.hut sent the total of 770174 bytes.         fileserver.copyroom.hut => lovey.howell.hut: 160986 bytes         fileserver.copyroom.hut => professor.hut: 146975 bytes         fileserver.copyroom.hut => ginger.girl.hut: 103478 bytes         fileserver.copyroom.hut => maryann.girl.hut: 99261 bytes         fileserver.copyroom.hut => skipper.crew.hut: 88261 bytes         fileserver.copyroom.hut => thurston.howell.hut: 86084 bytes         fileserver.copyroom.hut => gilligan.crew.hut: 85129 bytes

This one of the excercises from O'Reilly's Intermediate Perl.

use Storable;

my %total_bytes; my $all = "***all machines***";

my $data_file = "total_bytes.data";

# If file exists then restoring var to %total_bytes and appending #+ the data from the "current" logfile, and saving all at the end if (-e $data_file) {                           my $data = retrieve $data_file;   %total_bytes = %$data; }

while (<>) {      next if /^#/;   my ( $source, $destination, $bytes ) = split;   $total_bytes{ $source }{ $destination } += $bytes;   $total_bytes{ $source }{ $all } += $bytes; }

store \%total_bytes, $data_file;

################################### # this sort could be directly copied into for loop's (), # but it is more comprehensible this way ################################### my @sources = sort {      $total_bytes{ $b }{ $all } <=> $total_bytes{ $a }{ $all }      } keys %total_bytes; for my $source ( @sources ) { ################################### # using the $tb as shortcut simplifies the code ###################################   my $tb = $total_bytes{ $source };   print "$source sent the total of $tb->{ $all } bytes.\n";

################################### # sorting the destinations by transfered data in descending # order and using the results in the INNER for loop ###################################   my @destinations = sort {         $tb->{ $b } <=> $tb->{ $a }         } keys %$tb;   for my $destination ( @destinations ) { ################################### # the sort above takes not only the destination hosts but $all as well  # as it is also a unique key among the hostnames ###################################     next if $destination eq $all;     print "\t$source => $destination: $tb->{ $destination } bytes\n";   } print "\n"; }

[teckl-blog]

>常にnstoreとnfreezeを使う事。storeとfreezeではなく。