Suzanne — Sun, 09 Apr 2000 18:03:00 +0000

Okay, I hate to leave anyone hanging (like everyone here is just waiting for me to explain what I am doing -- ha!)

This is what finally worked:

What I did was type in the first couple of lines of the database into the script (list), work out the rest of the script, then generate the .txt file that I will be using for the database using this code:

code:


open(IMGOUT, ">images.txt") or die "die! die!";
$allimages = @images;
for ($i = 0; $i < $allimages; $i += 1)
    { print IMGOUT "$allimages[$i][0]|
$allimages[$i][1]|
$allimages[$i][2]|
$allimages[$i][3]|
$allimages[$i][4]|
$allimages[$i][5]|
$allimages[$i][6]|\n"}
[/code]

Looked for where the program was putting the !@##$% file, found it, then replaced the listing in the program with this:

code:
@images = ();
open (INIMG, "images.txt") or die "\n\n\n Oh no! We are missing the most important file!  Images.txt! \n\n\n";
while(<INIMG> )
    {
    chomp;
    @eachimage = split(/\|/, $_, 7);
    push (@images, [ @eachimage ]);
    }

[/code]

And that, my friends, worked like a dream.

So now I am off to build the next step!

Thanks for all the very helpful looks and hints, and yes, <b>Fairhousing</b> I ended up scr4pping everything, using my own logic and it worked out in a couple of hours, not the few weeks it was taking!  yay!

     Suzanne

------------------
Zero Cattle
Suzanne
Tables DeMystified

Edited to stop the scroll -- the first code doesn't really have a hard return at the end of each list element -- it's strung together in real life.     

[This message has been edited by Suzanne (edited 09 April 2000).]

fairhousing — Tue, 04 Apr 2000 20:56:00 +0000

this is the reason i try to make my own scripts when i can. because when i try to hack up one of those free ones it can be harder than making my own because i've got no idea what the other person was thinking when they made the script, hehe.

don't worry Suzanne, i'm confused here too.

------------------
CLICK 4 some tested resources for making money $, hosting, and web promotions.
My Site got hacked, but i'm coming back?

Suzanne — Tue, 04 Apr 2000 17:46:00 +0000

Okay, so how do I tell the silly thing that it's in the same damn folder as the pl file?

Gddmn it I am going to get this included file thing straight, I know I will, but I am SO bloody frustrated. To test the rest of the script, I am just listing the whole list in the actual .pl file but I don't want to have it that way -- I want it separate.

Fairhousing -- split just breaks the file down into parts and feeds it into a list. So splitting fun|stuff|basketball|baseball would create @sports = ('fun', 'stuff', 'basketball', 'baseball'). I think. I hope.

What I want is to take:

and make one list:

@moods = (['fun', 'stuff', 'basketball', 'baseball'], ['sad', 'stuff', 'funerals', 'death'], ['happy', 'stuff', 'kittens', 'roses']);

But I have .gif and numbers in there, too, so I don't know if I need something extra to sort it out, because in my book, it says that actual numbers shouldn't be quoted, and I don't think anything is being quoted because I keep getting weird errors about the .gif which means I don't have 'something.gif' but just something.gif, which is wrong.

Ack!

Suzanne

------------------
Zero Cattle
Suzanne
Tables DeMystified

[This message has been edited by Suzanne (edited 04 April 2000).]

japhy — Tue, 04 Apr 2000 11:47:00 +0000

The file's obviously not where you think it is. Check to make sure you're giving it the right path to the file.

A file doesn't need to end with a "1;" unless you're including the file via require() or use(). If you're merely opening it to read from or write to, it doesn't need to conform to any rules.

------------------
--
MIDN 4/C PINYAN, NROTCURPI, US Naval Reserve

fairhousing — Tue, 04 Apr 2000 08:51:00 +0000

the split function?

i must say i'm just about totally lost on this one, i just don't understand and i'm confused, but what's new.

------------------
CLICK 4 some tested resources for making money $, hosting, and web promotions.
My Site got hacked, but i'm coming back?

Suzanne — Tue, 04 Apr 2000 04:11:00 +0000

Okay, The file doesn't open and can't seem to be found...

Sigh.

The file is a text file -- formatted like this:

Do I need to make it required file? Do I need to have it end with 1;?

Argh.

Suzanne

------------------
Zero Cattle
Suzanne
Tables DeMystified

Suzanne — Mon, 03 Apr 2000 18:03:00 +0000

You ever read someone's post and make that gutteral 'oh, my god, I finally get it!' sound that comes out like 'unk!'??

Thanks, that makes a BIG difference. As usual, it's the little details I trip over.

Much obliged, Japhy,

Suzanne

------------------
Zero Cattle
Suzanne
Tables DeMystified

japhy — Mon, 03 Apr 2000 12:31:00 +0000

tazman - there's NO need to use IO::File and cause a whole load of indirection. Filehandles are the preferred means of dealing with files.

Suzanne - your code is nearly correct.

code:

# your code
@images = ();
open (IMGLIST, "images.txt");
while (<IMGLIST>)
{
$TheImage = $_;
chomp ($TheImage);
@NewImage = (split /|/, $TheImage, 7);
push (@images, [@NewImage]);
}
[/code]

First, you should check the return value of open(), just to be sure it worked.  Next, you need to escape (backslash) the | inside a regular expression if you want to match a LITERAL |.  In regexes, | is an alternator.  Splitting on /|/ is the same as splitting on //, which means every character is a new element.

chomp() is a function that removes the ending substring of a string, if that substring happens to be the same as a particular variable, $/.  The default value of $/ is "\n", which means chomp() will remove a single ending newline from a scalar (or list of scalars).

code:open IMG, "images.txt" or die "can't open images.txt: $!";
while (<IMG>) {
  chomp;  # no need to assign to another variable, and chomp() operates $_ as a default
  push @images, [ split /\|/, $_, 7 ];
}
close IMG;
[/code]

------------------
-- 
MIDN 4/C PINYAN, NROTCURPI, US Naval Reserve

Rob Pengelly — Mon, 03 Apr 2000 12:24:00 +0000

Can you show us what the text file looks like?

------------------
L34RN |-|0\/\/ T0 5P34K L33T JU5T L1K3 4N 40L |-|4X0R
http://www.wiredstart.com : The Technology Start Page

Suzanne — Mon, 03 Apr 2000 02:49:00 +0000

In an effort to troubleshoot what I thought was a problem with another part of the script, I printed @images and it returns this:

code:

ARRAY(0x80c2c44)ARRAY(0x80c3ba8)ARRAY(0x80c4fdc)ARRAY(0x80c5fbc) 
[/code]

Does that help someone troubleshoot what is wrong with the open/read/make a list program above??

Thanks!

Suzanne

Well, I figured out part of the problem - obviously the array means that it is returning an array (*hand slapping forehead*).  I am still not getting the text file parsed properly, but now I am worrying about the other part of the script.

Other opinions and options are welcome, please!



[This message has been edited by Suzanne (edited 02 April 2000).]