The Nineteenth Byte

Anonymous

12:00 AM

but I don't want to write one by one all the indexes... and I know how to select a subset of a normal array

Anonymous

but I just can't figure out the syntax for selecting 2..16 from an anon array

Anonymous

$notas{$currentasig}{'primersemestre'}{'notas'} = [$rows]; # but i don't want the whole $rows... just 2 through 16... damn

PhiNotPi

So, $rows gives the pointer to an anonymous array?

Anonymous

yes

Anonymous

I've tried countless permutations, copying that array into something normal, etc

Anonymous

12:01 AM

I think I'm failing at something pretty darn obvious, syntactically

PhiNotPi

To get an Nth entry, I think it's ${$row}[N]

Anonymous

I still stand firmly on how perl is a beautiful language

Anonymous

@PhiNotPi i'll try

Martin Büttner

@orlp not again...

orlp

@MartinBüttner ?

PhiNotPi

12:03 AM

But I don't know how to get a range.... I'll search for that

Anonymous

$notas{$currentasig}{'primersemestre'}{'notas'} = [${$rows}[2..16]]; should work then?

Martin Büttner

@orlp it would be a standard loophole if cat actually met our requirements for being considered a programming language

Anonymous

heh nope it did not

orlp

@MartinBüttner it was more of a joke

PhiNotPi

Try without the outer square brackets on the right?

Anonymous

12:04 AM

you mean $notas{$currentasig}{'primersemestre'}{'notas'} = [${$rows}2..16]; ?

PhiNotPi

No, the outer ones.

Martin Büttner

@orlp the sad truth, some people still try to get away with stuff like that :P

PhiNotPi

${$rows}[2..16];

Anonymous

the outer make it so that it feeds the whole array into it... without them I only got the cardinality of the array rather than its contents... but will try anyway

Anonymous

nope, didn't work again

PhiNotPi

12:06 AM

Hmm... yeah... I can't remember much about anonymous arrays then.

Anonymous

i mean i can just do it manually i guess and screw fanciness...

Anonymous

but where's the fun in that

PhiNotPi

Well. I think there might also be problems in the way that you are accessing it in other parts of the program.

Anonymous

@PhiNotPi why?

PhiNotPi

[stuff] returns the memory address of the array.

So, in other parts of the program $notas{thing}{thing}{thing} won't give the array, it will give the address of the array.

Anonymous

12:09 AM

@PhiNotPi but it works haha... I had a little json file with the parsed table

Anonymous

I just feed the whole hash into Mojo::JSON and there I go

Anonymous

a neat representation of the obfuscated data in that table

PhiNotPi

Check out this program I wrote: codegolf.stackexchange.com/a/16274/2867

Anonymous

my eyes... they bleed

PhiNotPi

Of course, I don't know if I could replicate that feat today without re-researching a bunch of stuff.

Calvin's Hobbies

12:12 AM

@randomra You probably want to set pagesize=100 and you'll still need to check hasMore to do it properly

Anonymous

@PhiNotPi is perlmonks code golf site still active?

Anonymous

you should be there haha

PhiNotPi

I don't know.

I don't think I'm actually that good at Perl code golf.

Calvin's Hobbies

@randomra I'd argue that a JavaScript solution looks much simpler.

Anonymous

@PhiNotPi why would you say that

Calvin's Hobbies

12:14 AM

Though yours probably does stuff mine isn't bothering with

PhiNotPi

Back to your problem, this is where I would insert a ton of debugging outputs.

Anonymous

@PhiNotPi data::dumper all the day

Anonymous

i just did an ugly, ugly hack

Anonymous

but it works

PhiNotPi

Have it print $rows, ${$rows}, ${$rows}[2..16] etc.

"ugly, ugly hack" You're probably doing it right.

Anonymous

12:20 AM

it's perl... there's always someone who has done a worse job than me at keeping his codebase tidy

Anonymous

also, what I'm doing is just a little PoC, I can just tidy it up later

Anonymous

@PhiNotPi did you read blog.booking.com/making-perl-faster.html?

PhiNotPi

I have now...

Anonymous

@PhiNotPi also, do you think this code is unreadable and/or too much of a mess?

PhiNotPi

12:35 AM

Since I only know what that one line is, I can't really say.

Anonymous

12:53 AM

@PhiNotPi lol i forgot to link it: github.com/superpatosainz/cvd/blob/master/extractdata.pl

PhiNotPi

I would probably write some of this as a For loop or something:

			if ($rows->[13] ne '-') { push(@notassegundo, $rows->[13]); }
			if ($rows->[14] ne '-') { push(@notassegundo, $rows->[14]); }
			if ($rows->[15] ne '-') { push(@notassegundo, $rows->[15]); }
			if ($rows->[16] ne '-') { push(@notassegundo, $rows->[16]); }

Anonymous

@PhiNotPi that's kinda what I wanted to avoid with my question

Anonymous

hence the ugly hack

PhiNotPi

For loops aren't that bad, are they?

Anonymous

@PhiNotPi oh let me rephrase: I wanted to avoid if if if if if

Anonymous

1:01 AM

how would you implement that in a for loop that only iterates from indexes 2 through 16?

PhiNotPi

for (my $i=2; $i <= 16; $i++) {
     if ($rows->[$i] ne '-') { push(@notassegundo, $rows->[$i]); }
}

If you want to make it a little more hack-y, you could use the default variable $_ instead of $i.

for (2..16) {
    if ($rows->[$_] ne '-') { push(@notassegundo, $rows->[$_]); }
}

Anonymous

@PhiNotPi immediately thought of $_

Anonymous

well I just tested it-- works as intented. thanks!

Anonymous

over a year since I last coded... some tricks are forgotten with ease

Anonymous

this table took 90 lines to parse... god and I thought it'd be worse

PhiNotPi

1:39 AM

@PatoSáinz You can also do for loops like this:

 for my $i (2..16) {code}

Anonymous

@PhiNotPi hmm that's succint

Anonymous

but I think I'll keep the expresiveness of (my $i=2; $i <= 16; $i++)

PhiNotPi

Normally this is called a "foreach" loop. In Perl, for and foreach are literally the same thing.

Anonymous

@PhiNotPi yes! I actually use foreach a lot more than for

Anonymous

by the way, I tried a couple of other tables with the same layout and the script has holded up

Anonymous

1:42 AM

thanks for everything @PhiNotPi

Anonymous

tomorrow: fiddler fun in order to intercept the login process of the site where I extract my tables

PhiNotPi

Have fun!

Anonymous

thanks!

Anonymous

My final objective is to have a little web frontend with statistics derived from the data I extracted from these tables

New Main Posts

2:49 AM

0

Q: Compute the Resistance of a 4 Band Color Coded Resistor

Resistors commonly have color coded bands that are used to identify their resistance in Ohms. In this challenge we'll only consider the normal 4-band, tan, axial-lead resistors. We'll express them as: xyzt Where x is the first band for the first significant figure, y is the second band for the...

New Main Posts

4:52 AM

0

Q: Minimum in Python

What is the shortest amount of code that can find the minimum of an inputted polynomial? I realize that you can import packages like Numpy and others, but using only user defined functions, what is the shortest way to do this? For example, if 6x6 + 4x3-12 is entered (ignore parsing issues), what ...

Transcript for