#!/usr/bin/perl -w use strict; # wir wollen z.B. ID 238854, den davor und den danach my $id = 238854; my ($previous, $actual, $next) = ('', '', ''); while () { chomp; $previous = $actual; $actual = $_; if ($actual =~ /^; chomp $next; last; } } print join(" ", $previous,$actual, $next); ### verdammt, wie kann ich hier ein DATA mit jeweils zwei Unterstrichen einfügen, ohne dass des Forum es wieder rausschneidet? --DATA-- Aeromonas phage 31
  • Bacteriophage Aaphi23
  • Bacteriophage EJ-1
  • Bacteriophage G1
  • Bacteriophage S-PM2
  • Burkholderia cenocepacia phage Bcep1
  • Burkholderia cenocepacia phage BcepB1A
  • Burkholderia cepacia phage Bcep43
  • Burkholderia cepacia phage Bcep781
  • Listeria bacteriophage P100
  • Mycobacterium phage Bxz1