Script der kan finde de 15 sidste linier i en tekstfil

De sidste 15 linier er nemt nok. Jeg ved ikke hvad du mener med \"adskilt af |\".

$filename = \'ditfilnavn\';

open(F,$filename);
@lines=<F>;
close(F);
$start=$#lines-15+1;
$start=0 unless ($start>0);

for ($i=$start;$i<=$#lines;$i++) {
  print $lines[$i];
}

Ok...men jeg vil gerne at jeg kan lave links fra den tekstfil. Hvordan gør man det? Først er linket, og så bliver det adskuld med | og derefter bemærkninger til linket.

Lige en afklaring. Hver linie er på formen:

  http://www.jubii.dk|En tilfældig dansk side

??

jeps :)

for ($i=$start;$i<=$#lines;$i++) {
  chomp($lines[$i]);
  @a = split(\'\\|\',$lines[$i]);
  print \"<a href=\\\"$a[0]\\\">$a[1]</a><br>\\n\";
}