topic Re: perl question in Operating System - HP-UX

perl question

Ridzuan Zakaria — Mon, 20 Oct 2003 16:45:54 GMT

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

Re: perl question

A. Clay Stephenson — Mon, 20 Oct 2003 17:03:22 GMT

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

Re: perl question

Hein van den Heuvel — Mon, 20 Oct 2003 17:16:15 GMT

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.

Re: perl question

Caesar_3 — Mon, 20 Oct 2003 17:22:55 GMT

Hello!

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

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

Caesar

Re: perl question

H.Merijn Brand (procura — Mon, 20 Oct 2003 17:32:58 GMT

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

Re: perl question

A. Clay Stephenson — Mon, 20 Oct 2003 17:37:59 GMT

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.

Re: perl question

Ridzuan Zakaria — Mon, 20 Oct 2003 17:48:28 GMT

Both solutions work just fine. Thanks.