Hi

I wrote this simple script :

#!/usr/local/bin/perl

use strict ;
use warnings ;
use File::Stat ;

my $filename = "/tmp/cvr.txt" ;

my $stat = new File::Stat($filename) or die " No $filename : $! \n";

print " Dev = $stat->dev \n";
print " Inode = $stat->ino \n";
print " Mode = $stat->mode \n";
print "  Link = $stat->nlink \n";
print " Uid = $stat->uid \n";

 but the output is comming like this
---OUTPUT --

Dev = File::Stat=ARRAY(0x150a20)->dev
Inode = File::Stat=ARRAY(0x150a20)->ino
Mode = File::Stat=ARRAY(0x150a20)->mode
 Link = File::Stat=ARRAY(0x150a20)->nlink
Uid = File::Stat=ARRAY(0x150a20)->uid

what i want is actual values like what is the uid of the file ? .....
Thanks in advance :)

regards
CVR

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to