Re: "We ran out of columns"

Question

Modern::Perl

Re: "We ran out of columns"

Probably some of the worst code I ever worked on was a 12k+ line single file Perl script for dealing with Human Genome Project data, at Bristol-Myers Squibb, in the late 1990s.

The primary author of it didn't know about arrays. I'm not sure if he didn't know about them being something that had already been invented, or whether he just didn't know Perl supported them, but either way, he reimplemented them himself on top of scalars (strings), using $foo and $foo_offsets. For example, $foo might be "romemcintoshgranny smithdelicious" and $foo_offsets = "000004012024", where he assumes the offsets are 3 digits each. And then he loops through slices (how does he know about slices, but not arrays?) of $foo_offsets to get the locations for $foo.

By the time I was done refactoring that 12k+ was down to about 200 ... and it still passed all the tests and ran analyses identically.

dmd, 1 day ago

#perl #programming #russian

0

05.08.2024

1 ответов

21 просмотр

m҉a҉d҉c҉o҉r҉e҉ · Accepted Answer

m҉a҉d҉c҉o҉r҉e҉

может тогда строки работали быстрее массивов? ну и памяти меньше

0

3 месяца назад

169 похожих чатов

Re: "We ran out of columns"

1 ответов

Похожие вопросы