[Busby]

I need some more help w/ PERL. This time I don't know exactly what to do (I'm a newbie in PERL). What I want to do is search through a file and if the content of a variable is present then redirect to a page saying yuo've already registered, and then if it doesn't exist it writes info to the file and redirects to a different page.

[Philipp]

Just wrote a script:

Code:

$NAME = "Username"; # Example Variable

open(FILE, "member.dat"); # File
while&#40;<FILE>&#41; &#123;
$THIS_LINE=$_;
chomp&#40;$THIS_LINE&#41;;
if &#40;$THIS_LINE eq $NAME&#41; &#123; 
print "You are already registered"; 
exit;
&#125;
&#125;
close&#40;FILE&#41;;
open&#40;FILE, ">>member.dat"&#41;; # Write file if user is not on the list
print FILE "$NAME\n";
close&#40;FILE&#41;;
print "$NAME added to the list";
exit;
 

I hope that help you

[CUViper]

Philipp's script looks good to me, but I see two small things to fix if you use this. For one, that exit; in the middle of the script leaves the file open - you should insert a close(FILE); right before it. Also, whenever opening files, it is good practice to verify that the file was opened properly. To do this, just add a die statement, i.e. open(FILE, "member.dat") or die "Error - Couldn't open member.dat: $!";

I'm sure you know these things Philipp - I just thought that as a PERL newbie he should be aware of them...;)

[Busby]

I used a little different method but it still works

Code:

open(FILE,"../www/roster_info/roster.txt");
$exists++ if grep&#40;/$name/i,&#40;<FILE>&#41;&#41;;
close&#40;FILE&#41;;

if &#40;$exists&#41; &#123;

print "Content-type&#58; text/html\n\n"; 
print <<"EOF";

<meta http-equiv="refresh" content="0;url=http&#58;//www.reservoirdogs.net/roster_info/already.shtml">

EOF

&#125; else &#123;

After the else I have the original contents of the script so it checks first, then it decides whether or not to actually register you (this is for a LAN party registration).

*EDIT*
Got the other part I needed done.