bluesaxman/deckard-and-company
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Minor space corrections, and removal of reap function in favor of native splice

Browse Source
This commit is contained in:
bluesaxman 2020-09-11 17:58:11 -06:00
parent 9a2d6309b7
commit 0b63299d31
1 changed files with 5 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
Server/server.pl
View File

@ -127,22 +127,9 @@ sub addPool {
$sessions{$sessionID}{"pools"}{$poolID} = { name => "$poolID", cards => [] }; $sessions{$sessionID}{"pools"}{$poolID} = { name => "$poolID", cards => [] };
} }
sub reapCards {
my $arrayRef = $_[0];
my @reapedCards = ();
print "Reaping cards";
while(@{$arrayRef}) {
push(@reapedCards,shift(@{$arrayRef}));
print ".";
}
print "Done\nReaped:";
print join(", ",@reapedCards)."\n";
return @reapedCards;
}
sub delPool { sub delPool {
my ($sessionID,$poolID) = @_; my ($sessionID,$poolID) = @_;
my @reapedCards = reapCards(\@{$sessions{$sessionID}{"pools"}{$poolID}->{cards}}); my @reapedCards = splice($sessions{$sessionID}{"pools"}{$poolID}{cards});
delete($sessions{$sessionID}{"pools"}{$poolID}); delete($sessions{$sessionID}{"pools"}{$poolID});
return @reapedCards; return @reapedCards;
} }
@ -202,7 +189,7 @@ sub addHand {
sub delHand { sub delHand {
my ($sessionID, $userID, $handID) = @_; my ($sessionID, $userID, $handID) = @_;
my @leftoverCards = reapCards(\@{$sessions{$sessionID}{"users"}{$userID}->{hands}{$handID}->{cards}}); my @leftoverCards = splice($sessions{$sessionID}{"users"}{$userID}->{hands}{$handID}->{cards});
delete($sessions{$sessionID}{"users"}{$userID}{hands}{$handID}); delete($sessions{$sessionID}{"users"}{$userID}{hands}{$handID});
return @leftoverCards; return @leftoverCards;
} }