Perl assistance

[Luke Morgan]

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

[Ollie R · Accepted solution]

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.

[Luke Morgan]

Excellent!

Thanks Ollie.

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

Luke

[John Poff]

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

[Stuart Browne]

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

[Ollie R]

Hi,

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

Glad the script worked,

Ollie.

[Stuart Browne]

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