Výpis adreseře na win32 v DOS konvenci

[Ondrej Brablc]

Martin Sittek wrote:
> potřeboval bych na win32 (ActiveState) vypsat obsah adresáře ovšem v tom
> klasickém DOS formátu - včetně zkrácených jmen. Čili takové to
> "hokus~1.txt". Bohužel se mi pořád nedaří nalézt nějakou jednodušší cestu
> než to přežvýkávat z výpisu `dir` příkazu.

use Win32;
opendir(DIR, '.');
while ($_ = readdir(DIR))
{
     print Win32::GetShortPathName($_) . "\n";
}
closedir DIR;