THE BORE
General => The Superdeep Borehole => Topic started by: T234 on April 09, 2008, 04:25:23 PM
-
#pgm8.pl
use AAdb;
print "enter a file \n";
$filename = <>;
my(%db) = &load_db($filename);
#print "$count";
print "$db{0}";
######################################
#AAdb.pm
require Exporter;
@ISA = ("Exporter");
@EXPORT = ("load_db");
sub load_db
{
open (DB, "$filename");
%db = <DB>;
$count = 0;
#while (<DB>) {
#chomp;
#print "$db{$count}\n";
#++$count;
#}
close (DB);
return ("%db");
}
1;
##################################
#testdb
"08"=>"Thor",
"09"=>"HULK"
FUUUUUUUUUUUUUUUUUUUUCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCKKKKKKKKKKKKKKKKK
WHY WON'T YOU GO INTO YOUR HASH, WHY testdb WHY
-
Shit's easy lol. Look at it again.
-
Do you do this for a living or are you still in college yet cause like everyday you have a "TEH BINARY RAPES MY CORNHOLE" thread. Just wondering is all. :-*
-
how many hours this time?
-
Nah that code is easy, T234 just sucks, take up fingerpainting, noob
-
Shit's easy lol. Look at it again.
I DON'T KNOW WHAT THE PROBLEM IS
-
2 HOURS BECAUSE I DON'T WHAT THE FUCK I AM DOING
-
WHERE IS THE MISTAKE, NET PROGRAMMER TOUGH GUYS
-
you won't learn if we helped lol good luck
-
oh god nm, i hafta split the lines myself
i just :( :o ??? :'( >:( >:( >:( :-\