[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
- <!--x-content-type: text/plain -->
- <!--x-date: Tue Mar 2 09:27:25 2004 -->
- <!--x-from-r13: psbjyre ng bhgcbfgfragvary.pbz (Quevf Tbjyre) -->
- <!--x-message-id: 1078237547.23190.11.camel@devel -->
- <!--x-reference: [email protected] -->
- <!--x-reference: [email protected] --> "http://www.w3.org/TR/html4/loose.dtd">
- <!--x-subject: [ale] Perl Question -->
- <li><em>date</em>: Tue Mar 2 09:27:25 2004</li>
- <li><em>from</em>: cfowler at outpostsentinel.com (Chris Fowler)</li>
- <li><em>in-reply-to</em>: <<a href="msg00025.html">[email protected]</a>></li>
- <li><em>references</em>: <<a href="msg00022.html">[email protected]</a>> <<a href="msg00025.html">[email protected]</a>></li>
- <li><em>subject</em>: [ale] Perl Question</li>
I have many perl programs that have common code. I want to somehow
include a perl program that defines functions for this code. What is
the best way?
I also want to store variables in a central file and source them like I
can in bash. I can not find the perl equivalent. How can I do that?
Thanks,
Chris
On Mon, 2004-03-01 at 22:09, Fletch wrote:
> >>>>> "Bob" == Bob Kruger <bkruger at mindspring.com> writes:
>
> Bob> Simple Perl question for the group - is there a Perl function
> Bob> that capture the space remaining on a mounted partition?
>
> my $fs = "/foo";
> my( $used, $avail, $pct ) =
> (split( /\s+/, `df -k $fs | tail -1` ))[-4,-3,-2];
>
>
> Not to mention searching for df on search.cpan.org sez:
>
>
> Filesys::DiskFree
>
> Filesys::Df
>
> Filesys::DiskSpace
>
>
> Never used any of them personally. YMMV.
>
>
</pre>
<!--X-Body-of-Message-End-->
<!--X-MsgBody-End-->
<!--X-Follow-Ups-->
<hr>
<ul><li><strong>Follow-Ups</strong>:
<ul>
<li><strong><a name="00034" href="msg00034.html">[ale] Perl Question</a></strong>
<ul><li><em>From:</em> ivey at gweezlebur.com (michael d. ivey)</li></ul></li>
</ul></li></ul>
<!--X-Follow-Ups-End-->
<!--X-References-->
<ul><li><strong>References</strong>:
<ul>
<li><strong><a name="00022" href="msg00022.html">[ale] Perl Question</a></strong>
<ul><li><em>From:</em> bkruger at mindspring.com (Bob Kruger)</li></ul></li>
<li><strong><a name="00025" href="msg00025.html">[ale] Perl Question</a></strong>
<ul><li><em>From:</em> fletch at phydeaux.org (Fletch)</li></ul></li>
</ul></li></ul>
<!--X-References-End-->
<!--X-BotPNI-->
<ul>
<li>Prev by Date:
<strong><a href="msg00032.html">[ale] Router blocking FTP??</a></strong>
</li>
<li>Next by Date:
<strong><a href="msg00034.html">[ale] Perl Question</a></strong>
</li>
<li>Previous by thread:
<strong><a href="msg00025.html">[ale] Perl Question</a></strong>
</li>
<li>Next by thread:
<strong><a href="msg00034.html">[ale] Perl Question</a></strong>
</li>
<li>Index(es):
<ul>
<li><a href="maillist.html#00033"><strong>Date</strong></a></li>
<li><a href="threads.html#00033"><strong>Thread</strong></a></li>
</ul>
</li>
</ul>
<!--X-BotPNI-End-->
<!--X-User-Footer-->
<!--X-User-Footer-End-->
</body>
</html>