Projekt: Hesla Jednoty bratrské/1999/hes99spl.pl

Z Wikiverzity
Skočit na navigaci Skočit na vyhledávání
                                                                             
#!/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;
      }
  }