Develop and Download Open Source Software

EPWING for the classics

Browse Subversion Repository

/[classicalepwing]/shakespeare/txt/dropcvslog.pl

Contents of /shakespeare/txt/dropcvslog.pl

Parent Directory Parent Directory | Revision Log Revision Log

Revision 70 - (show annotations) (download) (as text)
Thu Nov 3 04:53:11 2011 UTC (12 years, 4 months ago) by ohkubo-k
File MIME type: text/x-perl
File size: 198 byte(s) 
























1

#!/usr/bin/perl








2

use utf8;








3










4

$drop=0;








5










6

while (my $line = <STDIN>){








7

    if ($line =~ /ohkubo-k/) {








8

       $drop=2;








9

    } elsif ($drop == 0) {








10

      print "$line";








11

    } else {








12

       $drop--;








13

     }








14

}




















Back to OSDN">Back to OSDN

ViewVC Help




Powered by ViewVC 1.1.26
 



















About OSDN





Find Software





Develop Software






Help