All pastes #344372 Raw Edit

Unnamed

public text v1 · immutable
·published 2007-02-07 18:34 UTC
rendered paste body
#!/usr/bin/perl

while (<>) {
  # start
  if (/^BEGIN:VEVENT/) {
    do {
      $line = <> ;
      if ($line =~ /SUMMARY:Peski/) { $err = 1 ; last ; }
      $seg .= $line ;
    } until ($line =~ /^END:VEVENT/) || $err ;
    if (! $err) { $output .= $seg ; }
    next ;
  }
  $seg = "" ;
  $output .= $_ ;
}

print $output