Help for this page

Select Code to Download


  1. or download this
    
use File::Glob qw(:globally :nocase);
...
    else {
    @dir = $dir
    }
  2. or download this
    
#!/usr/bin/perl
...
    $hlink="$File::Find::name" if (/^$file.*$ext2.*/ );
    print $hlink
}
  3. or download this
    #Set the default values to be changed by proe/excel/etc
$ext=dwg;
...
}
  4. or download this
    #!/opt/gnu/bin/perl
##!/usr/bin/perl
...
}    

print "$dir";