Re: how to create a LO spreadsheet

2015-04-27 Thread Vincent Lequertier
that helps. -- Vincent Lequertier s...@riseup.net -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

Re: how to create a LO spreadsheet

2015-04-29 Thread Vincent Lequertier
Le 28/04/2015 21:23, lee a écrit : > Vincent Lequertier writes: > >> Le 2015-04-26 14:27, lee a écrit : >>> Hi, >>> >>> how can I create a libreoffice spreadsheet with perl? There seem to be >>> two modules for it, yet none of them seems to let

Re: Not working example - from Mastering Perl book

2015-05-03 Thread Vincent Lequertier
it gave the following result: > > I'm from package main > My name is glob > I'm from package main > My name is glob > > So it doesn't print the original name of the typeglob (foo or bar). > Is the code above working for you as wrote in the book? > > --Octavian > > -- Vincent Lequertier s...@riseup.net -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

Re: Perl array question

2015-05-06 Thread Vincent Lequertier
$num1900 = 'EARFCN=1900, PCID='; my $num1902 = 'EARFCN=1902, PCID='; for (@array) { # print $_ . "\n"; $num1900 .= (split '-', $_)[1] . '&' if $_ =~ /1900/; $num1902 .= (split '-', $_)[1] . '&' if $_ =~

Re: Perl array question

2015-05-06 Thread Vincent Lequertier
Thank you for the review, I'm learning and didn't know about this way of using hashes :-) --- Vincent Lequertier s...@riseup.net Le 2015-05-06 11:09, Shlomi Fish a écrit : Hi Vincent, On Wed, 06 May 2015 10:07:41 +0200 Vincent Lequertier wrote: It's a bit ugly, but here i

Re: last statement in a package

2015-05-21 Thread Vincent Lequertier
From http://perldoc.perl.org/perlmod.html#Perl-Modules, "1;" is used to end with a true value --- Vincent Lequertier s...@riseup.net Le 2015-05-21 08:13, Sunita Pradhan a écrit : Hi Why a perl programmer use 1 or any number as last statement in module or package (like : 1;)?I check

Re: How to check the index positions of an array element in perl in case of multiple occurance

2015-06-16 Thread Vincent Lequertier
tn_2 tn_3 tn_4 tn_5 tn_6 tn_7 > tn7bcch tnbcch tsc userdata ch_group_15 chgr_tg chgr_state band bccd > bspwrt cbch ccch dchno_0 dchno_1 dchno_2 dchno_3 dchno_4 dchno_5 dchno_6 > dchno_7 dchno_8 dchno_9 dchno_10 dchno_11 dchno_12 dchno_13 dchno_14 > dchno_15 dchno_16 dchno_17 dchno_18 dchn

Display a hash in the order of an array

2015-07-17 Thread Vincent Lequertier
7; => 'xxx.xxx.xxx.xxx', 'action' => 'GET xxx' }; and an array of ip addresses, say @ip My question is how can I display the content of %hash in the order of @ip, assuming %hash has the same length as @ip ? Thank you -- Vincent Lequertier v

Re: Display a hash in the order of an array

2015-07-20 Thread Vincent Lequertier
$_->[0] } sort { $a->[1] <=> $b->[1] } map { [$_, int sprintf("%03.f%03.f%03.f%03.f", split(/\./, $_))] } @ip; } So I'm looking for a way to iterate through the hash in the order of my array. Regards -- Vincent Lequertier v

Re: Display a hash in the order of an array

2015-07-20 Thread Vincent Lequertier
Thank you, I thought about transforming my hash like your function transform_date_logs_to_ip_logs does but didn't found the way. I'm now trying to understand exactly how that works :-) -- Vincent Lequertier vincentlequertier.tk Le 2015-07-17 16:40, Brandon McCaig a écrit : Vincen

Re: Display a hash in the order of an array

2015-07-20 Thread Vincent Lequertier
t;{ip}}}, {$key, $value}; } #print Dumper \%ordered; my $i = 1; for my $key (keys %ordered) { print "ip number $i : $key\n"; for my $entry (@{$ordered{$key}}) { print $entry . "\n"; } ++$i; } But this module seems to be the way to go. -- Vincent

Re: Display a hash in the order of an array

2015-07-21 Thread Vincent Lequertier
Le 2015-07-20 16:49, Charles DeRykus a écrit : On Mon, Jul 20, 2015 at 6:19 AM, Vincent Lequertier wrote: Thank you for the help, Charles! Unfortunately, I'm not able to figure out how to access the element of %ordered, despite some diggings in the perldoc (http://perldoc.per

Problems displaying Perl structures

2016-02-17 Thread Vincent Lequertier
] } ]; How can I have the following output? ,"10.100.29.0/24" ,10.100.27.52 ,10.100.27.53 ,10.100.27.54 ,10.100.27.55 ,10.100.27.56 ,10.100.27.57 Here is what I've tried: for my $table (@tables) { foreach my $entry ($table->{ips}) {

Re: Problems displaying Perl structures

2016-02-17 Thread Vincent Lequertier
$key, $value) = each %$VAR1) { # $key has group5 for intance, > and $value its value. > >$count += 1; > >$output = "\\,$value\n"; >print $output; > > } > > exit; > > Cheers, > > Miguel > > Este e-mail foi enviado a partir

Re: Problems displaying Perl structures

2016-02-17 Thread Vincent Lequertier
Didn't know about 2) and 5) thanks. Looping over the values makes sense as well. Regards, Le 17/02/2016 15:31, Shlomi Fish a écrit : > Hi Vincent, > > some comments on your code: > > On Wed, 17 Feb 2016 14:24:28 +0100 > Vincent Lequertier wrote: > >> Than

Re: Problems displaying Perl structures

2016-02-22 Thread Vincent Lequertier
Le 18/02/2016 08:24, $Bill a écrit : > On 2/17/2016 03:15, Vincent Lequertier wrote: >> > > I'd get rid of the '$'s in front of '$group1' etc to avoid the '$ip =~ > s/^\$//;' below. > >> How can I have the following out

How to append to a file in a Archive::Zip object ?

2016-10-21 Thread Vincent Lequertier
commands being appended to a 'test' file, into the zip. How can I do this properly ? I mean without having to create a temp file with a filehandle with all the output and adding the file to the zip after the for loop. Any help would be appreciated. Thanks -- Vincent Lequertier skysy

Re: How to append to a file in a Archive::Zip object ?

2016-10-24 Thread Vincent Lequertier
On 10/22/2016 06:56 PM, Eric de Hont wrote: > Op 21-10-16 om 14:13 schreef Vincent Lequertier: >> This code creates a zip file which contains several files, all named >> 'test'. The thing I'm trying to achieve is to have all the output of >> commands being app