Perl

[rgoud]

Hi list,
How do I get the similar result using Perl.
APLF=`ls -l /tmp/file.lck |awk '{print $5}' |cut -d: -f1`
I am trying to get size of a file.
Thanks in advance.

[Paddy_1]

use the "lstat" command to get the required field

[John Poff]

Hi,

Here is one way to do it in Perl:

#!/usr/bin/perl -w

use File::stat;

$inode = stat("/tmp/file.lck");
$size = $inode->size;
print "Size of /tmp/file.lck is : $size\n";


JP

[Paddy_1]

use File::Find;
open F,"< /tmp/file.lck" or die "Can't open /tmp/file.lck $!";
my $size = (lstat(F))[7];
print "The Size is : $sizei\n";

[Robin Wakefield]

Hi,

perl -e 'print -s shift,"\n"' /tmp/file.lck

rgds, Robin

[S.K. Chan · Accepted solution]

or
APLF=`ls -l /tmp/file.lck|perl -e 'while (<>) {print +(split)[4],"\n"}'`

[H.Merijn Brand (procura]

John, using the OO interface to stat (File::Stat) is maybe easy to read, but a big luggish to use in perl one liners.

Paddy, why use File::Find if you don't use it?

Robin, your post is the best and very correct (as it usually is :), but it can be shorter using the -l command line option, which is very underused:

# perl -le 'print -s shift' /tmp/file.lck

Or even shorter for more files

a5:/u/usr/merijn 103 > perl -le'print-s,$_ for@ARGV' /tmp/xx.txt /tmp/xx.uit
29502/tmp/xx.txt
1230/tmp/xx.uit
a5:/u/usr/merijn 104 >

Enjoy, have FUN! H.Merijn

[Robin Wakefield]

Hi Merijn,

You're right of course, always forgot about that one, although if you're assigning to a variable, you don't need the return anyway :)

Robin