Jorge Goncalvez wrote:
>
> Hi, I have this:
>
> opendir(DIR,"$_Globals{CDROM}:/DHS3MGR/$tel_version/DHS3Linux");
> foreach (readdir(DIR)){
> unless (/([Comm]+)/){
> $box3->insert('end', $_);
> }
>
> $box3 is a browse entry.
> It works fine but
>
> My problem is there is a file under DHS3MGR and not only a
> directory($tel_version) it didn't work
> Why?
It is looking the the file name in the current direcory.
my $dir = "$_Globals{CDROM}:/DHS3MGR/$tel_version/DHS3Linux";
opendir DIR, $dir or die "Cannot open $dir: $!";
foreach ( readdir DIR ) {
unless ( /([Comm]+)/ ) {
$box3->insert( 'end', "$dir/$_" );
}
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
