Well, I use Win32::ODBC by Dave Roth
Available at www.roth.net and it contains all you need
Perhaps Win32::OLE is similar? More experienced programmers should
be able to help... I'm also new at this!
--- In perl-beginner@y..., Denny Malloy <denny.malloy@n...> wrote:
> I am trying to manipulate an Access database using the Win32::OLE.
Do I
> need to install any other Modules or drivers.
>
> Any help would be much appreciated.
> Thanks in advance.
>
> Dennis Malloy
hi
i am trying to create a hash of hashes
the values are not important here
just trying to get the structure down
i don't really understand the output below !
why does $VAR1 appear again ?
anyone suggesting other ways of creating hashes of hashes on the fly ?
i would even like to go deeper than a second level of hashes !
thanks for your time and patience
git
###############################CODE-BEGIN
#!/usr/bin/perl -w
use strict;
use Data::Dumper;
my %hash;
my %newhash;
foreach(1..6){
my $ra = int(rand(2));
if($ra == 1){
$hash{$_} = int(rand(10));
}else{
$hash{$_} = newhash();
}
}
my $theref = \%hash;
print Dumper($theref);
sub newhash{
foreach(1..6){
$newhash{$_} = int(rand(10));
}
my $reef = \%newhash;
return $reef;
}
######################################CODE-END
output :
$VAR1 = {
'1' => {
'1' => 6,
'2' => 1,
'3' => 9,
'4' => 2,
'5' => 7,
'6' => 7
},
'2' => 4,
'3' => 6,
'4' => $VAR1->{'1'},
'5' => 2,
'6' => $VAR1->{'1'}
};
_________________________________________________________________
Rejoignez le plus grand service de messagerie au monde avec MSN Hotmail.
http://www.hotmail.com
> I am trying to create a hash of hashes
> the values are not important here
> just trying to get the structure down
>
> I don't really understand the output below !
> why does $VAR1 appear again ?
It appears again because you have got a
self-referring datastructure, which tells you a lot
about the problem. Somehow, you are creating a
reference to the original hash.
I'll tell you now, there is exactly one place where
you create a reference to a hash. Bearing that in
mind, lets see why:
> my %hash;
> my %newhash;
Top level, create some datastructures.
> foreach(1..6){
> my $ra = int(rand(2));
> if($ra == 1){
> $hash{$_} = int(rand(10));
> }else{
> $hash{$_} = newhash();
> }
> }
Calls newhash(), and modifies %hash.
> my $theref = \%hash;
> print Dumper($theref);
Not revelent
> sub newhash{
>
> foreach(1..6){
>
> $newhash{$_} = int(rand(10));
>
> }
Modifies the TOP LEVEL hash!!!
> my $reef = \%newhash;
And sets $reef to be a reference to the top level hash.
> return $reef;
> }
---
Basically, the problem is summerised by:
my $string1 = "Hello World";
my $string2 = \$string1; # Take a reference,
$string1 =~ s/Hello/Hiya/; # change $string1,
print $$string2; # then dereference and print
Jonathan Paton
[PS: New .sig - I'm going to call this one "Toothpick's Revenge" :]
=====
s''-//--/\\///|-\/\|--\--/-\-/\-//\-|/\\\|/\///|-\--\\\\',
s''/-\\\/|///|-|/|/--\--/--//\|\/\||/|/-/\\\-/\///|-\-\-',
y'|\/-'3210',$_=join qq\\,map{s|2|10|||s|3|11|||s|^|0|;$_}
m|.|g;map{print chr unpack'N',pack'B32','0'x24 .$_}/.{8}/g
__________________________________________________
Do You Yahoo!?
Everything you'll ever need on one web page
from News and Sport to Email and Music Charts
http://uk.my.yahoo.com
Folks,
On both Windows and Linux platforms, the user must be root/admin to do an
ICMP ping using Net::Ping. Is there a way around this? We would really
like to avoid giving everyone admin rights just to do a simple ICMP ping.
I would be especially interested in a way around this for Windows. I do
know I can open a filehandle to the ping binary in Linux, but what about
Windows?
Thanks,
-MikeD
I have a Perl question but you'll have to excuse me because I'm VERY new at
it. I'm having to configure one of our backup servers from scratch. We have
a 128 port serial adapter and I'm having to create <128ttys and a few LPs.
The command line string I'm using is:
mkdev -c tty -t 'tty' -s 'rs232' -p 'sa3' -w '4' -a login='enable' -a
altpin='enable'
were the 3 is in 'sa3' and the 4 is will need to cycle through a fixed set
of numbers (2-9 and 0-15 respectivly). This is the first time I've ever
dipped my big toe into Perl so any help would be greatly appreciated
--- In perl-beginner@y..., "Stefan Hotz" <stefan.hotz@z...> wrote:
>
> I am including a file ( bu.pm) to my main file. In this main file I
would
> like to change some values ( like $BU{heinz}{title} change
from "meier" to
> "james" ) or add some additional keys. Can I save the changes
without
> opening a filehandle and write it back. I have read maybe with the
dump
> function it would be possible.
>
> How can I do this.
>
> *********************************
>
> file main.pm
>
> require bu.pm
>
> $BU{heinz}{title} = james; # modify a value
>
> $BU{susi} # Add a new key with some values
>
> ***********************************
>
> file bu.pm
>
> %BU = (
> heinz => {
> title => "meier",
> CIR => 4520000,
> Burst => 6780000,
> oid => 1008,
> },
> peter => {
> title => "muller",
> CIR => 324000,
> Burst => 656000,
> oid => 3171,
> },
>
> ***********************************
1. A point of nomenclature: These days, the ".pm" file extension is
generally used for Perl modules. It should not be used for Perl
scripts or for libraries.
2. Check out the Tie::Hash function on CPAN:
http://search.cpan.org/doc/GSAR/perl-5.6.1-TRIAL3/lib/Tie/Hash.pm
Jim Keenan
jkeen@...
Hiya!
This is gonna sound silly, but I've often seen in perl code something that
looks like the following:
print qq{ Monkeys!
Apes!
Cows! };
But, I've never understood exactly what the rules were here. I've also
seen:
print qq! Monkeys, cows, apes!;
That seems to work. What can be in that qq{ spot and what are the rules
for use of multiline strings like this?
--Me
On Jun 3, Johnny Wales said:
>print qq{ Monkeys!
>Apes!
>Cows! };
>
>But, I've never understood exactly what the rules were here. I've also
>seen:
perldoc perlop, look for "Quote-like Operators".
--
Jeff "japhy" Pinyan japhy@... http://www.pobox.com/~japhy/
RPI Acacia brother #734 http://www.perlmonks.org/http://www.cpan.org/
** Look for "Regular Expressions in Perl" published by Manning, in 2002 **
<stu> what does y/// stand for? <tenderpuss> why, yansliterate of course.
[ I'm looking for programming work. If you like my work, let me know. ]
--- In perl-beginner@y..., "J Kennedy" <jkennedy@m...> wrote:
> I have a Perl question but you'll have to excuse me because I'm VERY new at
> it. I'm having to configure one of our backup servers from scratch. We have
> a 128 port serial adapter and I'm having to create <128ttys and a few LPs.
> The command line string I'm using is:
>
> mkdev -c tty -t 'tty' -s 'rs232' -p 'sa3' -w '4' -a login='enable' -a
> altpin='enable'
>
> were the 3 is in 'sa3' and the 4 is will need to cycle through a fixed set
> of numbers (2-9 and 0-15 respectivly). This is the first time I've ever
> dipped my big toe into Perl so any help would be greatly appreciated
Try a more descriptive subject.
- Brian
--- In perl-beginner@y..., "T G I" <idia_goes_t@h...> wrote:
> hi
> i am trying to create a hash of hashes
> the values are not important here
> just trying to get the structure down
>
> i don't really understand the output below !
> why does $VAR1 appear again ?
>
> anyone suggesting other ways of creating hashes of hashes on the fly ?
> i would even like to go deeper than a second level of hashes !
>
> thanks for your time and patience
> git
>
> ###############################CODE-BEGIN
>
> #!/usr/bin/perl -w
> use strict;
> use Data::Dumper;
>
> my %hash;
> my %newhash;
>
I believe your script would have worked correctly if you declared %newhash
inside your newhash sub instead of the top of the program.
sub newhash {
my %newhash;
# ... etc ...
}
When you declare it at the top, each time you enter the sub, you get a reference
to the same %newhash. If you declare it in the sub, each time you enter the sub,
you get a reference to a new %newhash, because %newhash only has the scope of
that sub, instead of the whole file.
- Brian
Declare your variables at the last possible second!
I need a little help with sendmail. I have a scheduling program that
is suppose to send a message to two accounts unfortunately I can not
figure out how to do it. Here is the source code:
open (SENDMAIL, "|/usr/lib/sendmail -oi -t") or die "Cant fork
sendmail: $!\n";
print SENDMAIL <<"ENDOFMAIL";
From: $usrvals[5]
To: <cvsr4099\@yahoo.com>
Cc: <webmaster\@yahoo.com>
Subject: Volunteer Scheduling - $month $day, $year
Contact: $usrvals[2] $usrvals[3]
E-Mail: $usrvals[5]
IP Address: $ENV{'REMOTE_ADDR'}
Telephone: $usrvals[4]
Volunteer Date: $month $day, $year
Train: $train
Position: $position
!!Note: Generated by CVSR's online scheduling system!!
ENDOFMAIL
close(SENDMAIL);
It only sends the message to the first email account eventhough the
CC appears on the message that is sent to the <cvsr4099\@yahoo.com>
address. I have tried to put both address on the same line seperated
by a comma but that has the same result.
Any help would be great.
Thanks,
Ron
>>> cvsr4099@... 06/04/02 01:41p.m. >>>
>
I need a little help with sendmail. I have a scheduling program that
is suppose to send a message to two accounts unfortunately I can not
figure out how to do it. Here is the source code:
<cut>
From: $usrvals[5]
To: <cvsr4099\@yahoo.com>
Cc: <webmaster\@yahoo.com>
Subject: Volunteer Scheduling - $month $day, $year
<cut>
Try removing the angled brackets - <> from the email addresses.
G.
--- In perl-beginner@y..., "Gordon Stewart" <Gordon.Stewart@i...>
wrote:
> Try removing the angled brackets - <> from the email addresses.
That has the same effect. That is where I am stumped.
Ron
>>> cvsr4099@... 06/04/02 01:41p.m. >>>
<cut>
To: <cvsr4099\@yahoo.com>
Cc: <webmaster\@yahoo.com>
Subject: Volunteer Scheduling - $month $day, $year
<cut>
It only sends the message to the first email account eventhough the
CC appears on the message that is sent to the <cvsr4099\@yahoo.com>
address. I have tried to put both address on the same line seperated
by a comma but that has the same result.
Any help would be great.
<
Stupid question here, is webmaster @ yahoo.com correct for the other person ?
or has he/she actually created a user-id/Yahoo ID of "webmaster" ??
Maybe it is being sent, but someone else is receiving the email...
G.
--- In perl-beginner@y..., "Gordon Stewart" <Gordon.Stewart@i...> >
> Stupid question here, is webmaster @ yahoo.com correct for the
other person ?
>
> or has he/she actually created a user-id/Yahoo ID of "webmaster" ??
>
> Maybe it is being sent, but someone else is receiving the email...
I actually made up these addresses to keep the spambots away. I use
the actual address in the code.
Ron
>>> cvsr4099@... 06/04/02 01:41p.m. >>>
To: <cvsr4099\@yahoo.com>
Cc: <webmaster\@yahoo.com>
<
Try changing it to :-
To: <cvsr4099\@yahoo.com>
Cc: <cvsr4099\@yahoo.com>
Do you get two copies, or one copy ?
G.
>>> cvsr4099@... 06/04/02 01:41p.m. >>>
To: <cvsr4099\@yahoo.com>
Cc: <webmaster\@yahoo.com>
<
Try changing it to :-
To: <cvsr4099\@yahoo.com>
Cc: <cvsr4099\@yahoo.com>
Do you get two copies, or one copy ?
<
PS - If you get ONE copy,
then its something wrong with the perl script / sendmail.pm file..
:- try putting the two emails on the TO: line
if you get TWO copies, then theres a problem with the other persons email.
- check if their email box is full , & blocking email...
Or they could be having other probs...
Another person may have other suggestions...
G.
If u r sending mail on prompt the best
use open(SENDMAIL, "|/usr/lib/sendmail -i -v -t")
and see if it is sending to 2 ids
If you have got root permissions on your m/c u can do better
stop sendmail
start using /usr/lib/sendmail -bd -X /tmp/test.log
run your program
the file /tmp/test.log will log everything. U can see where your cc is
going
restart sendmail
--- In perl-beginner@y..., "cvsr4099" <cvsr4099@y...> wrote:
> I need a little help with sendmail. I have a scheduling program that
> is suppose to send a message to two accounts unfortunately I can not
> figure out how to do it. Here is the source code:
>
> open (SENDMAIL, "|/usr/lib/sendmail -oi -t") or die "Cant fork
> sendmail: $!\n";
> print SENDMAIL <<"ENDOFMAIL";
> From: $usrvals[5]
> To: <cvsr4099\@yahoo.com>
> Cc: <webmaster\@yahoo.com>
> Subject: Volunteer Scheduling - $month $day, $year
>
> Contact: $usrvals[2] $usrvals[3]
> E-Mail: $usrvals[5]
> IP Address: $ENV{'REMOTE_ADDR'}
> Telephone: $usrvals[4]
> Volunteer Date: $month $day, $year
> Train: $train
> Position: $position
> !!Note: Generated by CVSR's online scheduling system!!
> ENDOFMAIL
> close(SENDMAIL);
>
> It only sends the message to the first email account eventhough the
> CC appears on the message that is sent to the <cvsr4099\@yahoo.com>
> address. I have tried to put both address on the same line seperated
> by a comma but that has the same result.
>
> Any help would be great.
>
> Thanks,
> Ron
Hello Friends !!!
Anyone interested in Cryptography !!! If so then Click in the following link to
get some more information
http://groups.yahoo.com/group/cryptography/
Regards
[Non-text portions of this message have been removed]
--- In perl-beginner@y..., "Gordon Stewart" <Gordon.Stewart@i...>
wrote:
> To: <cvsr4099\@yahoo.com>
> Cc: <webmaster\@yahoo.com>
> <
>
> Try changing it to :-
>
> To: <cvsr4099\@yahoo.com>
> Cc: <cvsr4099\@yahoo.com>
>
>
> Do you get two copies, or one copy ?
I only get one copy. I have tried all of the following combinations
with and without brackets:
To: <cvsr4099\@yahoo.com>
Cc: <webmaster\@yahoo.com>
To: <cvsr4099\@yahoo.com>
To: <webmaster\@yahoo.com>
To: <cvsr4099\@yahoo.com>, <webmaster\@yahoo.com>
To: <cvsr4099\@yahoo.com> <cvsr4099\@yahoo.com>
All of the above send only one message to the first address except for
the last one. The last one sends to the second address only because
it is a malformed header.
Ron
--- In perl-beginner@y..., "ramprasad_ap" <ramprasad@n...> wrote:
> If u r sending mail on prompt the best
> use open(SENDMAIL, "|/usr/lib/sendmail -i -v -t")
> and see if it is sending to 2 ids
Using this method gives me a 500 error.
> If you have got root permissions on your m/c u can do better
> stop sendmail
> start using /usr/lib/sendmail -bd -X /tmp/test.log
>
> run your program
>
> the file /tmp/test.log will log everything. U can see where your cc
is
> going
> restart sendmail
I do not have root permissions and can not get them. I am going to
try to contact the administrators and see if they will do this.
Ron
--- In perl-beginner@y..., "cvsr4099" <cvsr4099@y...> wrote:
> --- In perl-beginner@y..., "Gordon Stewart" <Gordon.Stewart@i...>
> wrote:
> > To: <cvsr4099\@yahoo.com>
> > Cc: <webmaster\@yahoo.com>
> > <
> >
> > Try changing it to :-
> >
> > To: <cvsr4099\@yahoo.com>
> > Cc: <cvsr4099\@yahoo.com>
> >
> >
> > Do you get two copies, or one copy ?
>
>
> I only get one copy. I have tried all of the following
combinations
> with and without brackets:
>
> To: <cvsr4099\@yahoo.com>
> Cc: <webmaster\@yahoo.com>
>
> To: <cvsr4099\@yahoo.com>
> To: <webmaster\@yahoo.com>
>
> To: <cvsr4099\@yahoo.com>, <webmaster\@yahoo.com>
>
> To: <cvsr4099\@yahoo.com> <cvsr4099\@yahoo.com>
>
> All of the above send only one message to the first address except
for
> the last one. The last one sends to the second address only
because
> it is a malformed header.
>
> Ron
You don't list the following so I ask:
Have you tried:
To: <webmaster\@yahoo.com>
Cc: <cvsr4099\@yahoo.com>
i.e. reverse the addresses, to confirm there is nothing wrong with
the 'webmaster\@yahoo.com' address.
If you have access to an SMTP server you can use Net::SMTP to send
your email.
The names of a few web hosts that provide CGI scripting have been
posted over the last few months. I keep forgetting to note them.
For my use, and the use of others, I would like to solicit a list of
such hosts and post them in the Files section of this group.
I would also like to include a 'features' list for each host and user
comments where possible.
Please post the names of hosts you use or have had experience with.
Please include comments and features. I will compile the names and
upload them.
Damien.
A makefile is used by the make program.
It is a set of instructions for compiling, linking, processing, and
possibly installing a program. (Usually-- though it can be used for
other things)
If you do not have a C compiler on your windows machine, chances are
you also do not have the ability to make use of the Makefile.
Regardless, while the majority of majordomo is written in perl, it
does have a couple of c components which must be compiled. See
http://www.greatcircle.com/majordomo/majordomo-faq.html#1.3 This
means that unless you can find a binary version of majordomo that was
compiled for win32(and I've never seen one), you CAN'T use MAJORDOMO
on a WINDOWS machine.
Sorry. Tough luck. Install linux, then install majordomo.
Majordomo was most definitely NOT written with windows or windows
users in mind.
Thank you. That's all. Bu-bye now.
--- In perl-beginner@y..., Gordon Stewart <gordon52@s...> wrote:
> At 23:05 31/05/02 +0800, Franki wrote :-
> >Have you considered just rebuilding a source rpm?? or is it a non
rpm
> >system..??
> >
> ><http://fr.rpmfind.net/linux/rpm2html/search.php?
query=majordomo>http://fr.rpmfind.net/linux/rpm2html/search.php?
query=majordomo
> >
> >I have compiled and installed minordomo, (now renamed to minorfish
for
> >reasons that should be obvious :-)
> >
> >no great hassle...
> >
> >but for most things, installing the rpm is just faster..
> >
> >sorry can't be of more assistance.
>
> Hmm - Whats RPM ? -
>
> Hmm I see you use Linux ? (I'm on Windows...)
>
> I'm reading the install information now - It seems that its
> (Makefile) Uses a C-compiler - I dont have C on my Pc :-(
>
> But - As Maisha asked - What does Makefile actually do (That you
cant do
> manually)
>
> & Ill assume you go into DOS mode, & go to the perl directory, &
type
>
> perl -makefile blah blah blah (or something like that...)
>
> Hopefully, I think i'll get some answers (eventually) when their
majordomo
> people wake up ;-)
>
> G.
Hi,
Does anybody know if is possible generate an executable from a perl script. I
need leave a program in a client but not want leave the scripts.
Thank in advance.
Active State's Perl Development Kit has an app called
"Perlapp" which will output a perl script to an exe
file. It works very well and will also bundle the
requisite modules used by a script into the exe file.
Note:
1. The PDK is not free (you can go to Activestate's
site for the latest cost).
2. It is a Windows only binary and won't work on Mac's
or Unix systems.
Richard
On Tue, 04 June 2002, "noticias03" wrote
> Message-Id: <adj0ub+919q@eGroups.com>
> List-Unsubscribe:
<mailto:perl-beginner-unsubscribe@yahoogroups.com>
> From: "noticias03" <noticias03@...>
> Reply-To: perl-beginner@yahoogroups.com
> X-Mailer: Yahoo Groups Message Poster
> Date: Tue, 04 Jun 2002 18:29:31 -0000
> Mailing-List: list perl-beginner@yahoogroups.com;
contact perl-beginner-owner@yahoogroups.com
> Received: (cpmta 8337 invoked from network); 4 Jun
2002 11:29:35 -0700
> Received: from 66.218.66.72 (HELO
n17.grp.scd.yahoo.com)
> by smtp.c003.snv.cp.net (209.228.32.211) with SMTP;
4 Jun 2002 11:29:36 -0700
> Received: from [66.218.67.192] by
n17.grp.scd.yahoo.com with NNFMP; 04 Jun 2002 18:29:34
-0000
> Received: (EGP: mail-8_0_3_2); 4 Jun 2002 18:29:33
-0000
> Received: (qmail 93988 invoked from network); 4 Jun
2002 18:29:33 -0000
> Received: from unknown (66.218.66.218)
> by m10.grp.scd.yahoo.com with QMQP; 4 Jun 2002
18:29:33 -0000
> Received: from unknown (HELO n5.grp.scd.yahoo.com)
(66.218.66.89)
> by mta3.grp.scd.yahoo.com with SMTP; 4 Jun 2002
18:29:33 -0000
> Received: from [66.218.67.170] by
n5.grp.scd.yahoo.com with NNFMP; 04 Jun 2002 18:29:32
-0000
> X-Egroups-Return:
sentto-1223857-10468-1023215374-alijens=telocity.com@...
> User-Agent: eGroups-EW/0.82
> X-Yahoo-Profile: noticias03
> Content-Type: text/plain; charset=US-ASCII
> X-Apparently-To: perl-beginner@yahoogroups.com
> Subject: [PBML] Perl compiler
> X-Received: 4 Jun 2002 18:29:36 GMT
> X-Originating-Ip: 200.5.65.140
> Precedence: bulk
> Delivered-To: telocity.com%alijens@...
> Delivered-To: mailing list
perl-beginner@yahoogroups.com
> Return-Path:
<sentto-1223857-10468-1023215374-alijens=telocity.com@...>
> Content-Transfer-Encoding: 7bit
> MIME-Version: 1.0
> To: perl-beginner@yahoogroups.com
> X-Sender: noticias03@...
>
> Hi,
>
> Does anybody know if is possible generate an
executable from a perl script. I need leave a program
in a client but not want leave the scripts.
>
> Thank in advance.
>
>
> ------------------------ Yahoo! Groups Sponsor
>
> Unsubscribing info is here:
http://help.yahoo.com/help/us/groups/groups-32.html
>
> Your use of Yahoo! Groups is subject to
http://docs.yahoo.com/info/terms/
The problem with sendmail has been solved. The administrators
updated the sendmail module to the most current which only allows one
email address. This is to prevent SPAM. Too bad they did not tell
anybody. My work around was to set up another email account and have
it forward the message to the correct people.
I want to thank everybody for their help.
Ron Gallimore
Here is a piece of code I was given from IRC:
/begin
use Data::Dumper ;
@buf=`vmstat`;
@h{split" ",$buf[1]}=split" ",$buf[2];
print Dumper\%h;
/end
Here is the output:
/begin
$VAR1 = {
'cache' => '157700',
'swpd' => '3488',
'bi' => '1',
'us' => '10',
'si' => '0',
'b' => '0',
'r' => '2',
'sy' => '2',
'in' => '7',
'buff' => '47252',
'bo' => '9',
'w' => '0',
'free' => '66288',
'id' => '3',
'so' => '0',
'cs' => '10'
};
/end
I do not have the vocabulary or understanding to know what this code
has done. I am wanting to take data from the vmstat command, average
5 seconds worth of data per 'column', set each averaged column to its
own variable, and then put specific varviable groupings into .rrd
files for graphing system performance.
COuld someone please explain this code to me, so I can start trying
to develop the next step of this script?
Thanks
How do you "cross post" data? I've got a web form that collects data from
visitors. That data is submitted to a script that stores it in a database.
This is all working fine. Now I'd like also submit this data to another server
for store. How do I submit it to my own script for processing AND a script on
another server for process at the same time?
Thanks,
Greg
Send Email
