view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN

    __END__

## LEEJO (example from "How Perl Saved the Human Genome Project" complete with syntax error)

    use Boulder::Stream;
    $stream = new Boulder::Stream;
    while ($record=$stream->read_record('NAME','SEQUENCE')) {
        $name = $record->get('NAME');
        $sequence = $record->get('SEQUENCE');

        ...continue processing...

        $record->add(QUALITY_CHECK=>"OK|);
        $stream->write_record($record);
    }

## LEEJO (quine - a program that prints itself out)

    $_=q(print"\$_=q($_);eval;");eval;

## LEEJO (perl5 LOC count as of 5.38 release)

lib/Acme/Glue.pm  view on Meta::CPAN

    __END__

=head2 LEEJO (example from "How Perl Saved the Human Genome Project" complete with syntax error)

    use Boulder::Stream;
    $stream = new Boulder::Stream;
    while ($record=$stream->read_record('NAME','SEQUENCE')) {
        $name = $record->get('NAME');
        $sequence = $record->get('SEQUENCE');

        ...continue processing...

        $record->add(QUALITY_CHECK=>"OK|);
        $stream->write_record($record);
    }

=head2 LEEJO (quine - a program that prints itself out)

    $_=q(print"\$_=q($_);eval;");eval;

=head2 LEEJO (perl5 LOC count as of 5.38 release)

snippets/LEEJO/genome.pl  view on Meta::CPAN

use Boulder::Stream; 
$stream = new Boulder::Stream; 
while ($record=$stream->read_record('NAME','SEQUENCE')) {
   $name = $record->get('NAME'); 
   $sequence = $record->get('SEQUENCE'); 
   
   # ...continue processing...
   
   $record->add(QUALITY_CHECK=>"OK|); 
   $stream->write_record($record); 
}