[7220] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 846 Volume: 8

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Aug 11 15:17:18 1997

Date: Mon, 11 Aug 97 12:01:38 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)

Perl-Users Digest           Mon, 11 Aug 1997     Volume: 8 Number: 846

Today's topics:
     Problem with ENV{REMOTE_USER} <yangma@cig.mot.com>
     Re: Problem with ENV{REMOTE_USER} (Jeremy D. Zawodny)
     Re: Problem with ENV{REMOTE_USER} <rootbeer@teleport.com>
     Raffle Pentium II 266 - Dream Machine - Benefits Childr <amercares@iag.net>
     Re: Seeking object enlightenment (Jay Flaherty)
     Re: sleep for a few hundrad milli seconds <rootbeer@teleport.com>
     Re: splice <rootbeer@teleport.com>
     Telnet problems <fullung@ilink.nis.za>
     Re: Too Many Files for Foreach Loop? (Mike Stok)
     Re: using system() during html page, IIS 3 <rootbeer@teleport.com>
     Re: using system() during html page, IIS 3 (Jeremy D. Zawodny)
     Re: Visual representation of UNIX Directories? (Gurusamy Sarathy)
     Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: Mon, 11 Aug 1997 11:24:22 -0500
From: "Mai Yang [I]" <yangma@cig.mot.com>
Subject: Problem with ENV{REMOTE_USER}
Message-Id: <33EF3CB6.41C67EA6@cig.mot.com>

I need to know the name of the person who is accessing my homepage. I
examined the enviroment variable ENV{REMOTE_USER} and ENV{HTTP_FROM} to
get the user's name and email. But both turned out to be null. I then 
displayed all the enviroment variables. I found the above two variables
were not defined at all. 

Can anyone give me any suggestions or reasons for this? Thanks a lot.

--
#!/usr/bin/perl

print "Content-type: text/html", "\n\n";
print "<HTML>", "\n";
print "<HEAD><TITLE>About this Server</TITLE></HEAD>", "\n";
print "<BODY><H1>About this Server</H1>", "\n";
print "<HR><PRE>";
print "Remote User Name: ", $ENV{REMOTE_USER}, "<BR>","\n";
print "Email address:    ", $ENV{HTTP_FROM},"<BR>","\n";
print "<HR></PRE>", "\n";
foreach $key (keys %ENV){
    print "ENV{$key} = $ENV{$key} <br>\n";
}
print "<hr>\n";
print "</BODY></HTML>", "\n";
exit (0);

-- 
Mai
         *     *
        ***   ***
       ***** *****
         I     I
    --=_--_== -_-_==


------------------------------

Date: Mon, 11 Aug 1997 17:12:10 GMT
From: zawodny@hou.moc.com (Jeremy D. Zawodny)
Subject: Re: Problem with ENV{REMOTE_USER}
Message-Id: <33ef471b.268079958@igate.hst.moc.com>

[cc'd to original author]

On Mon, 11 Aug 1997 11:24:22 -0500, "Mai Yang [I]"
<yangma@cig.mot.com> wrote:

>I need to know the name of the person who is accessing my homepage. I
>examined the enviroment variable ENV{REMOTE_USER} and ENV{HTTP_FROM} to
>get the user's name and email. But both turned out to be null. I then 
>displayed all the enviroment variables. I found the above two variables
>were not defined at all. 
>
>Can anyone give me any suggestions or reasons for this? Thanks a lot.

Just ask them for their name. Why sneak around behind their backs?

Jeremy
-- 
Jeremy Zawodny
Internet Technology Group
Information Technology Services
Marathon Oil Company, Findlay Ohio

http://www.marathon.com/

Unless explicitly stated, these are my opinions only--not those of my employer.


------------------------------

Date: Mon, 11 Aug 1997 11:04:31 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: "Mai Yang [I]" <yangma@cig.mot.com>
Subject: Re: Problem with ENV{REMOTE_USER}
Message-Id: <Pine.GSO.3.96.970811105527.22944E-100000@julie.teleport.com>

On Mon, 11 Aug 1997, Mai Yang [I] wrote:

> I need to know the name of the person who is accessing my homepage.

Maybe you should ask them for ID. :-)

> I examined the enviroment variable ENV{REMOTE_USER} and ENV{HTTP_FROM}
> to get the user's name and email. But both turned out to be null. I then
> displayed all the enviroment variables. I found the above two variables
> were not defined at all.

> Can anyone give me any suggestions or reasons for this? 

It sounds as if your server never set those variables, probably because
the remote browser never sent that information. Even if the browser had
sent you a name, there's no way to be sure that the name belongs to the
person looking at your page. Many people can use one browser.

    http://hoohoo.ncsa.uiuc.edu/cgi/env.html

I usually recommend the method you've used all your life: When you want to
know somebody's name, ask for it. :-) 

(By the way, did you notice that the answer had no Perl in it? This
question and answer would be basically the same no matter what language
your script is written in, so that's a clue that it's not a Perl question. 
In this case, it's a CGI question, and it would belong in a CGI newsgroup
- if it's not already in that group's FAQ. :-) 

Hope this helps!

-- 
Tom Phoenix           http://www.teleport.com/~rootbeer/
rootbeer@teleport.com  PGP   Skribu al mi per Esperanto!
Randal Schwartz Case:  http://www.rahul.net/jeffrey/ovs/



------------------------------

Date: Mon, 11 Aug 1997 14:49:13 -0500
From: Frank Carr <amercares@iag.net>
Subject: Raffle Pentium II 266 - Dream Machine - Benefits Children's Hospital
Message-Id: <33EF6CB8.4246C563@iag.net>


--------------D2F3F50EAAD0253316FFAA13
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

                     Pentium II 266 Computer Raffle

America Cares is holding computer raffles to benefit a children's
hospital.  We will raffle off one top of the line computer about every
six weeks until the goal is reached.  Items to be raffled off will
include top of the line computer systems, hardware, software, and
computer accessories.  For information on the hardware and software
raffles see the website at http://www.usa-nonprofit.org/no02002.htm.
Complete rules for the raffle may also be found at the website or you
may request them with your raffle ticket donation.

Grand Prize
Pentium Pro 266 Computer System:

     Maxtor 3.5 Gigabyte Hard Drive
     FDD 120 Megabyte Floppy Drive
     56K US Robotics Sportster Modem
     64 Megabytes Ram
     Mitsumi 24 Speed CD-Rom
     Sound Labs AWE-64 Gold Sound Card
     Labtec LCS-2412 Subwoofer Sound System
     Magnavox SVGA 17" Monitor
     Microsoft Natural Wave Keyboard
     Microsoft Serial Mouse
     Genius F-21 Joystick
     Microsoft Window 95 Second Version

          Retail Value $6,399.00

1st Prize
Mitsumi Internal 6x2 Recordable CD-Rom

          Retail Value $ 695.88

2nd Prize (3 Winners)
56K US Robotics Sportster Fax/Data Modem (Choice Internal or External)

          Retail Value $239.99 (ea)

------------------------------------------------------------------------
                         P-266 Raffle Entry Form
Yes, I would like to participate in America Cares' Pentium 266 Raffle.
This raffle will have a minimum of 5,000.  Donations are $5.00 per
ticket.  I accept that I will be responsible for any delivery charges
and taxes owed on any prize I may win.

Enclosed is my donation of $______ for ______ tickets at $5.00 per
ticket.  Send my raffle ticket stubs to the address I will indicate
below.

Personal Information

Name:
Address:
City:
State:                         Zip:
Phone:
E-Mail:

Mail entry form and donation to:
                              America Cares
                             341 Montego St
                            Deltona, FL 32725


America Cares maintains a website at http://www.usa-nonprofit.org
where you can find the latest items to be raffled.  Separate raffles are
being held for hardware and software items.

Florida Registration Number SC-08008
A COPY OF THE OFFICIAL REGISTRATION AND FINANCIAL INFORMATION MAY BE
OBTAINED FROM THE DIVISION OF CONSUMER SERVICES BY CALLING
1-800-435-7352, WITHIN THE STATE.  REGISTRATION DOES NOT IMPLY
ENDORSEMENT, APPROVAL, OR RECOMMENDATION BY THE STATE.


--------------D2F3F50EAAD0253316FFAA13
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit

<HTML>

<CENTER><FONT SIZE=+2>Pentium II 266 Computer Raffle</FONT></CENTER>


<P>America Cares is holding computer raffles to benefit a children's hospital.&nbsp;
We will raffle off one top of the line computer about every six weeks until
the goal is reached.&nbsp; Items to be raffled off will include top of
the line computer systems, hardware, software, and computer accessories.&nbsp;
For information on the hardware and software raffles see the website at
<A HREF="http://www.usa-nonprofit.org/no02002.htm">http://www.usa-nonprofit.org/no02002.htm</A>.
<BR>Complete rules for the raffle may also be found at the website or you
may request them with your raffle ticket donation.

<P><B><FONT SIZE=+1>Grand Prize</FONT></B>
<BR><B>Pentium Pro 266 Computer System</B>:
<UL><B>Maxtor 3.5 Gigabyte Hard Drive</B>
<BR><B>FDD 120 Megabyte Floppy Drive</B>
<BR><B>56K US Robotics Sportster Modem</B>
<BR><B>64 Megabytes Ram</B>
<BR><B>Mitsumi 24 Speed CD-Rom</B>
<BR><B>Sound Labs AWE-64 Gold Sound Card</B>
<BR><B>Labtec LCS-2412 Subwoofer Sound System</B>
<BR><B>Magnavox SVGA 17" Monitor</B>
<BR><B>Microsoft Natural Wave Keyboard</B>
<BR><B>Microsoft Serial Mouse</B>
<BR><B>Genius F-21 Joystick</B>
<BR><B>Microsoft Window 95 Second Version</B>
<BR>&nbsp;
<UL><B><FONT SIZE=+1>Retail Value $6,399.00</FONT></B></UL>
</UL>
<B><FONT SIZE=+1>1st Prize</FONT></B>
<BR><B>Mitsumi Internal 6x2 Recordable CD-Rom</B>
<UL>
<UL><B><FONT SIZE=+1>Retail Value $ 695.88</FONT></B></UL>
</UL>
<B><FONT SIZE=+1>2nd Prize (3 Winners)</FONT></B>
<BR><B>56K US Robotics Sportster Fax/Data Modem</B> (Choice Internal or
External)
<UL>
<UL><B><FONT SIZE=+1>Retail Value $239.99 (ea)</FONT></B></UL>
</UL>

<HR WIDTH="100%">
<CENTER><B><FONT SIZE=+2>P-266 Raffle Entry Form</FONT></B></CENTER>
Yes, I would like to participate in America Cares' Pentium 266 Raffle.&nbsp;
This raffle will have a minimum of 5,000.&nbsp; Donations are $5.00 per
ticket.&nbsp; I accept that I will be responsible for any delivery charges
and taxes owed on any prize I may win.

<P>Enclosed is my donation of $______ for ______ tickets at $5.00 per ticket.&nbsp;
Send my raffle ticket stubs to the address I will indicate below.

<P>Personal Information

<P>Name:
<BR>Address:
<BR>City:
<BR>State:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
Zip:
<BR>Phone:
<BR>E-Mail:

<P>Mail entry form and donation to:
<CENTER><B><FONT SIZE=+1>America Cares</FONT></B></CENTER>

<CENTER><B><FONT SIZE=+1>341 Montego St</FONT></B></CENTER>

<CENTER><B><FONT SIZE=+1>Deltona, FL 32725</FONT></B></CENTER>

<CENTER><B><FONT SIZE=+1>&nbsp;</FONT></B></CENTER>


<P>America Cares maintains a website at <A HREF="http://www.usa-nonprofit.org/no02000.htm">http://www.usa-nonprofit.org</A>
<BR>where you can find the latest items to be raffled.&nbsp; Separate raffles
are being held for hardware and software items.

<P>Florida Registration Number SC-08008
<BR>A COPY OF THE OFFICIAL REGISTRATION AND FINANCIAL INFORMATION MAY BE
OBTAINED FROM THE DIVISION OF CONSUMER SERVICES BY CALLING 1-800-435-7352,
WITHIN THE STATE.&nbsp; REGISTRATION DOES NOT IMPLY ENDORSEMENT, APPROVAL,
OR RECOMMENDATION BY THE STATE.
<BR>&nbsp;</HTML>

--------------D2F3F50EAAD0253316FFAA13--



------------------------------

Date: 11 Aug 1997 17:50:03 GMT
From: fty@hickory.engr.utk.edu (Jay Flaherty)
Subject: Re: Seeking object enlightenment
Message-Id: <5snjcb$hc9$1@gaia.ns.utk.edu>

Neil Kandalgaonkar (neil@domingo.concordia.ca) wrote:
: 
: I stumbled onto Randal's object intro
: (http://www.stonehenge.com/merlyn/UnixReview/col13.html), which helped me
: more than any other tutorial has. (BTW, the de-referencing tutorial was
: killer. Thanks, Randal!) However, the concepts of package and bless still
: don't mean much to me.

go to:
http://www.perl.com/perl/nmanual and look at perltoot.html

Jay

-- 
**********************************************************************
Jay Flaherty                                               fty@utk.edu
I want to peacefully die in my sleep, like my grandfather did, 
not screaming like the passengers in his car did!
**********************************************************************


------------------------------

Date: Mon, 11 Aug 1997 09:16:01 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: "Syam P. Aribindi" <aribindi@cig.mot.com>
Subject: Re: sleep for a few hundrad milli seconds
Message-Id: <Pine.GSO.3.96.970811091534.18561S-100000@julie.teleport.com>

On Mon, 11 Aug 1997, Syam P. Aribindi wrote:

> I need to routine which allows a sleep time of less of 1 second. 

    http://www.perl.com/CPAN/doc/FAQs/FAQ/html/perlfaq8/
          How_can_I_slep_or_alarm_for.html

Hope this helps!

-- 
Tom Phoenix           http://www.teleport.com/~rootbeer/
rootbeer@teleport.com  PGP   Skribu al mi per Esperanto!
Randal Schwartz Case:  http://www.rahul.net/jeffrey/ovs/



------------------------------

Date: Mon, 11 Aug 1997 08:53:45 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Jeroen Kustermans <kusterma@htsa.hva.nl>
Subject: Re: splice
Message-Id: <Pine.GSO.3.96.970811085032.18561Q-100000@julie.teleport.com>

On Mon, 11 Aug 1997, Jeroen Kustermans wrote:

> $counter=0;
> foreach (@aliasfile) {
>       print "$_ :  $counter\n";
>       if (/test/) {
>          splice(@aliasfile, $counter, 1);
>       }
>       $counter++;
> }

You shouldn't modify @aliasfile during a foreach loop which iterates over
it. Instead, you probably want something like this.

    @aliasfile = grep !/test/, @aliasfile;

 ...or maybe you really want to build the array selectively in the first
place. 

    while (<FILE>) {
	push @aliasfile unless /test/;
    }

Hope this helps!

-- 
Tom Phoenix           http://www.teleport.com/~rootbeer/
rootbeer@teleport.com  PGP   Skribu al mi per Esperanto!
Randal Schwartz Case:  http://www.rahul.net/jeffrey/ovs/



------------------------------

Date: 11 Aug 1997 16:28:45 GMT
From: "Breda Strasheim" <fullung@ilink.nis.za>
Subject: Telnet problems
Message-Id: <01bca673$a9d3a140$6b401fc4@ntc-486>

Hello,

I want to use a perl script to send certain commands over a telnet
connection to another system. For some weird reason telnet keeps on
disconnecting.

Any help will be appreciated,

Please e-mail fullung@ilink.nis.za


------------------------------

Date: 11 Aug 1997 16:20:05 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: Too Many Files for Foreach Loop?
Message-Id: <5sne3l$rgh@news-central.tiac.net>

In article <33E8F118.2FCB@icl.fi>,
Petri Backstrom  <petri.backstrom@icl.fi> wrote:

>Use opendir/readdir/closedir:
>
>    local( *DIRHANDLE );
>    local( *FILEHANDLE );
>
>    opendir( DIRHANDLE, '/directory' ) or
>        die "error opening directory ($!)";
>
>    $filename = readdir( DIRHANDLE );
>    while ( $filename ) {

Watch out for files called 0 here.  I'd probably use

  while (defined ($filename = readdir (DIRHANDLE))) {

to keep the readdir "in" the conditional for these kinds of things...

Mike

-- 
mike@stok.co.uk                    |           The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/       |   PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/    |                   65 F3 3F 1D 27 22 B7 41
stok@psa.pencom.com                |      Pencom Systems Administration (work)


------------------------------

Date: Mon, 11 Aug 1997 09:17:23 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Ronen Lazar <ronen_lazar@ccm.jer.intel.com>
Subject: Re: using system() during html page, IIS 3
Message-Id: <Pine.GSO.3.96.970811091635.18561T-100000@julie.teleport.com>

On Mon, 11 Aug 1997, Ronen Lazar wrote:

> system ("c:\inetsrv\scripts\get_data.bat");

See what you get if you try this. :-)

    print "c:\inetsrv\scripts\get_data.bat";

Hope this helps!

-- 
Tom Phoenix           http://www.teleport.com/~rootbeer/
rootbeer@teleport.com  PGP   Skribu al mi per Esperanto!
Randal Schwartz Case:  http://www.rahul.net/jeffrey/ovs/



------------------------------

Date: Mon, 11 Aug 1997 16:53:27 GMT
From: zawodny@hou.moc.com (Jeremy D. Zawodny)
Subject: Re: using system() during html page, IIS 3
Message-Id: <33ef4200.266773069@igate.hst.moc.com>

[cc'd to original author]

On Mon, 11 Aug 1997 13:21:12 +0300, Ronen Lazar
<ronen_lazar@ccm.jer.intel.com> wrote:

>print "HTTP 200  OK\n";
>print "Content-Type: text/html\n\n";
>system ("c:\inetsrv\scripts\get_data.bat");
>
>While trying to run it from a command prompt, it runs well, but the
>trouble begin while trying to run the script from the html.
>
>Even when I try something simpler such as 'system("echo hello")', the
>server seems to ignore it .

As Tom suggests, your syntax isn't quite right. '\' is a special
character in Perl. If you want '\' to actually mean '\', you must
double it up like '\\'.

Enjoy,

Jeremy
-- 
Jeremy Zawodny
Internet Technology Group
Information Technology Services
Marathon Oil Company, Findlay Ohio

http://www.marathon.com


------------------------------

Date: 11 Aug 1997 18:27:44 GMT
From: gsar@engin.umich.edu (Gurusamy Sarathy)
Subject: Re: Visual representation of UNIX Directories?
Message-Id: <5snlj0$11@srvr1.engin.umich.edu>

 [ mailed and posted ]

In article <33e88f21.4686013@news>, Marjorie Roswell <roswell@umbc.edu> wrote:
>
>I'm looking for a visual representation of directories in UNIX. Any
>solutions are welcome.

I use this on both Unix and WindowsNT.

 - Sarathy.
   gsar@umich.edu
-----------------------------------8<-----------------------------------
#!/usr/bin/perl
#
# List directories in a tree structure
#
#    Its not a sophisticated tree, since every entry takes up one line
#    making for a bigger listing than might be possible with cleverer
#    layout
#
# Gurusamy Sarathy
# gsar@engin.umich.edu
#
require 5;
use Getopt::Std;

$0 =~ s|.*/||;
getopts('afhsxzn:') || (print(<<EOT), exit(0));
Usage:  $0 [-afhsxz] [-n levels] [directory]
	$0 -h for option summary.
EOT

print(<<EOT), exit(0) if $opt_h;
Usage:  $0 [-afhsxz] [-n levels] [directory]
	-a	list all directories (including hidden/dot dirs)
	-f	follow symlinks
	-h	this help
	-n num	descend no more than num directory levels
	-s	show files in directories
	-x	use extended ASCII charset
	-z	show sizes of files and directories
	If directory is not specified, lists current directory.
EOT

$opt_f = 0 unless $opt_f;
$opt_a = 0 unless $opt_a;

my($VER,$HOR,$COR,$TEE,$SIZ,$do_nlinks);
if ($opt_x) {
  $VER = chr(179);
  $HOR = chr(196);
  $COR = chr(192);
  $TEE = chr(195);
  $SIZ = '';
}
else {
  $VER = "|";
  $HOR = "_";
  $COR = "\\";
  $TEE = "|";
  $SIZ = " ";
}

$do_nlinks = 1;
$do_nlinks = 0 if $opt_z or $opt_s or $^O eq 'MSWin32';

# Print all directory entries in the passed directory
# in tree format
#
sub Tree {
  my($dir) = shift;
  my($sdir, @sdirs, @files, $nums, $glob);
  my($totsize) = 0;
  my($dev, $ino, $mode, $nlink) = stat($dir);
  
  if (defined($opt_n)) {
	if ($level >= $opt_n) {
	  print "/.." if ($nlink != 2);     # indicate unfollowed
	  return 0;
	}
	else {
	  $level++;
	}
  }

  # this will work on UN*X systems
  if ($do_nlinks and $nlink == 2) {  # see if there are subdirs
	$level-- if defined($opt_n);
	return 0;
  }
  
  local($pad) = $pad . "  " . $VER;

  opendir(DIR, $dir);
  for (sort(readdir(DIR))) {
	next if m|^\.\.?$|;               # skip . and ..
	next if (!$opt_a && m|^\..*|);
	if ( -d $dir . "/" . $_) {
	  push(@sdirs, $_);
	}
	elsif ( $opt_s or $opt_z ) {
	  my $size;
	  if ($opt_z) {
	    $size = -s "$dir/$_";
	    $totsize += $size;
	  }
	  if ($opt_s) { 
	    $_ .= " ($size)" if $opt_z;
	    push @files, $_;
	  }
	}
  }
  closedir(DIR);

  $nums = scalar(@sdirs);
  $dirsize += $totsize;
  if ($opt_z and $totsize > 0) {
	print " [$totsize]";
  }

  if ( @files ) {
  	substr($pad, -1) = ' ' if $nums == 0;
	print map { $pad . "    " . $_ } @files;
  }

  for (1..$nums) {
	$doneblank = 0;
	$sdir = $sdirs[$_-1];
	
    $sdir = $sdir . ' -> ' . readlink($dir . "/" . $sdirs[$_-1]) if ( -l "$dir/$sdirs[$_-1]");

#	 if ($_ == 1) {                    #
#	   print $pad;               # uncomment if you wear 'em eyeglasses
#	 }                                 #
	if ($_ == $nums) {
	  substr($pad, -1) = $COR;
	  print $pad, "$HOR$HOR", $sdir;
	  substr($pad, -1) = ' ';
	}
	else {
	  substr($pad, -1) = $TEE;
	  print $pad, "$HOR$HOR", $sdir;
	  substr($pad, -1) = $VER;
	}
	if ($opt_f or !( -l $dir . "/" . $sdirs[$_-1])) {    # dont do symlinks
	  local($dirsize) = 0;
	  if (&Tree($dir . "/" . $sdirs[$_-1]) != 0 and      # recurse
		  $doneblank == 0) { 
		print $pad; ++$doneblank;  # comment if you're hawkeye
	  }
	  $totsize = $dirsize;
	}
	$dirsize += $totsize;
	if ($_ == $nums and $opt_z) {
	  substr($pad, -1) = $SIZ;
	  print $pad, "<$dirsize>" if $dirsize > $totsize;
	  substr($pad, -1) = ' ';
	}
  }
  $level-- if defined($opt_n);
  return $nums;
}

#
# Main
#

$dir = '.' unless $dir = shift;
$pad = "\n";
$doneblank = 0;
$level = 0;
$dirsize = 0;

print $dir;
&Tree($dir);                          # climb
print $pad;




------------------------------

Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin) 
Subject: Digest Administrivia (Last modified: 8 Mar 97)
Message-Id: <null>


Administrivia:

The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc.  For subscription or unsubscription requests, send
the single line:

	subscribe perl-users
or:
	unsubscribe perl-users

to almanac@ruby.oce.orst.edu.  

To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.

To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.

To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.

The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.

The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.

For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.


------------------------------
End of Perl-Users Digest V8 Issue 846
*************************************

home help back first fref pref prev next nref lref last post