view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

    - soundex "joke" snippet, thanks to MIKESTOK

2023.07
    - a count of perl5 LOC as of the 5.38 release

2022.11
    - a perl quine

2022.05
    - snippet from "How Perl Saved the Human Genome Project"
    - complete with syntax error :)

2022.04
    - vec/pack examples from perldoc vec

2021.08
    - update photo project details/URL

2019.11
    - more snippets, thanks to SLU

README.md  view on Meta::CPAN

            }
        }
    }

    format STDOUT =
    vec($_,@#,@#) = @<< == @######### @>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    $off, $width, $bits, $val, $res
    .
    __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|);

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

            }
        }
    }

    format STDOUT =
    vec($_,@#,@#) = @<< == @######### @>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    $off, $width, $bits, $val, $res
    .
    __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|);