perl question

[Ridzuan Zakaria]

Hi,

How do write the below code in perl?

LN="rwxrwxr-x 3 oracle dba 96 Sep 16 16:48 datafile01.dbf";

FLNM=`echo $LN | awk '{print($9)}'`

I want to read the 9th column of the LN string.

Thanks.
ridzuan

[A. Clay Stephenson · Accepted solution]

This is one of those things that awk is better at doing but here is one Perl solution:

echo "${LN}" | perl -e 'while (<>) {@a = split ' ',$_; print $a[8],"\n";}'

[Hein van den Heuvel]

There are of course many ways to solve this:

With an array, after a split:

perl -e '$_ = `ls -l x`; @words=split; print "$words[8]\n"'


Using a regular expression to remember in $1 the last series of non-spaces on the line:

perl -e '$_ = `ls -l x`; if (/\s(\S+)$/) { print "$1\n" }'


Using the same split but labeling the returned array with variables"

perl -e '$_ = `ls -l x`;($prot,$x,$group,$user,$size,$date1,$date1,$time,$name)=split; print "$name\n"'

Cheers,
Hein.

[Caesar_3]

Hello!

In perl script:
$LN = "rwxrwxr-x 3 oracle dba 96 Sep 16 16:48 datafile01.dbf";

$name = (split (" ", $LN))[8];

Caesar

[H.Merijn Brand (procura]

Don't count :) It's the last field:

$name = (split/\s+/)[-1];

why use external commands to get to file stuff? Because it's from a list? Good reason, otherwise use stat

Enjoy, have Fun! H.Merijn

[A. Clay Stephenson]

By the way, if you have a working awk example, you can simply run it through a2p to translate it to Perl. It doesn't always produce pretty Perl but it does produce a workable solution that you can then modify.

[Ridzuan Zakaria]

Both solutions work just fine. Thanks.