[EMAIL PROTECTED] wrote:
> Hi,
>
> I have a Problem understanding the sample code from Win32::Lanman (which
> works fine so far):
>
> ---------------------
use Data::Dumper; $Data::Dumper::Indent=1; $Data::Dumper::Sortkeys=1;
my $debug = 1;
> Win32::Lanman::NetFileEnum("\\\\servername", "$selecteddir", "", [EMAIL
> PROTECTED]);
> foreach my $info(@infos){
print Data::Dumper->Dump([$info], [$info]) if $debug;
> my @keys = keys(%$info);
> foreach my $key(@keys)
> {
> if ($key eq "pathname") {
> print "$key: ${$info}{$key}<br>";
> }
> }
> }
> }
>
> ----------------------
>
> The variables are so much nested, that I just don't understand where all the
> relevant information is that I need... could anyone perhaps make that
> understandable for "dummies" ?;)
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
