[15657] in Perl-Users-Digest
Perl-Users Digest, Issue: 3070 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue May 16 21:10:26 2000
Date: Tue, 16 May 2000 18:10:15 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <958525815-v9-i3070@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 16 May 2000 Volume: 9 Number: 3070
Today's topics:
Re: Randomised function <bet@rahul.net>
Re: Randomised function <lr@hpl.hp.com>
Re: Randomised function <lr@hpl.hp.com>
Re: Randomised function (Eric Kuritzky)
Re: regexp %%CODE%% multi-line sub in template <lr@hpl.hp.com>
Re: regexp %%CODE%% multi-line sub in template <anmcguire@ce.mediaone.net>
Re: strings and limits <matt.stoker@motorola.com>
Re: Tanspose rows to columns (Bart Lateur)
Re: time spent to run a perl script (David Efflandt)
Time with a finer granularity reedjd@bitsmart.com
Re: Time with a finer granularity <lr@hpl.hp.com>
Re: tracking the memory <rootbeer@redcat.com>
Unexpected behavior with redirected stdio and duped han <aperrin@davis.DEMOG.Berkeley.EDU>
Re: Using user-variables in external commands? II <rootbeer@redcat.com>
Re: Variables in Pattern <jhelman@wsb.com>
Who can help me ???? Please read ! <webmaster@erotic-x.de>
Re: Who can help me ???? Please read ! <rootbeer@redcat.com>
Why does the contents of my file dissapear in an FTP? <kamri@asiapacificm01.nt.com>
Re: Why does the contents of my file dissapear in an FT <makarand_kulkarni@My-Deja.com>
Re: Why does the contents of my file dissapear in an FT (Abigail)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 16 May 2000 18:10:17 -0400
From: Bennett Todd <bet@rahul.net>
Subject: Re: Randomised function
Message-Id: <20000516181017.B17331@rahul.net>
Hash: SHA1
2000-05-12-10:18:54 Mike Moose:
> Hi, I'm trying to write a perl function which will generate a random
> password of 8 character, numbers/characters ... in C there is rand()
> which generates a random number synched with the time, is there a
> function similar to this in Perl...
Yup. Called rand, even. The trick is to figure out a way to get
_hard_to_guess_ bits. Rand is no help there. I append the script I
use for generating random passwords.
- -Bennett
#!/usr/bin/perl -w
use strict;
use MD5;
use Getopt::Long;
my $length = 8;
my $alphabet = 'printable';
my %bets = (
printable => [map { chr } (ord(' ') .. ord('~'))],
numeric => [0 .. 9],
alnum => [0 .. 9, 'a' .. 'z'],
AlNum => [0 .. 9, 'a' .. 'z', 'A' .. 'Z'],
);
GetOptions(
"length=i" => \$length,
"alphabet=s" => \$alphabet,
) or die "syntax: $0 [--length=n] [--alphabet==@{[join('|',sort keys %bets)]}]\n";
die "$0: known alphabets are: @{[keys %bets]}\n"
unless exists $bets{$alphabet};
my($context) = new MD5;
$context->add(`ps axlww;dd bs=32 count=1 if=/dev/random 2>/dev/null`);
my($bits) = $context->digest;
$bits = substr($bits, 0, $length) ^ substr($bits, $length)
while length($bits) > $length;
my(@a) = @{$bets{$alphabet}};
my($n);
for $n (split //, $bits) {
print $a[ord($n) % scalar(@a)];
}
print "\n";
Version: GnuPG v1.0.0 (GNU/Linux)
Comment: For info see http://www.gnupg.org
iD8DBQE5IccrL6KAps40sTYRAtNWAJoC3gXWfKzN/ieFNu4jEJzPxLY2NQCfRvDS
kkLeTKM8Su9k4gufM45h6sI=
=5J63
-----END PGP SIGNATURE-----
------------------------------
Date: Tue, 16 May 2000 15:42:45 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Randomised function
Message-Id: <MPG.138b6ebe1287761698aa8a@nntp.hpl.hp.com>
In article <20000516181017.B17331@rahul.net> on Tue, 16 May 2000
18:10:17 -0400, Bennett Todd <bet@rahul.net> says...
...
> printable => [map { chr } (ord(' ') .. ord('~'))],
Without commenting on the merits of the rest of your code, I was struck
by that peculiarly roundabout way of saying this:
printable => [ ' ' .. '~' ],
or what you really mean, this:
printable => [ "\x20" .. "0x7E" ],
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Tue, 16 May 2000 16:43:06 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Randomised function
Message-Id: <MPG.138b7ce6a5b6f84398aa8b@nntp.hpl.hp.com>
In article <MPG.138b6ebe1287761698aa8a@nntp.hpl.hp.com> on Tue, 16 May
2000 15:42:45 -0700, Larry Rosler <lr@hpl.hp.com> says...
> In article <20000516181017.B17331@rahul.net> on Tue, 16 May 2000
> 18:10:17 -0400, Bennett Todd <bet@rahul.net> says...
>
> ...
>
> > printable => [map { chr } (ord(' ') .. ord('~'))],
>
> Without commenting on the merits of the rest of your code, I was struck
> by that peculiarly roundabout way of saying this:
>
> printable => [ ' ' .. '~' ],
>
> or what you really mean, this:
>
> printable => [ "\x20" .. "0x7E" ],
"\x7E" of course. :-(
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 17 May 2000 00:29:40 GMT
From: kuritzky@math.berkeley.edu (Eric Kuritzky)
Subject: Re: Randomised function
Message-Id: <8fsp5k$4e2$1@agate.berkeley.edu>
In article <MPG.138b7ce6a5b6f84398aa8b@nntp.hpl.hp.com>,
Larry Rosler <lr@hpl.hp.com> wrote:
>In article <MPG.138b6ebe1287761698aa8a@nntp.hpl.hp.com> on Tue, 16 May
>2000 15:42:45 -0700, Larry Rosler <lr@hpl.hp.com> says...
>> In article <20000516181017.B17331@rahul.net> on Tue, 16 May 2000
>> 18:10:17 -0400, Bennett Todd <bet@rahul.net> says...
>>
>> ...
>>
>> > printable => [map { chr } (ord(' ') .. ord('~'))],
>>
>> Without commenting on the merits of the rest of your code, I was struck
>> by that peculiarly roundabout way of saying this:
>>
>> printable => [ ' ' .. '~' ],
>>
...
It might have something to do with the fact that ranges don't work
that way (see perlop):
$ perl -e 'print(" ".."~","\n")'
$ perl -e 'print("a".."z","\n")'
abcdefghijklmnopqrstuvwxyz
--Eric Kuritzky
------------------------------
Date: Tue, 16 May 2000 16:54:27 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: regexp %%CODE%% multi-line sub in template
Message-Id: <MPG.138b7f92eb846ff598aa8c@nntp.hpl.hp.com>
In article <3921BB77.A64A72D8@ucalgary.ca> on Tue, 16 May 2000 15:19:51
-0600, Dan Woods <dwoods@ucalgary.ca> says...
...
> Anyways, both you and abigail provided what I needed, which was to
> use /s option with my s/// substitution.
>
> I obviously got it confused (misunderstood) with the /m option.
> And then you can s///s, s///m, m///s, m///m ... sheesh !
In this newsgroup, someone today called Ada a B&D language. As we see
here, Perl is an S&M language. The distinction is minimal.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Tue, 16 May 2000 19:55:36 -0500
From: "Andrew N. McGuire" <anmcguire@ce.mediaone.net>
Subject: Re: regexp %%CODE%% multi-line sub in template
Message-Id: <3921EE08.65F362D4@ce.mediaone.net>
Larry Rosler wrote:
>
> In article <3921BB77.A64A72D8@ucalgary.ca> on Tue, 16 May 2000 15:19:51
> -0600, Dan Woods <dwoods@ucalgary.ca> says...
>
> ...
>
> > Anyways, both you and abigail provided what I needed, which was to
> > use /s option with my s/// substitution.
> >
> > I obviously got it confused (misunderstood) with the /m option.
> > And then you can s///s, s///m, m///s, m///m ... sheesh !
>
> In this newsgroup, someone today called Ada a B&D language. As we see
> here, Perl is an S&M language. The distinction is minimal.
I knew someone was going to do that, I though it
would have been in a previous thread where 's&m' was
said multiple times... I was going to, but I figured
nahh, I'll let it slide. I knew it, I knew it, I knew it.
:-)
Regards,
anm
--
/*-------------------------------------------------------.
| Andrew N. McGuire |
| anmcguire@ce.mediaone.net |
`-------------------------------------------------------*/
------------------------------
Date: Tue, 16 May 2000 16:52:09 -0700
From: Matthew Stoker <matt.stoker@motorola.com>
Subject: Re: strings and limits
Message-Id: <3921DF29.381EB418@motorola.com>
Larry Rosler wrote:
>
> In article <39205190.27D708AE@motorola.com> on Mon, 15 May 2000 12:35:44
> -0700, Matthew Stoker <matt.stoker@motorola.com> says...
> > Ganix wrote:
> > >
> > > Silly question, but is there a common way of
> > > getting - say 10 characters long - parts out of
> > > a string and put them into an array?
>
> ...
>
> > No claims that this is the "best way", but in the spirit of TMTOWTDI
> > (Tim TOADY or whatever):
> >
> > $num = 10;
> > for ($i = 0; $i<length($string)/$num;$i++)
> > {
> > $pieces[$i] = substr ($string, $num*$i, $num);
> > }
> >
> > this will split $string into pieces that are $num characters long.
>
> But it loses the last piece of up to 9 leftover characters, if any.
>
Are you sure? It works properly on my system.
#!/usr/local/bin/perl -w
$string = 'this is the test string that I will use 123456789';
$num = 10;
for ($i = 0; $i<length($string)/$num;$i++) {
$pieces[$i] = substr ($string, $num*$i, $num);
}
foreach (@pieces) {
print "$_\n";
}
output:
--------------------------
this is th
e test str
ing that I
will use
123456789
Apparently, YMMV.
--
/------------------------------------------------------------------\
| Matt Stoker | email: matt.stoker@motorola.com |
| Unit Process Modeling | Mail Drop: M360 |
| DigitalDNA(TM) Laboratories| Phone: (480)655-3301 |
| Motorola, SPS | Fax: (480)655-5013 |
| 2200 W Broadway Road | Pager: (888)699-8803 |
| Mesa, AZ 85202 | |
\------------------------------------------------------------------/
------------------------------
Date: Tue, 16 May 2000 22:39:11 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Tanspose rows to columns
Message-Id: <3922c46f.1081033@news.skynet.be>
Xah wrote:
>> @transposed = map { my $i = $_; [ map { $_->[$i] } @row ] }
>> 0 .. $columns-1;
>and that's so impressive for a Perl programer.
>Now witness a functional programer:
Ok, let's be pedantic. Mine *is* in pure functional coding style.
Functional programming is about eliminating side effects, no global
variables, etc. and in short: transforming data using nothing but
functions.
Wanting a more generic function is a nice ideal, but just don't call it
"functional programming". It's a whole different kettle o' fish.
--
Bart.
------------------------------
Date: 17 May 2000 00:44:24 GMT
From: efflandt@xnet.com (David Efflandt)
Subject: Re: time spent to run a perl script
Message-Id: <slrn8i3qr0.bi8.efflandt@efflandt.xnet.com>
On Tue, 16 May 2000, Perl Discussion
<jmourneyNOjmSPAM@hotmail.com.invalid> wrote:
>i'm trying to find out how much time is needed for my perl script
>to finish running.
>
>is there a way to do this? the machine i work on do not
>provide syscall.ph; so i can't do as the docs says.
>i tried localtime() (subtract with new time value, etc),
>but i'm having problem with it, too.
$^T is the base time when script started.
This is probably only useful if your script takes more than a second:
$_ = time - $^T; print "This script took $_ seconds\n";
--
David Efflandt efflandt@xnet.com http://www.de-srv.com/
http://www.autox.chicago.il.us/ http://www.berniesfloral.net/
http://hammer.prohosting.com/~cgi-wiz/ http://cgi-help.virtualave.net/
------------------------------
Date: Wed, 17 May 2000 00:18:23 GMT
From: reedjd@bitsmart.com
Subject: Time with a finer granularity
Message-Id: <8fsog2$flk$1@nnrp1.deja.com>
I'm currently use the time() method to time an operation, but this
method only goes down to the second. Is there a perl module out there
where I could get time information to a smaller degree?
-Jordan Reed
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 16 May 2000 17:50:16 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Time with a finer granularity
Message-Id: <MPG.138b8ca4d80609af98aa8d@nntp.hpl.hp.com>
In article <8fsog2$flk$1@nnrp1.deja.com> on Wed, 17 May 2000 00:18:23
GMT, reedjd@bitsmart.com <reedjd@bitsmart.com> says...
> I'm currently use the time() method to time an operation, but this
> method only goes down to the second. Is there a perl module out there
> where I could get time information to a smaller degree?
For elapsed (wall-clock) time:
perlfaq8: "How can I measure time under a second?"
For processor times:
perldoc -f times
Depending on the operating system, you may get time resolutions of 1/60
sec or 1/100 sec or smaller.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Tue, 16 May 2000 15:48:12 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: tracking the memory
Message-Id: <Pine.GSO.4.10.10005161540380.25459-100000@user2.teleport.com>
On Tue, 16 May 2000, Baris wrote:
> I want to use a tool which can tell me which data structure is using how
> much memory. I need to be ablle to track this while running the program.
You may be able to do some of this by using the debugging mode of Perl's
malloc. Of course, that'll probably require recompiling Perl (or, better,
compiling a special debugging binary).
> I am also suspicious about the modules i am using and wondering if
> they have any memory leaks or not.
Stop wondering; they do. :-) It's very easy to make a memory leak in an
XS-based module. Fortunately, it's generally not hard to stress-test the
code, calling it thousands of times, to try to catch a leak. When you find
a leak, be sure to send a patch (of the test, if nothing else) to the
author.
> (I wonder if there are problems of perl clearing the memory right away???).
Well, it won't destroy everything the moment that it can, in general. But
it'll re-use memory when possible, mostly.
> I am defining module variables using my inside the while loop. I assume at
> each loop the old module variables are cleared and new one is created..
Do you mean package variables, or something else? Of course, you can't use
my() to make package variables, and I don't know what "module variables"
would be. Hmmm.
Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 16 May 2000 17:47:36 -0700
From: Andrew Perrin - Demography <aperrin@davis.DEMOG.Berkeley.EDU>
Subject: Unexpected behavior with redirected stdio and duped handles
Message-Id: <u5kitweatp3.fsf@davis.DEMOG.Berkeley.EDU>
I've discovered what seems to be unexpected behavior (unexpected by me
at least) -- I'm hesitant to say a bug -- in a particular situation
involving getlogin(), redirection, and duped STDERR. The situation is
this:
- Begin with a perl process with both stdin and stdout redirected from
the shell, e.g., perl -de1\; < template.txt > /tmp/foo
- dup STDERR, e.g., open(STDERR, '>/dev/null') or warn $!
- get the value of getlogin(), e.g., x getlogin
- getlogin returns undef.
(These are the whittled-down versions; where I originally discovered
it is a much larger script.)
Example:
aperrin@davis ~/dt2test> perl -de1\; < template.txt > /tmp/foo
Loading DB routines from perl5db.pl version 1.0402
Emacs support available.
Enter h or `h h' for help.
main::(-e:1): 1;
DB<1> open(STDERR, '>/dev/null') or warn $!
DB<2> x getlogin
0 undef
However.... this does not happen without all three of the above
conditions (examples follow the message); that is, if either stdout or
stdin is NOT redirected, or if the dup is not done on STDERR, getlogin
returns as it should. The behavior persists whether STDERR is duped
to a "real" file, /dev/null, or piped to another process.
Output of perl -v:
aperrin@davis ~/dt2test> perl -v
This is perl, version 5.005_03 built for sun4-solaris
Copyright 1987-1999, Larry Wall
Examples of expected behavior:
aperrin@davis ~/dt2test> perl -de1\; > /tmp/foo
Loading DB routines from perl5db.pl version 1.0402
Emacs support available.
Enter h or `h h' for help.
main::(-e:1): 1;
DB<1> open(STDERR, '>/dev/null') or warn $!
DB<2> x getlogin
0 'aperrin'
DB<3> q
aperrin@davis ~/dt2test> perl -de1\; < template.txt
Loading DB routines from perl5db.pl version 1.0402
Emacs support available.
Enter h or `h h' for help.
main::(-e:1): 1;
DB<1> open(STDERR, '>/dev/null') or warn $!
DB<2> x getlogin
0 'aperrin'
DB<3> q
aperrin@davis ~/dt2test> perl -de1\; < template.txt > /tmp/foo
Loading DB routines from perl5db.pl version 1.0402
Emacs support available.
Enter h or `h h' for help.
main::(-e:1): 1;
DB<1> x getlogin
0 'aperrin'
--
---------------------------------------------------------------------
Andrew J. Perrin - aperrin@demog.berkeley.edu - NT/Unix Admin/Support
Department of Demography - University of California at Berkeley
2232 Piedmont Avenue #2120 - Berkeley, California, 94720-2120 USA
http://demog.berkeley.edu/~aperrin --------------------------SEIU1199
------------------------------
Date: Tue, 16 May 2000 15:30:56 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Using user-variables in external commands? II
Message-Id: <Pine.GSO.4.10.10005161524300.25459-100000@user2.teleport.com>
On Tue, 16 May 2000, Anonymous wrote:
> The question is can contain $body any character?
If you're asking what I think you're asking, you're asking about sendmail
(or whatever program you're sending this to). You should probably search
for the docs, FAQs, and newsgroups about sendmail, if that's it.
But I'll point out that a line containing a single dot is significant to
some mail-handling programs, and lines matching /^from /i may matter to
others. Of course, perl doesn't care about those things. :-)
> Im already checking $recipient for
> .+@.+..+ and before parsing out everything
> except w,d . - and @.
I'm not sure what you mean by that. But I hope you're not using a simple
pattern to check for a valid e-mail address. For example, if you don't
parse it correctly, you could get the wrong idea about the address for my
friends, Fred and Barney:
< (<president@whitehouse.gov>) fred&barney@redcat.com >
That's a valid e-mail address which doesn't belong to the leader of the
free world; write to Fred and Barney to check!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 16 May 2000 22:08:23 GMT
From: Jeff Helman <jhelman@wsb.com>
Subject: Re: Variables in Pattern
Message-Id: <3921C6F8.31DF2B47@wsb.com>
It does work, but I might also suggest appending some semicolons to the
end of you variable assignment lines to prevent the inevitable
compile-time errors. Thus:
$pattern = "pattern";
$str = "The whole string containing pattern";
if ( $str =~ /$pattern/) {
print "It works\n";
}
works like a charm.
JH
----------------------------------------------------------------
Jeff Helman Product Manager -- Internet Services
jhelman@wsb.com CCH Washington Service Bureau
----------------------------------------------------------------
Neil Kandalgaonkar wrote:
>
> In article <8fsf0o$4mk$1@nnrp1.deja.com>, <sarbx@my-deja.com> wrote:
> >Can a variable be used in a pattern like,
> >
> >$pattern = "pattern"
> >$str = "The whole string containing pattern"
> >
> >if ( $str =~ /$pattern/) {
> >}
> >
> >I know it doesnt work directly like this.
>
> It does.
>
> >How would you do something
> >like this.
>
> Like you did it.
>
> If $pattern might contain regex metacharacters, like ".", and you
> don't actually want metacharacter behaviour, use \Q:
>
> $pattern = "The horror... the horror...";
>
> if ($dialogue =~ /\Q$pattern/) {
> print "Apocalypse Now\n";
> }
>
> --
> Neil Kandalgaonkar
> neil@brevity.org
------------------------------
Date: Wed, 17 May 2000 00:59:47 +0200
From: "Joerg Frintrop" <webmaster@erotic-x.de>
Subject: Who can help me ???? Please read !
Message-Id: <8fsjmt$4if$10$1@news.t-online.com>
Hey!
I need your help guys!
I have a big prob with perl on my machine.
I am running a searchengine with mysql. everything is working fine, but when
I watch my error_log, I find errors every seconds, which is generated by the
perl scripts every second.
But the scripts seems to work.
The message in the error_log is:
Caught a SIGTERM at /usr/local/apache/cgi-bin/go.cgi line 0
What does line 0 mean ?
We coundn't find anything on the servers.
Other scripts on the machine are doing the same, but not so often!
go.cgi is the most used script.
Thanks in advancJF
------------------------------
Date: Tue, 16 May 2000 16:12:42 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Who can help me ???? Please read !
Message-Id: <Pine.GSO.4.10.10005161607060.25459-100000@user2.teleport.com>
On Wed, 17 May 2000, Joerg Frintrop wrote:
> Subject: Who can help me ???? Please read !
Please check out this helpful information on choosing good subject
lines. It will be a big help to you in making it more likely that your
requests will be answered.
http://www.perl.com/CPAN/authors/Dean_Roehrich/subjects.post
> From: Joerg Frintrop <webmaster@erotic-x.de>
No comment. :-)
> I am running a searchengine with mysql. everything is working fine, but when
> I watch my error_log, I find errors every seconds, which is generated by the
> perl scripts every second.
Do you think it's trying to tell you something?
> The message in the error_log is:
> Caught a SIGTERM at /usr/local/apache/cgi-bin/go.cgi line 0
>
> What does line 0 mean ?
Probably a bug(let) in whatever program (probably perl, but maybe your
code) put that onto the end of the message. Did your program install a
signal handler? Maybe in a module? Look for a subroutine which uses die
(or maybe warn) with a string beginning "Caught a ".
Of course, if you're running under mod_perl, it may be catching that
signal - or even sending it, for all I know. Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 17 May 2000 09:59:14 +1000
From: "Amri, Kuross [WOLL:4009-I:EXCH]" <kamri@asiapacificm01.nt.com>
Subject: Why does the contents of my file dissapear in an FTP?
Message-Id: <8fsn9l$ae2$1@bcrkh13.ca.nortel.com>
hi all,
I have this file that I've FTP'd across to another computer. Upon arrival,
it is missing it's contents. Any idea why?
Thanks.
ka
------------------------------
Date: Tue, 16 May 2000 17:22:31 -0700
From: Makarand Kulkarni <makarand_kulkarni@My-Deja.com>
Subject: Re: Why does the contents of my file dissapear in an FTP?
Message-Id: <3921E647.18562606@My-Deja.com>
> I have this file that I've FTP'd across to another computer. Upon arrival,
> it is missing it's contents. Any idea why?
This has nothing to do with Perl.
--
------------------------------
Date: 17 May 2000 00:34:27 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Why does the contents of my file dissapear in an FTP?
Message-Id: <slrn8i3q8j.cei.abigail@ucan.foad.org>
On Wed, 17 May 2000 09:59:14 +1000,
Amri, Kuross [WOLL:4009-I:EXCH] <kamri@asiapacificm01.nt.com> wrote:
++
++ I have this file that I've FTP'd across to another computer. Upon arrival,
++ it is missing it's contents. Any idea why?
Bitrot.
Abigail
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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.
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 V9 Issue 3070
**************************************
