Ricardo Ferreira wrote:
> Thanks it is working now!
>
> now i am thinking how to gets this file in "" but i beleve i can do that
Just escape them or use another quoting character:
print "\"$_\"\n" foreach @mainfile;
or
print qq{"$_"\n} foreach @mainfile;
> It appears that $mainfile is an array ref, try:
>
> my $mainfile = $mw->getOpenFile(-multiple => 100);
> print "@$mainfile\n";
> or
> my @mainfile = $mw->getOpenFile(-multiple => 100);
> print "$_\n" foreach @mainfile; # or print "@mainfile\n";
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
