From: John W. <jo...@il...> - 2001-07-02 22:51:07
|
Hi, This is part of my first Win32-Gui program that has been converted from = a non-gui program. When I run it, I get a couple of the following error messages that point = to the Win32:::GUI::Dialog() line. I also get the message whenever the cursor touches the window. But = other than that, it runs fine. Use of uninitialized value at C:\perl522\dev\pdfexporter.pl line XX. I am running Activestate 522 with Win32-GUI build .99 Any help would be appreciated. Thanks John Watson snip ------------------------- my $t1 =3D $main->AddTimer('T1', $sleeptime); Win32::GUI::Dialog(); sub Main_Terminate { return -1; } sub T1_Timer { for (my $i=3D1; $i <=3D $number_directories; $i++) { &exportpdf($impdir[$i], $outdir[$i], $errdir[$i]); } $main->DoEvents(); } ------------------------ snip |
From: Jeremy A. <bc...@te...> - 2001-07-03 00:16:45
|
hi thanks for all your help in the past how do i go about creating an array of hashes eg. suppose i want to get information about email messages, and each message has a subject, date, from etc. i want to store the following in a hash. But there are more than one messages, therefore, i have to create an array of hashes. eg hash holds information about each email message. please take a look at the following code....I am probably doing something wrong. thankyou your help is always appreciated. Jeremy A. sub messageInfo ($) { my @messageStatList = @_[0]; foreach (@messageStatList) { my %messageInfo; # creating my hash $pop3C->send("TOP $_{Number} 1\n"); while (($response = <$pop3C>) && ($response !~ /^\./)) { if ($response =~ /From:\s([^\n]*)/) { $response =~ /From:\s([^\n]*)/; $messageInfo{From} = $1; # print "$1\n"; } if ($response =~ /Subject:\s([^\n]*)/) { $response =~ /Subject:\s([^\n]*)/; $messageInfo{Subject} = $1; # print "$1\n"; } $messageInfo->{Size} = $_->{Size}; #c $messageInfo->{Number} = $_->{Number}; if ($response =~ /Date:\s([^\n]*)/) { $response =~ /Date:\s([^\n]*)/; $messageInfo{Date} = $1; # print "$1\n"; } } push(@messageInfoList,%messageInfo); # pushing hash into the array. } foreach (@messageInfoList) { print "$_{From}\n"; print "$_{Subject}\n"; print "$_{Size}\n"; print "$_{Date}\n"; print "$_{Number}\n"; } return @messageInfoList; } |