topic Re: An Easy one in Perl in Operating System - Linux

An Easy one in Perl

Shahul — Thu, 06 Apr 2006 02:55:54 GMT

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

Re: An Easy one in Perl

H.Merijn Brand (procura — Thu, 06 Apr 2006 03:00:26 GMT

-l

See file test operators in perlfunc

# man perlfunc

search for 'file test'

Enjoy, Have FUN! H.Merijn

Re: An Easy one in Perl

Muthukumar_5 — Thu, 06 Apr 2006 03:13:49 GMT

#!/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

Re: An Easy one in Perl

Peter Godron — Thu, 06 Apr 2006 03:19:20 GMT

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

Re: An Easy one in Perl

Muthukumar_5 — Thu, 06 Apr 2006 03:30:43 GMT

You can use stat module in perl.

$ perldoc -f stat

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

--
Muthu

Re: An Easy one in Perl

Shahul — Fri, 07 Apr 2006 05:17:12 GMT

This is resolved now. Thanks to all.