Forum Debian Users Gang

winnetou@hordeum-vulgare ~/tmp $ cat jakis_plik 
1 cos do ignorowania
2 cos do ignorowania
3 cos do ignorowania
tu_zaczynamy
1 sekcja 1
2 sekcja 1
3 sekcja 1
4 sekcja 1
5 sekcja 1
6 sekcja 1
tu_konczymy
4 cos do ignorowania
5 cos do ignorowania
6 cos do ignorowania
7 cos do ignorowania
8 cos do ignorowania
9 cos do ignorowania
tu_zaczynamy
11 sekcja 2
12 sekcja 2
13 sekcja 2
14 sekcja 2
15 sekcja 2
tu_konczymy
cos do ignorowania
cos do ignorowania
cos do ignorowania

winnetou@hordeum-vulgare ~/tmp $ cat spliter.pl 
#!/usr/bin/perl

use warnings;
use strict;
use Data::Dumper;

my $plik_do_podzielenia = $ARGV[0];
#my @tablica_fragmentow;

open(FH, '<', $plik_do_podzielenia);
my $plik_jako_1_string = do {local $/; <FH> };
close (FH);



my $poczatek = q{tu_zaczynamy};
my $koniec = q{tu_konczymy};
my @tablica_fragmentow = $plik_jako_1_string =~ m!$poczatek(.*?)$koniec!sg;

print Dumper(\@tablica_fragmentow);

print Dumper(\@tablica_fragmentow);

print $tablica_fragmentow[1]

winnetou@hordeum-vulgare ~/tmp $ cat jakis_plik 
1 cos do ignorowania 2 cos do ignorowania 3 cos do ignorowania tu_zaczynamy 1 sekcja 1 2 sekcja 1 3 sekcja 1 4 sekcja 1 5 sekcja 1 6 sekcja 1 tu_konczymy 4 cos do ignorowania 5 cos do ignorowania
6 cos do ignorowania 7 cos do ignorowania 8 cos do ignorowania
9 cos do ignorowania tu_zaczynamy 11 sekcja 2 12 sekcja 2 13 sekcja 2 14 sekcja 2 15 sekcja 2 tu_konczymy  cos do ignorowania cos do ignorowania cos do ignorowania
winnetou@hordeum-vulgare ~/tmp $ ./spliter.pl jakis_plik 
$VAR1 = [
          ' 1 sekcja 1 2 sekcja 1 3 sekcja 1 4 sekcja 1 5 sekcja 1 6 sekcja 1 ',
          ' 11 sekcja 2 12 sekcja 2 13 sekcja 2 14 sekcja 2 15 sekcja 2 '
        ];