topic Re: Perl assistance in Operating System - Linux

Perl assistance

Luke Morgan — Tue, 15 Jul 2003 09:49:27 GMT

Hi,
I have a perl script I was given.
It works like a charm except for one thing I have just discovered. It doesn't appear to use decimals.
The script takes a file with two columns. One being a column number, and one a value.
e.g.
1|2
2|2
3|42

It returns a file with the values in the appropriate columns.
e.g.
2|2|42

The problem is, if a value in the original file is say 0.442, then the output will be 0

Can anyone help me make this script notice decimals please?

for a in `ls $path/data/indexeditems`
do
perl -nle'/(\d+)\D+?(-?\d+)/&&$1 and$x[$1-1]=$2}END{$,="|";print@x' $path/data/indexeditems/$a > $path/data/lines/$a
done

Thanks for your time

Luke

Re: Perl assistance

Ollie R — Tue, 15 Jul 2003 11:39:18 GMT

Hi Luke,

In Perl-speak, "TAMTOATDI". Here's one:

replace:
/(\d+)\D+?(-?\d+)/
with:
/(\d+)\D+?(-?\S+)/

This presumes that the first entry on each line consists of only digits.

Ollie.

Re: Perl assistance

Luke Morgan — Tue, 15 Jul 2003 12:19:33 GMT

Excellent!

Thanks Ollie.

Any chance of telling me what "TAMTOATDI" means?
:)

Luke

Re: Perl assistance

John Poff — Tue, 15 Jul 2003 14:42:21 GMT

Hi Luke,

I'm not quite sure how Ollie's acronym for TAMTOATDI works out, but I've seen it spelled TMTOWTDI, which is pronounced 'tim-toady' and stands for 'There's More Than One Way To Do It'. It's an expression familiar to Perl users because there are always many possible solutions to a problem using Perl.

JP

Re: Perl assistance

Stuart Browne — Tue, 15 Jul 2003 22:54:38 GMT

I'm picking "theres ALWAYS more than ..."

Re: Perl assistance

Ollie R — Wed, 16 Jul 2003 04:21:32 GMT

Hi,

I'm picking the fact that I made a typo!!! 8O)

Glad the script worked,

Ollie.

Re: Perl assistance

Stuart Browne — Wed, 16 Jul 2003 04:35:46 GMT

Well, I was having trouble trying to figure out what the 2nd A stood for :P