perl-win32-gui-users

[perl-win32-gui-users] NewbieWin32::GUI Dialog() Question

[John W. <jo...@il...>]

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

[perl-win32-gui-users] an array of hashes

[Jeremy A. <bc...@te...>]

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;
}