Skip to content

Instantly share code, notes, and snippets.

@paveljurca

paveljurca/excel_helper.pl

Created December 6, 2017 15:24
Show Gist options
  • Save paveljurca/f72738a313b0f0177cea196525ea2dc1 to your computer and use it in GitHub Desktop.
Save paveljurca/f72738a313b0f0177cea196525ea2dc1 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
excel_helper.pl
use open qw/:std :utf8/;
use utf8;
#use v5.14.2;
#31
my @cols = (B..Z,"AA","AB","AC","AD","AE","AF");
my $fn = q[KDYŽ(*7="D";12;KDYŽ(*7="N";12;KDYŽ(*7="R6";6;KDYŽ(*7="O6";6;*7))));];
print q[=SUMA(];
#30 dni
#foreach (@cols[0..29]) {
#28 dni
#foreach (@cols[0..27]) {
#31 dni
foreach (@cols) {
print $fn =~ s/\*/$_/gr;
}
print q[)];
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment