Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Collapsing smaller scripts into a larger one, request for comment

by Lady_Aleena (Curate)
on May 29, 2020 at 17:35 UTC ( #11117478=perlquestion: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    # This is the index for Collections.
    ...
    __DATA__
    Welcome to Lady Aleena's B<collections>, which is lists of A<novels|hr
    +ef="Fiction.pl">, A<books|href="Non-fiction.pl">, A<music|href="Music
    +_and_comedy.pl">, A<movies|href="Movies.pl">, A<tie-ins|href="Tie-ins
    +.pl">, and A<programs|href="Programs.pl"> I am willing to admit I own
    + or use. The list of movies here is just those movies I own and shoul
    +d not to be confused with my more general interest in A<movies|href="
    +../Movies">. Tie-ins are books and music connected to movies or telev
    +ision series. I also share my A<fandom|href="../Fandom"> elsewhere.
    Here is a key for the notations after each title with the exception of
    + programs.
    
  2. or download this
    #!/usr/bin/perl
    use strict;
    ...
    
    __DATA__
    This is my B<fiction collection> of SPAN<hardcovers|^hardcovers^>, SPA
    +N<trade paperbacks|^trades^>, and SPAN<mass market paperbacks|^massma
    +rkets^>.
    
  3. or download this
    #!/usr/bin/perl
    use strict;
    ...
    
    __DATA__
    This is my B<movie collection> of SPAN<blu-rays|^brds^>, SPAN<DVDs|^dv
    +ds^>, and SPAN<VHSs|^vhss^>.
    
  4. or download this
    #!/usr/bin/perl
    use strict;
    ...
    
    __DATA__
    This is my B<music and comedy collection> of SPAN<LPs|^lps^>, SPAN<45s
    +|^ffs^>, SPAN<cassettes|^cassettes^>, and SPAN<CDs|^cds^>. If it is n
    +ot on a CD, I have not heard it in a long long time. SPAN<&#9785;|cla
    +ss="bigger">
    
  5. or download this
    #!/usr/bin/perl
    use strict;
    ...
    
    __DATA__
    This is a list of B<programs> that I am using or have used. I can not 
    +account for I<all> the software we have had and used over the years. 
    +Some of it was so bad, we blanked it out of our heads. This list does
    + not include a full list of hardware drivers either. So much software
    +, so little time or in this case patience.
    
  6. or download this
    #!/usr/bin/perl
    use strict;
    ...
    This is my film and television B<tie-in collection>.
    For books: SPAN<hardcovers|^hardcovers^>, SPAN<trade paperbacks|^trade
    +s^>, and SPAN<mass market paperbacks|^massmarkets^>.
    For music: SPAN<CDs|^cds^>, SPAN<cassettes|^cassettes^>, SPAN<45s|^ffs
    +^>, and SPAN<LPs|^lps^>.
    
  7. or download this
    #!/usr/bin/perl
    # This is the index for Collections.
    ...
        });
      }
    );
    
  8. or download this
    sub base_menu {
      my %opt = @_;
    ...
    
      return @file_lines > 0 ? \@file_lines : undef;
    }
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://11117478]
Approved by Corion
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (5)
As of 2021-04-23 01:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?