An Easy one in Perl

[Shahul]

Hi,

I need to check if a directory is a symbolic link or not, in ksh we use -h to check the link. What about Perl?

TIA
Shahul

[H.Merijn Brand (procura]

-l

See file test operators in perlfunc

# man perlfunc

search for 'file test'


Enjoy, Have FUN! H.Merijn

[Muthukumar_5 · Accepted solution]

#!/usr/bin/perl
print "Enter directory | filename to check symbolic link or not: \n"
$filename=;
chomp($filename);

if ( -l $filename )
{
print $filename . " is made up of symbolic link";
}
else
{
print $filename . " is not made up of symbolic link";
}

###
Use -l instead of -h in ksh.

--
Muthu

[Peter Godron]

Shahul,
#!/usr/bin/perl
unless (open(MYFILE,"file.txt")){
if (!(-l "file.txt")){
die("File is not a link\n");
}
}

[Muthukumar_5]

You can use stat module in perl.

$ perldoc -f stat

which is giving an example for this to use S_ISLNK().

--
Muthu

[Shahul]

This is resolved now. Thanks to all.