diff options
author | Louie Shprung <lshprung@scu.edu> | 2022-10-16 15:29:30 -0700 |
---|---|---|
committer | Louie Shprung <lshprung@scu.edu> | 2022-10-16 15:29:30 -0700 |
commit | bdd5f5f164e62ccdfe5c83e4eab30f4029606058 (patch) | |
tree | aaef7c0472d1c18a32865cff05465b47cff6b93b /flashcards.plx | |
parent | df33f5c279f5561235f27f1107d7b3b7df619c93 (diff) |
Diffstat (limited to 'flashcards.plx')
-rwxr-xr-x | flashcards.plx | 20 |
1 files changed, 15 insertions, 5 deletions
diff --git a/flashcards.plx b/flashcards.plx index 7671812..bc6e8f2 100755 --- a/flashcards.plx +++ b/flashcards.plx @@ -78,10 +78,20 @@ while($line = <$fh>) { close($fh); # Go through each card (automatically shuffled!) -foreach my $k (keys %cards) { - print "$k\n"; +while(scalar %cards > 0) { + print scalar %cards . " cards remaining\n"; readline(STDIN); - print "$cards{$k}\n"; - readline(STDIN); - print "\n"; + foreach my $k (keys %cards) { + print "$k\n"; + readline(STDIN); + print "$cards{$k}\n"; + + # Check if card should be placed back in deck or discarded + print "Discard? [Y/n] "; + $line = readline(STDIN); + if(!($line =~ /[nN].*/)) { + delete $cards{$k}; + } + print "\n"; + } } |