Can anyone help me?

Here is what I am trying to do:

open (DB, ">/databases/test.txt");
if ($db_use_flock) { flock(DB, 1); }

@data=<DB>;
close(DB);

foreach $line(@data) {
@ThisLine = split(/\|/,$line);
$Name = $ThisLine[2];
}

Example database format:

01|5|Joe Cool

I then call it using $Name.

Example: My name is $Name should print: My name is Joe Cool

However, I get nothing!

What am I doing wrong or what am I missing? This is driving me nuts and it is probably something simple!

By the way, for testing purposes, I have the databases directory and the test.txt permisssions set to 777, if that matters. Also, the database is only 1 line of delimited data.

Thanks!

Try testng the result of the open

open (DB, ">/databases/test.txt") or die "Error: $!";

You probably have the wrong path, or wrong permissions on the file

How about something like;


Just a bit more error checking, and a few line savers (although I'm sure Paul could do better ).

Cheers

Andy (mod)
andy@ultranerds.co.uk

---

Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package | GLinks ULTRA Package PRO
Links SQL Plugins | Website Design and SEO | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!

Mark and Andy,

Thanks!

Andy, you were right....I had to remove the first / in my database path. I did not even notice I had it there so I was never opening the databas!

Mark, thanks for your code. It works too and is another way to do it.

Good job!