Windows before Windows 10 had different internal and external numbers. https://www.gaijin.at/en/infos/windows-version-numbers
On Sat, Nov 23, 2019, 2:03 AM ToddAndMargo via perl6-users < perl6-us...@perl.org> wrote: > On 2019-11-22 23:41, ToddAndMargo via perl6-users wrote: > > Hi All, > > > > In Perl6 for Windows, how do I tell if I am > > in Windows 7 or 10? > > > > Many thanks, > > -T > > What I have so far: > > Windows 6. I am not even going to ask... > > > Windows version: > > Windows 10: > > C:\>ver > Microsoft Windows [Version 10.0.18363.476] > > perl6 -e "my $Rtn = qx ( ver ); my $Ver = $Rtn.lines[1].words[3]; $Ver > ~~ s/ \] //; $Ver ~~ s/ \. .* //; say $Ver;" > 10 > > > > Windows 7: > > C:\>ver > Microsoft Windows [Version 6.1.7601] > > perl6 -e "my $Rtn = qx ( ver ); my $Ver = $Rtn.lines[1].words[3]; $Ver > ~~ s/ \] //; $Ver ~~ s/ \. .* //; say $Ver;" > 6 >
