Select Code to Download

piggybank/brother.csv
piggybank/sister.csv
piggybank/mother.csv
piggybank/test.csv

deposit;1
beer;-30
beer;-20
won bet;200

deposit;1000
buy coffee;-20
buy lunch;-30
new shoes;-500
deposit;20

deposit;50
deposit;30
deposit;300
small car accident;-550

#!/usr/bin/env perl
use strict;
...
    
    print "Found data file $fname\n";
}

#!/usr/bin/env perl
use strict;
...
    }
    close $fh;
}

sometext;value

sub readAccount {
    my ($fname) = @_;
...
    close $fh;
    print "$fname balance: $balance\n";
}

#!/usr/bin/env perl
use strict;
...
    print "$fname balance: $balance\n";
    return $balance;
}

piggybank/brother.csv balance: 151
piggybank/test.csv is not a file!
piggybank/mother.csv balance: -170
piggybank/sister.csv balance: 470
Money left in the piggybank: 451