Reading Txt files

Tempestshade · #1 (**permalink**) 01-17-05, 07:23 PM

Ok i have a text file with info in the following format

Code:

username:password:rank:str:level:agi

lol that rough from the top of my head i use to use a code(now long forgotten) to sperate the usernamme,password etc into variables. so i can make like a login using a .txt file making sure that if username = theusername in the .txt file and the password = the password in the .txt can anyone help?

Chas · #2 (**permalink**) 01-19-05, 10:51 PM

Are you looking for help with the split command?

Code:

open DATA, ...
while (<DATA>) {
  my %user;
  @user(qw(username password rank str level agi)) = split /:/;
  # Code to auth below
  if ($user{'username'} == $username && $user{'password'} == $pass) { ... }
}

...or are you looking for working code?

~Charlie

Tempestshade · #3 (**permalink**) 01-20-05, 05:44 AM

that should work wonderfully thanks

Tempestshade · #4 (**permalink**) 01-20-05, 06:43 AM

lol nope that didn't work it gave errors got anything simpler? lol

Chas · #5 (**permalink**) 01-20-05, 09:50 AM

Well, that is just pseudocode. You need to fill in the blanks to make it work. You really didn't provide enough info nor do I have the time to write the code for you[1]. If you make an attempt at doing it yourself and you get stuck than I am more than willing to help. Give it a go and post back your code if you run into problems.

[1] If you want me to write the code for you send me the specs via PM and I'd be happy to provide you with a quote and turn around time. I'm pretty booked up with custom work at the moment though.

~Charlie

Tempestshade · #6 (**permalink**) 01-20-05, 10:20 AM

i filled in the blanks but i got the error
syntax error at index.cgi line 12, near "$pass

print"
Global symbol "@user" requires explicit package name at index.cgi line 21.
syntax error at index.cgi line 21, near "@user("
Global symbol "$username" requires explicit package name at index.cgi line 23.
Execution of index.cgi aborted due to compilation errors.

Chas · #7 (**permalink**) 01-20-05, 11:36 AM

Post your code for me. It looks like I might have goofed the hash splice.

~Charlie

Tempestshade · #8 (**permalink**) 01-20-05, 12:06 PM

#!/usr/bin/perl -wT
use strict;
use CGI ':standard';
use CGI::Carp qw(fatalsToBrowser);
print "content-type: text/html\n\n";

my $user = param('user');
my $pass

print <<"NO HTML";
<html>
<head>
<title>Tempest's Aim Sub Profile</title>
</head>
NO HTML
open (DATA, "users.db");
while (<DATA>) {
my %user;
@user(qw(username password hits)) = split /:/;
# Code to auth below
if ($user{'username'} == $username && $user{'password'} == $pass) {
print <<"NO HTML";
<h3>
Hello </h3>
NO HTML

}
}

Chas · #9 (**permalink**) 01-20-05, 01:35 PM

I used ('s in the hash slice instead of {'s...

Code:

#!/usr/bin/perl -wT
use strict;
use CGI; # ':standard';
use CGI::Carp qw(fatalsToBrowser);

my $in = CGI->new;

#my $username = $in->param('user');
#my $password = $in->param('pass');
my $username = "Charlie";
my $password = "pass";

print $in->header;
print "<html>\n<head>\n  <title>Tempest's Aim Sub Profile</title>\n</head>\n";
print "<body>\n";

my %user;
#open (DATA, "users.db") or die "Failed to read-open DB: $!";
while (<DATA>) {
  %user = ();
  @user{qw(username password hits)} = split /:/;
  if ($user{'username'} eq $username && $user{'password'} eq $password) {
    print "<h3>Hello $user{'username'}</h3>\n";
  }
  # Or if you just want to grab the user data for later use
  #last if ($user{'username'} eq $username && $user{'password'} eq $password)
}
print "</body>\n";

__DATA__
username:password:rank:str:level:agi
Charlie:pass:general:100:100:100

~Charlie

Tempestshade · #10 (**permalink**) 01-20-05, 01:52 PM

ok that don't give me any errors but what would the link look like? www.scriptlink.com/index.cgi?WHAT HERE?