Re: <JUNCTION>; how to recognize

here is a post I have bookmarked on junctions. I've never found the Round Tuit to use that as a starting point for updating some of my personal scripts which could benefit from being able to recognize junctions¹... so hopefully this link will help you get started down the right path.

update ¹: this started as a fully fledged thought, but apparently didn't get fully typed: "...recognize junctions, so I don't have the expertise to help you any further... so hopefully..."

Comment on Re: <JUNCTION>; how to recognize

Replies are listed 'Best First'.
Re^2: <JUNCTION>; how to recognize by pryrt (Abbot) on Oct 10, 2018 at 21:08 UTC
Following my link, and doing some more research, I eventually found https://github.com/dagolden/Path-Tiny/issues/160, which gave a function which spawns out to the cmd.exe `DIR /AL` command to find junctions and symlinks: so that could work. But it also pointed to Win32API::File, which has `GetFileAttributes()` and the `FILE_ATTRIBUTE_REPARSE_POINT` constant, which yields a solution for recognizing/identifying windows junctions: `use Win32API::File qw'GetFileAttributes :FILE_ATTRIBUTE_'; sub isjunc { return (GetFileAttributes($_[0]) & FILE_ATTRIBUTE_REPARSE_POINT == + FILE_ATTRIBUTE_REPARSE_POINT) ? 1 : 0; }` [download] (I know, it could be simplified to `sub isjunc { GetFileAttributes($_[0]) & FILE_ATTRIBUTE_REPARSE_POINT }`, but I like making things more explicit.)	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: <JUNCTION>; how to recognize
by pryrt (Abbot) on Oct 10, 2018 at 21:08 UTC

Following my link, and doing some more research, I eventually found https://github.com/dagolden/Path-Tiny/issues/160, which gave a function which spawns out to the cmd.exe DIR /AL command to find junctions and symlinks: so that could work. But it also pointed to Win32API::File, which has GetFileAttributes() and the FILE_ATTRIBUTE_REPARSE_POINT constant, which yields a solution for recognizing/identifying windows junctions:

use Win32API::File qw'GetFileAttributes :FILE_ATTRIBUTE_';
sub isjunc {
    return (GetFileAttributes($_[0]) & FILE_ATTRIBUTE_REPARSE_POINT ==
+ FILE_ATTRIBUTE_REPARSE_POINT) ? 1 : 0;
}
[download]

(I know, it could be simplified to sub isjunc { GetFileAttributes($_[0]) & FILE_ATTRIBUTE_REPARSE_POINT }, but I like making things more explicit.)

[reply]
[d/l]
[select]