topic Re: Perl in Operating System - HP-UX

Perl

rgoud — Mon, 28 Apr 2003 13:21:18 GMT

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.

Re: Perl

Paddy_1 — Mon, 28 Apr 2003 13:32:01 GMT

use the "lstat" command to get the required field

Re: Perl

John Poff — Mon, 28 Apr 2003 13:34:04 GMT

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

Re: Perl

Paddy_1 — Mon, 28 Apr 2003 13:38:57 GMT

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";

Re: Perl

Robin Wakefield — Mon, 28 Apr 2003 13:43:45 GMT

Hi,

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

rgds, Robin

Re: Perl

S.K. Chan — Mon, 28 Apr 2003 13:44:54 GMT

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

Re: Perl

H.Merijn Brand (procura — Tue, 29 Apr 2003 09:18:07 GMT

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

Re: Perl

Robin Wakefield — Tue, 29 Apr 2003 09:40:27 GMT

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