complex data storing

Hi, I want to save a hash as followed $hash{$name}->[$option] = $value; I have some information, when $name can have more than one information, and it would be Wonderfull and much easier to use the above way to store and retreive information. I looked around and foun MLDBM(Multi-Level) But i don't

Re: MIME::LITE question

Hi, do you want the receiver to get the name instead the e-mail address?? if so it is possible >From =>'$email($name)'; Anthony -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

writing to file

Hi, I'm curious to know if it is possible to write to file with overwritting information without putting into an array if i have in a file a b c d e and i want to add g-r-t-u-x i would get now in the file g r t u x e <-- stays the same no overwrite. any help is appreciated Anthony -- To unsu

Re: Comparing 2 lists

Hi, you have an array say list1. you have a second array say list2. counter=0; foreach $line(@list1){ foreach $sec_line(@list2){ if($line eq $sec_line){ $counter++; $new_list[$counter]=$line; } } } print @new_list; something like that -- To unsub

loading hash file

Hi, I'm curious because I really don't know how hash database works ( i know how to add-edit-delete-get records for a hash dbm). When we open a dbm tie... does it go trough all records first and put it into a hash, or it is just THERE open ready to go.?? Is it quicker to open a hash dbm(tie..

Re: splitting an array into ???

Hi, to me yes it is the best way, but look again at your split code. foreach $item (@array) { my ($key, $title, $url, $code) = split( /\|/,$item); do other stuff; } -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

hash question

Hi, maybe someone can enlighten me(if it is possible). I did a very simple loop/save/open/display to test hash. ... ... for(1..99){ $result{$_}=$_; } ##saved it in a dbm file and reopen to the file ##when i open the file i just read all the keys and display ## the key . foreach (key

regex problem

Hi, I have a number $page = 500; now i want to check that if $page matches a word character then make $page =1; so originally i did this my $page =500; if(($page =~ /\w/) || ($page <= 0)){ $page=1; } print"$page"; since it always returns $page = 1; then i did this if(($page =~ /(\w)/) || ($page <

installing module

Hi, I would like to install Time::Hires so i have a path in cgi script use lib '/home/sites/prog/www/Module'; now inside the Module folder i created a new folder called Time inside that folder I put Hires.pm And the program says It can NOT found module Any help is appreciated -- To unsubscri

Re: installing module

IST != EXPR). So try: use lib qw(/home/sites/prog/www/Module); #or use lib ('/home/sites/prog/www/Module'); Both should work. José. -----Original Message- From: awarsd [mailto:[EMAIL PROTECTED] Sent: Thursday, July 24, 2003 11:52 AM To: [EMAIL PROTECTED] Subject: installing module

Re: installing module

Hi, The Hires.pm typo is because i missed typed it here. Anyways, the only problem is that it is on a website so i guess i have to contact the Administrator Thanx Anthony -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: for/foreach question

Hi, I think it is good to have foreach and for loop even tough they are the same if you are searching in a file you can almost make a sentence foreach $line(@infile) #<-- to me this is more readable than for $line(@infile) But for loop, I use it only for numbers for(1..53) or for( $i=0;$i<50;$i++)

Net::Pop3 mdoule

Hi, I want to retrieve email from my website using a program. like hotmail it is just the administrator side of my program (if someone is out of town and no access to his/her computer). I can retrieve subject and to fine using Regex but I can't seem to get the Text message. maybe i should use anot

Re: Net::Pop3 mdoule

Hi, I got how to retrieve message, the problem is now If i send an Attachment i don't know how to retrieve it, and if in the text area I put a webpage i don't know how to retrieve it, Any guidance is more than welcome -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mai

Re: :Pop3 mdoule

Hi, Thanx , i went there but i didn't understand how make it work, are you sure i can use it? Regards awarsd "Stephen Gilbert" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] Check out Mime::Parser on CPAN -Original Message- From: awarsd [mailto:[

Mime::Parser starter

Hi, i just need someone to guide me please I'm retrieving from my host email(with attachment) using Net::Pop3 I print the message content- where we can see Charsert ="iso-8869-1" --- =_NextPart_001 to, subject etc now i see on the bottom of this message Content-type: image/gif;

Re: Learning Perl vs. c ++

Hi, I learn perl for about 3-4 slow years (meaning I am far from being advanced), but I'm use to it. I also don't know anything about IT stuff. But I think learning perl before C++ would be good. Actually the best which I had the chance to do because of my school, I learnt perl bymyself and at m

Name msg from Mime::Parser

Hi, I finally got what i wanted. Anyways I would like to know how does Mime::Parser decides of the name of the folder here is my code (it is rough) open(CURRMSG,">c:\\message.msg"); $pop3->get($msg_id, \*CURRMSG); close CURRMSG; $parser = new MIME::Parser; $parser->output_under("C:\\mail\\pop3\\

passing variable to module

Hi, I currently have a script that has all the password and path for my scripts. and I have module that uses them. i.e #!/usr/bin/perl ## script.pl <-- name of script require 'config.pl'; use lib '/home/site/module'; use Test; --- now let say we have in config.pl $passvar = ' test'; To use t

use lib problem

Hi, I have a problem maybe it is normal. My problem is with using lib now to retrieve my module i do this use lib "/path/to/Module"; it works just fine but created a configuration file. with $dir = '/path/to'; and when i do use lib "$dir/Module"; it give me an error I also tried use lib qw() but s

Re: use lib problem

i didn't know how to use BEGIN now i do :- Awards "Jeff 'Japhy' Pinyan" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] > On Aug 2, awarsd said: > > >use lib "/path/to/Module"; > >it works just fine > > >with $d

Re: use lib problem

Hi, no sorry it is not use but use lib $datadir."Module"; just a typo awards "Jeff 'Japhy' Pinyan" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] > On Aug 2, awarsd said: > > >I messed around and found that > >if in config i d

Re: use lib problem

Hi, here is the actual top of the file #!/usr/bin/perl use CGI qw(:standard); use DBI; require "/path/to/config.pl"; ##inside config.pl it has $dataDir ##$dataDir = "/path/to/"; use lib $dataDir."Module"; use Test; ... Should I declare variable i.e my $datDir inside the program or in

Re: arrays

Hi, if we have @routers. you can do this my ($c, $line); $c=0; foreach $line(@routers){ $line = $line." P *NULL*"; push @newrouters, $line; } or to use the $c foreach $line (@routers){ @routers[$c] = $line." P *NULL*"; $c++; } "Jonathan Musto" <[EMAIL PROTECTED]> wro

Re: arrays

Hi, sorry my last post but actually this is quite good and better @array = map {"$_ P *NULL*"} (@array); Award -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Mime::Parser Question

Hi, I don't understand what the explanation says about Header? what is basically a header Thank You awards -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]