Leser: 22
1 2 3 4 5 6 7 8
while (<Textfile>) { if (/Tropical\sBryology\s\d\d:\d+-\d+,\s\d\d\d\d/) { push @grabbed1, $_;} if (/^Abstract:/) { push @grabbed1, $_; } }
1 2 3 4 5 6 7 8 9 10 11
#! /usr/bin/perl use strict; use warnings; my @treffer; while ( my $line = <> ) { if ( $line =~ m{von} .. $line =~ m{bis} ) { push @treffer, $line; } }