home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _1d10da74f434e58ef940bb954ab53894 < prev    next >
Text File  |  2000-03-23  |  3KB  |  80 lines
  1.  
  2. <HTML>
  3. <HEAD>
  4. <TITLE>validate - run many filetest checks on a tree</TITLE>
  5. <LINK REL="stylesheet" HREF="../../Active.css" TYPE="text/css">
  6. <LINK REV="made" HREF="mailto:">
  7. </HEAD>
  8.  
  9. <BODY>
  10. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  11. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  12. <STRONG><P CLASS=block> validate - run many filetest checks on a tree</P></STRONG>
  13. </TD></TR>
  14. </TABLE>
  15.  
  16. <A NAME="__index__"></A>
  17. <!-- INDEX BEGIN -->
  18.  
  19. <UL>
  20.  
  21.     <LI><A HREF="#name">NAME</A></LI><LI><A HREF="#supportedplatforms">SUPPORTED PLATFORMS</A></LI>
  22.  
  23.     <LI><A HREF="#synopsis">SYNOPSIS</A></LI>
  24.     <LI><A HREF="#description">DESCRIPTION</A></LI>
  25. </UL>
  26. <!-- INDEX END -->
  27.  
  28. <HR>
  29. <P>
  30. <H1><A NAME="name">NAME</A></H1>
  31. <P>validate - run many filetest checks on a tree</P>
  32. <P>
  33. <HR>
  34. <H1><A NAME="supportedplatforms">SUPPORTED PLATFORMS</A></H1>
  35. <UL>
  36. <LI>Linux</LI>
  37. <LI>Solaris</LI>
  38. <LI>Windows</LI>
  39. </UL>
  40. <HR>
  41. <H1><A NAME="synopsis">SYNOPSIS</A></H1>
  42. <PRE>
  43.     use File::CheckTree;</PRE>
  44. <PRE>
  45.     $warnings += validate( q{
  46.         /vmunix                 -e || die
  47.         /boot                   -e || die
  48.         /bin                    cd
  49.             csh                 -ex
  50.             csh                 !-ug
  51.             sh                  -ex
  52.             sh                  !-ug
  53.         /usr                    -d || warn "What happened to $file?\n"
  54.     });</PRE>
  55. <P>
  56. <HR>
  57. <H1><A NAME="description">DESCRIPTION</A></H1>
  58. <P>The <CODE>validate()</CODE> routine takes a single multiline string consisting of
  59. lines containing a filename plus a file test to try on it.  (The
  60. file test may also be a ``cd'', causing subsequent relative filenames
  61. to be interpreted relative to that directory.)  After the file test
  62. you may put <CODE>|| die</CODE> to make it a fatal error if the file test fails.
  63. The default is <CODE>|| warn</CODE>.  The file test may optionally have a ``!' prepended
  64. to test for the opposite condition.  If you do a cd and then list some
  65. relative filenames, you may want to indent them slightly for readability.
  66. If you supply your own <A HREF="../../lib/Pod/perlfunc.html#item_die"><CODE>die()</CODE></A> or <A HREF="../../lib/Pod/perlfunc.html#item_warn"><CODE>warn()</CODE></A> message, you can use $file to
  67. interpolate the filename.</P>
  68. <P>Filetests may be bunched:  ``-rwx'' tests for all of <CODE>-r</CODE>, <CODE>-w</CODE>, and <CODE>-x</CODE>.
  69. Only the first failed test of the bunch will produce a warning.</P>
  70. <P>The routine returns the number of warnings issued.</P>
  71. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  72. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  73. <STRONG><P CLASS=block> validate - run many filetest checks on a tree</P></STRONG>
  74. </TD></TR>
  75. </TABLE>
  76.  
  77. </BODY>
  78.  
  79. </HTML>
  80.