home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _bbd575f9baaaf4db38304258ec323cd8 < prev    next >
Text File  |  2000-03-23  |  3KB  |  94 lines
  1.  
  2. <HTML>
  3. <HEAD>
  4. <TITLE>Shell - run shell commands transparently within perl</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> Shell - run shell commands transparently within perl</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.     <LI><A HREF="#author">AUTHOR</A></LI>
  26. </UL>
  27. <!-- INDEX END -->
  28.  
  29. <HR>
  30. <P>
  31. <H1><A NAME="name">NAME</A></H1>
  32. <P>Shell - run shell commands transparently within perl</P>
  33. <P>
  34. <HR>
  35. <H1><A NAME="supportedplatforms">SUPPORTED PLATFORMS</A></H1>
  36. <UL>
  37. <LI>Linux</LI>
  38. <LI>Solaris</LI>
  39. <LI>Windows</LI>
  40. </UL>
  41. <HR>
  42. <H1><A NAME="synopsis">SYNOPSIS</A></H1>
  43. <P>See below.</P>
  44. <P>
  45. <HR>
  46. <H1><A NAME="description">DESCRIPTION</A></H1>
  47. <PRE>
  48.   Date: Thu, 22 Sep 94 16:18:16 -0700
  49.   Message-Id: <9409222318.AA17072@scalpel.netlabs.com>
  50.   To: perl5-porters@isu.edu
  51.   From: Larry Wall <lwall@scalpel.netlabs.com>
  52.   Subject: a new module I just wrote</PRE>
  53. <P>Here's one that'll whack your mind a little out.</P>
  54. <PRE>
  55.     #!/usr/bin/perl</PRE>
  56. <PRE>
  57.     use Shell;</PRE>
  58. <PRE>
  59.     $foo = echo("howdy", "<funny>", "world");
  60.     print $foo;</PRE>
  61. <PRE>
  62.     $passwd = cat("</etc/passwd");
  63.     print $passwd;</PRE>
  64. <PRE>
  65.     sub ps;
  66.     print ps -ww;</PRE>
  67. <PRE>
  68.     cp("/etc/passwd", "/tmp/passwd");</PRE>
  69. <P>That's maybe too gonzo.  It actually exports an AUTOLOAD to the current
  70. package (and uncovered a bug in Beta 3, by the way).  Maybe the usual
  71. usage should be</P>
  72. <PRE>
  73.     use Shell qw(echo cat ps cp);</PRE>
  74. <P>Larry</P>
  75. <P>If you set $Shell::capture_stderr to 1, the module will attempt to
  76. capture the STDERR of the process as well.</P>
  77. <P>The module now should work on Win32.</P>
  78. <PRE>
  79.  Jenda</PRE>
  80. <P>
  81. <HR>
  82. <H1><A NAME="author">AUTHOR</A></H1>
  83. <P>Larry Wall</P>
  84. <P>Changes by <A HREF="mailto:Jenda@Krynicky.cz">Jenda@Krynicky.cz</A> and Dave Cottle <<A HREF="mailto:d.cottle@csc.canterbury.ac.nz">d.cottle@csc.canterbury.ac.nz</A>></P>
  85. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  86. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  87. <STRONG><P CLASS=block> Shell - run shell commands transparently within perl</P></STRONG>
  88. </TD></TR>
  89. </TABLE>
  90.  
  91. </BODY>
  92.  
  93. </HTML>
  94.