how to match and assign?

[slok]

how can I do the following... my problem is at the matching and assigning the variable....
I read in a line from a file.
The "line" is delimited by "|" and I need to compare
the string between the 4th and 5th "|" with the variable I have.
if it matches, I would then need to extract the string
between the 10th and 11th "|"

[davorg]

split is probably the easiest way to go here.

my @values = split /\|/, $var;

if ($values[4] eq $var) {
  # Values matched. 
  # Use value in $values[10]
} else {
  # values didn't match.
}

--
<http://www.dave.org.uk>

"Perl makes the fun jobs fun
and the boring jobs bearable" - me

[frankus]

/me assumes that $/=undef is being applied, to allow all the file to be sucked into the variable $var.
/me also assumes that $var is subsequently being reused to store the matching criteria?

Or am I being dumb?

--

Brother Frankus.

[davorg]

/me assumes that $/=undef is being applied, to allow all the file to be sucked into the variable $var.

Er... no. The original poster mentioned line at a time processing. Assume the following code around my previous snippet:

while (defined($var = <FILE>)) {
  # code here
}

/me also assumes that $var is subsequently being reused to store the matching criteria?

Wasn't very clear exactly what the original poster wanted to do with the results, so I left it deliberately vague :)

--
<http://www.dave.org.uk>

"Perl makes the fun jobs fun
and the boring jobs bearable" - me

[jeroenes]

In an one-liner (just golf):

@passed_items = map {split /\|/; $_[4] eq $var ? $_[10] : undef} <DATA
+>;

Jeroen
"We are not alone"(FZ)
Updated x 2 (ouch, that 'n' hurts!)