Help for this page

Select Code to Download


  1. or download this
    <CVS>
    $Id: File_Find.pl,v 1.1 2006-12-17 19:25:03 eric Exp $
    ...
    <p>bar</p>
    <p>baz</p>
    </ARTICLE>
    
  2. or download this
    $VAR1 = \{
                'CVS' => '<The entire file and this is the only tag in the
    + hash with no other tags even making it in here>'};
    
  3. or download this
       foreach my $file (@articles) {
         my $article = XMLin($file, NoAttr => 1);
         use Data::Dumper;
         print "<pre>", Dumper(\$article), "</pre>";
       }