#!/usr/bin/perl
# HES99spl.PL Hesla 99 Split - rozdeli soubory do mesicu
$rok = 99; # Kalendarni rok
$n_mes = 0; # leden --
#======== CYKLY PRO VSECHNY MESICE ========
foreach $filename (@ARGV)
{
open(INFILE, $filename) || do
{ print STDERR "Nemuzu otevrit soubor $filename: $!\n"; next; };
print STDERR "\tMakam na souboru $filename\n";
MES: while(1)
{
$n_mes++;
$outfile = sprintf("hes%02d%02d.txt", $rok, $n_mes);
open(STDOUT, ">$outfile") || do
{ print STDERR "Nemuzu presmerovat STDOUT do $outfile: $!\n"; next; };
print STDERR "\t\t--> $outfile\n";
while (<INFILE>) ##### pro kazdy radek: ######
{
if (/^\.PA/)
{
close STDOUT;
next MES;
}
print;
}
close STDOUT;
last;
}
}