Perl creating files

[mike101]

Hey everyone. I need to make it so that a perl script can create a text file so that when a user signs up it will make a txt file named username.txt with username of course the username part being the username (duh lol). But I just need the script to make that and it will be added to the sign-up script and called as a sub. If you can just show me a script that can do this I can modify it to put it into my script. Thanks everyone.

 

[vcherubini]

Here ya go:

[tt]

sub adduser {
open(FILE,">>username.txt&quot || die("failed to open file: $!"
flock(FILE);
print FILE $FORM{'username'}."|";
print FILE $FORM{'password'};
close(FILE);
}

[/tt]

The code does this:

Opens the file, creates a new one if it doesn't exist, or appends to the file if it exists. It dies if something went wrong and reports the line number on which it did.
Then you lock the file so that it can't be opened more than once. Then you print to the file using the filehandle that you defined in the open() function. The %FORM hash should be changed to whatever you have on your site (assuming you are not using CGI.pm). Then, after you are done with using the file, you close it.

Hope this helps.

-Vic vic cherubini
krs-one@cnunited.com

http://www.cnunited.com

====
Knows: Perl, HTML, JavScript, C/C++, PHP, Flash
====

 

[mike101]

So if I want to have the script only create a file without actually writing to it I just get rid of these 2 lines?

print FILE $FORM{'username'}."|";
print FILE $FORM{'password'};

Or what? I just need it to create a file and I can put a variable in as the name of the file to be created which will be called $user but I want the new file blank. Thanks for your help if you can please help me out again that would be perfect.