Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

use Perl Log In

Log In

[ Create a new account ]

chaoticset (2105)

chaoticset
  (email not shown publicly)
http://chaoticset.perlmonk.org/
AOL IM: chaoticset23 (Add Buddy, Send Message)
Yahoo! ID: illuminatus_foil (Add User, Send Message)

JAPH. (That's right -- I'm not Really Inexperienced any more.)

I'm not just here, I'm here [perlmonks.org], and here [javajunkies.org] too, I ramble randomly in my philosophical blog [blogspot.com] and my other blog [blogspot.com]. Soon I'll come in a convenient six-pack.

Journal of chaoticset (2105)

Saturday October 06, 2001
04:49 PM

Busy

[ #903 ]
Although not busy with what I want to be busy with, not until a few minutes ago.

I've thrown the code in, and it doesn't work (shock!) so now I set to the task of debugging the shit out of it.

sub insert_cards {
foreach $newcard (@newcards) {
$newcardname = $newcard =~ /^.+?:/;
foreach $card (@cards) {
$cardname = $card =~ /^.+?:/;
if ($newcardname eq $cardname) {
$newstock = $newcard =~ /:.+?:/;
$stock = $card =~ /:.+?:/;
$stock = $stock + $newstock;
$card =~ s/:.+?:/:$stock:/;
}
@cards = (@cards, $newcard);
}
}
}

By the time it gets here, @newcards has a list of all the cards that are going into the file, and @cards has a list that's already in there. The format is

name:stock:shown

I know - why should you care?

You shouldn't.

Consider it a puzzle if you're bored. Don't tell me the answer - I'll get it eventually, and I need to figure it out myself.

That, plus, it's thought documentation for me (and pretty sloppy thought, really.)

Hopefully working through the night will get this thing fixed (finally!)