Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Comment on

( #3333=superdoc: print w/ replies, xml ) Need Help??
#!/usr/bin/perl # cookbook.pl - get and store daily cookbook recipes from perl.com # files are saved as title_of_the_recipe.html use strict; use LWP::Simple 'get'; my $path = "/full/path/to/cookbook"; # CHANGE my $cook = "http://www.perl.com/pub/a/universal/pcb/solution.html"; my $cooked = get $cook or die; $cooked =~ s|<link href="/perl_a\.css" type="text/css" rel="stylesheet +">||oi; $cooked =~ s|language="JavaScript"|language="foo"|gi; $cooked =~ s| src="(.*?)"| src="blank.gif"|gi; $cooked =~ s| href="/| href="http://www\.perl\.com/|gi; $cooked =~ m/<h2><center>.*[^<]/oi; my $title = $&; chomp title; $title =~ s|<h2><center>||oi; $title =~ s|\W|_|g; $title =~ s|^_||o; my $save = "$title.html"; open(FILE,">$path/$save") or die; print FILE $cooked; close (FILE) or die; exit; #!/usr/bin/perl # cookbooks.pl - list saved recipes use CGI qw(:standard); opendir DIR, "." or die "error reading dir: $!"; @files = readdir DIR; closedir DIR; foreach $file(@files){ if($file=~/.*\.html/){ if($file=~/^[A-Z]/){ pus +h @recs,$file}}} @recs=sort(@recs); $uhh=scalar(@recs); print header; print start_html(-title=>'Recipes of the Day',-bgcolor=>'ffffff',-text +=>'000000',-link=>'000000',-vlink=>'000000'); print<<HTML; <table border="0" cellpadding="3" cellspacing="0" width="100%" align=" +center"><tr><td bgcolor="#0098C0"> <font color="#FFFFFF" size="+3" face="Times New Roman">&nbsp;$uhh Perl + Cookbook Recipes<br></font></td> <td bgcolor="#0098C0" align="right"><a href="http://www.perl.com/pub/u +niversal/pcb/solution.html"> <img src="cookbook.gif" border=0 alt="Perl Cookbook cover image"></a> <tr><td><ol><tt> HTML foreach $pe(@recs){ ($fp=$pe)=~s/_|\.html$/ /g; print qq~<li><a href="$pe">$fp</a><br>~; } if($uhh==0){ print qq~Your recipes will be listed here, sorted alphabe +tically.~;} print<<HTML; </ol> <tr bgcolor="#0098C0"><td><font size="-1" color="#ffffff"> Solutions and Examples for Perl Programmers</td> <td align="right"><font size="-2" color="#ffffff"> by Tom Christiansen and Nathan Torkington</font></td></tr></table> HTML exit; # sample crontab 1 11 * * * /full/path/to/cookbook/cookbook.pl

In reply to Cookbook Recipe Bot by epoptai

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • Outside of code tags, you may need to use entities for some characters:
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.
  • Log In?
    Username:
    Password:

    What's my password?
    Create A New User
    Chatterbox?
    and the web crawler heard nothing...

    How do I use this? | Other CB clients
    Other Users?
    Others about the Monastery: (4)
    As of 2014-08-31 04:01 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?

      The best computer themed movie is:











      Results (294 votes), past polls