Re^2: Perl command to Create/Remove windows link

I have created directory symbolic link by 'mklink' windows command.

I didn't success to found this directory symbolic link using '-l' flag - maybe do you have any idea

 <DIR>          .
 <DIR>          ..
 <DIR>          Dir1
 <DIR>          Dir2
 <DIR>          Dir3
 <SYMLINKD>     temp [Dir1]
[download]

According to the above example. i would like to print only 'temp' directory with the following code:

my @dirs = <*>;

foreach my $symlnk (@dirs ) 
{
   print "$symlnk\n" if (-l $symlnk);
}
[download]

But as i wrote 'temp' folder wasn't printed - way?

Thanks

Comment on Re^2: Perl command to Create/Remove windows link Select or Download Code

Replies are listed 'Best First'.
Re^3: Perl command to Create/Remove windows link by BrowserUk (Patriarch) on Aug 01, 2012 at 06:12 UTC
No. You might be able to write one, if: a) you can write C; b) and learn XS; c) and learn the windows API. But it'd be a huge amount of work to do something that is already possible via an OS supplied utility. Why would you want to do that? With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. The start of some sanity?	[reply]
Re^4: Perl command to Create/Remove windows link by bulk88 (Priest) on Aug 01, 2012 at 06:34 UTC
Small amount of work, just 1 function call on NT 5, http://msdn.microsoft.com/en-us/library/windows/desktop/aa363860%28v=vs.85%29.aspx. Use a CPAN module Win32::HardLink as mentioned in the thread, no need to reinvent the wheel. On NT4, there is a method using BackupWrite() which is public API, or go use Native API (only 4 function calls, see http://doxygen.reactos.org/df/d8e/hardlink_8c_source.html#l00024), but that is alot of work and definitely not easy, personal experience. Native API gives you the all the power, buttons, gauges and dials of pre-SCADA nuclear reactor, along with the learning curve of operating it.	[reply]
Re^5: Perl command to Create/Remove windows link by BrowserUk (Patriarch) on Aug 01, 2012 at 07:52 UTC
Small amount of work, just 1 function call on NT 5, Just one function call eh? I'll believe it when I see it working. You might want to take a look in lnw.cpp Use a CPAN module Win32::HardLink as mentioned in the thread, no need to reinvent the wheel. Accept it doesn't work: C:\test>dir /b pete* File Not Found C:\test>mklink /h pete.exe \perl64\bin\perl.exe Hardlink created for pete.exe <<===>> \perl64\bin\perl.exe C:\test>pete -v This is perl, v5.10.1 built for MSWin32-x64-multi-thread [snip] C:\test>del pete.exe C:\test>perl -MWin32::Hardlink -E"say link( 'pete.exe', '\\perl64\\bin +\\perl.exe' )" CreateHardLink( "\perl64\bin\perl.exe", "pete.exe" ) failed with error + 2. 0 C:\test>pete -v 'pete' is not recognized as an internal or external command, operable program or batch file. [download] Win32::Symlink works after a fashion, but looking at the code that underlies it, I wouldn't want to rely upon it. With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. The start of some sanity?	[reply] [d/l]
Re^6: Perl command to Create/Remove windows link by Anonymous Monk on Aug 01, 2012 at 08:17 UTC
Re^7: Perl command to Create/Remove windows link by BrowserUk (Patriarch) on Aug 01, 2012 at 08:59 UTC
Re^3: Perl command to Create/Remove windows link by Anonymous Monk on Aug 01, 2012 at 06:13 UTC
There is no Perl module which can handle it? Is there? Did you check? cpan://windows link --> bah! metacpan://windows link -> Win32::Shortcut - Perl Module to deal with Windows Shortcuts Win32::Hardlink - Hardlink support on Windows	[reply]