Kód: Vybrať všetko

Subor

%     Cast 1

bla
bla
bla

&

%     Cast 2

bla
bla
bla

&

Kód: Vybrať všetko

#!/bin/bash

TIME=60    # cas do dalsieho updatu jednotlivych casti  v sekundach
FILE="hlavny_subor.txt"
BACKUP_FILE="${FILE}.zaloha"

CheckBackup()   # vzdy sa skontroluje, ci existuje zaloha len raz pri starte skriptu
{
if [ ! -f "$BACKUP_FILE" ]  # pozri manualove stranky [i]test[/i] , ! neguje vysledok, -f zistuje ci existuje a je to subor
then
        touch "$BACKUP_FILE"   # vytvori prazdny subor so stanovenym nazvom
fi   
}

AwkFunction()   # toto je tvoje :)
{
:
}

CreateBackup()   # vytvori zalohu po ukonceni funkcie AwkFunction
{
cp "$FILE" "$BACKUP_FILE"
}

#################################################################

CheckBackup

while true    # nekonecna smycka
do
        if diff --report-identical-files "$FILE" "$BACKUP_FILE" &>/dev/null  # zahlasi ak su subory identicke; vystup potlaceny; dolezity je exit status
        then
                sleep "$TIME"    # kedze bol identicky, ide sa spat na urceny cas
        else
                AwkFunction       # kedze neboli subory identicke, vykonaju sa vsetky funkcie v danom poradi a zase sa ide spat
                CreateBackup
                sleep "$TIME"
        fi
done

Kód: Vybrať všetko

#!/usr/bin/perl


use strict;
use warnings;


my $file;
my $subfile;
my $part;
my $content;


unlink glob('*.txt');

open($file, "@ARGV") || die "Bad file: @ARGV\n";
        while(<$file>) {

                if(s/^&&\s+(\w+)\s+/$1/) {
                        $part = $_;
                        open($subfile, ">", "$part.txt") || die "can't open: $part\n";
                        next;
                };

                if(/^%%$/) {
                        print $subfile $content;
                        close $subfile;
                        $part="";
                        $content="";
                        next;
                };

                $content .= $_ if $part;
        };

close $file || die "Error occured ..\n";
exit 0;