[28505] in Perl-Users-Digest
Perl-Users Digest, Issue: 9869 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Oct 20 00:05:59 2006
Date: Thu, 19 Oct 2006 21:05:08 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 19 Oct 2006 Volume: 10 Number: 9869
Today's topics:
Re: how to do programming in perl in windows <bwilkins@gmail.com>
Re: how to do programming in perl in windows <sisyphus1@nomail.afraid.org>
Parsing and regex <d_toth@ltu.edu>
Re: Parsing and regex <john@castleamber.com>
Re: Parsing and regex <someone@example.com>
pasting files end to end cartercc@gmail.com
Re: pasting files end to end <No_4@dsl.pipex.com>
Re: pasting files end to end <No_4@dsl.pipex.com>
Re: Problem with hashes <jgibson@mail.arc.nasa.gov>
Re: Problem with hashes <mikedawg@gmail.com>
Regex exactly 0, 1 or 2 matches, {0,2} not working <ggb667@gmail.com>
Re: Regex exactly 0, 1 or 2 matches, {0,2} not working <No_4@dsl.pipex.com>
Re: Regex exactly 0, 1 or 2 matches, {0,2} not working <john@castleamber.com>
Re: unable to calculate large file size <No_4@dsl.pipex.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 19 Oct 2006 15:59:16 -0700
From: "Brian Wilkins" <bwilkins@gmail.com>
Subject: Re: how to do programming in perl in windows
Message-Id: <1161298756.562106.269880@m73g2000cwd.googlegroups.com>
Paul Lalli wrote:
> Brian Wilkins wrote:
> > Jack wrote:
> > > not. I would like to know how to install and then how to start perl
> > > programming in windows
> >
> > To run your Perl scripts on Windows, install ActiveState, and change
> > your she-bang to :
> >
> > #!C:/Perl/bin
> >
> > then type [filename].pl at the command-line. If everything is setup
> > correctly, it should work.
>
> That's a massive red herring. Windows Perl couldn't care less what the
> path to Perl is on the shebang. The only thing Windows Perl cares
> about on the shebang line is any switches present.
>
> The filename.pl associations are set the same way as any other file
> associations in Windows, and has nothing to do with the shebang.
>
> Paul Lalli
It must not be setup correctly on my machine then. It only works with
the C:/Perl/bin in the shebang.
------------------------------
Date: Fri, 20 Oct 2006 10:40:15 +1000
From: "Sisyphus" <sisyphus1@nomail.afraid.org>
Subject: Re: how to do programming in perl in windows
Message-Id: <45381c08$0$24796$afc38c87@news.optusnet.com.au>
"Brian Wilkins" <bwilkins@gmail.com> wrote in message
.
.
>
> It must not be setup correctly on my machine then. It only works with
> the C:/Perl/bin in the shebang.
>
I find that it's unnecessary to provide the shebang line, but if one *does*
provide a shebang line, then that line must =~ /perl/i. But it doesn't need
to relate in any way to the actual location of the perl executable:
E:\>type try.pl
print "OK";
E:\>try.pl
OK
E:\>type try.pl
#!Crap
print "OK";
E:\>try.pl
Can't exec Crap at try.pl line 1.
E:\>type try.pl
#!Craperly
print "OK";
E:\>try.pl
OK
E:\>
That's using perl 5.8.8 on Win32.
Cheers,
Rob
------------------------------
Date: 19 Oct 2006 18:45:44 -0700
From: "toof57" <d_toth@ltu.edu>
Subject: Parsing and regex
Message-Id: <1161308743.953282.218580@m7g2000cwm.googlegroups.com>
Hi,
I am writing a program to parse a Cisco ASA log file. I've broken the
line into date info, IP of recording device, ASA rule # and the
"payload" or rule data. I have created a database that contains the 6
digit rule number which is unique, a severity level, the full ASA rule
(e.g %ASA-5-302020), a short description to print on the summary
report, and I have parsed each rule using regex and plan on storing the
regex "rule" in the database. The first thing I do is load the Rule
database into a hash with the 6 digit rule being the key. The hash
looks like
$ASARule{$Rule}->{'ASASev'}
$ASARule{$Rule}->{'ASADescription'}
$ASARule{$Rule}->{'ASAParse'} etc.
My question is:
Can you assign a regex to a variable and then use it to parse a string
variable into the corresponding values (which I also plan to store in a
variable). Here's a sample:
$String="<some string>";
$Parse="/regex/";
@Variables="$var1 $var2 . . . $varx";
@Variables = $String =~ $Parse;
I'm trying to parse the string with the assigned regex expression and
place the values in corresponding variables.
My first problem is:
I tried this code
$String="take me out 2 the ballgame";
$Parse1="/^take me ([a-zA-Z0-9]+)\s(.*)/";
# <- I assign the regex to the statement
($v1, $v2) = $String =~ $Parse1;
print "$String =~ $Parse1\n";
print "$1 $2\n";
print "v1= $v1, v2 = $v2\n";
output is
take me out 2 the ballgame =~ /take me ([a-zA-Z0-9]+)\s(.*)/
v1 = , v2=
So it appears that the command is correct but it is not parsing into
the variables.
if I change the code to
$String="tak me out 2 the ballgame";
$Parse1="/^take me ([a-zA-Z0-9]+)\s(.*)/";
#<- I "hard code" the regex in the statement
($v1, $v2) = $String =~ /^take me ([a-zA-Z0-9]+)\s(.*)/;
print "$String =~ $Parse1\n";
print "$1 $2\n";
print "v1= $v1, v2 = $v2\n";
output is
take me out 2 the ballgame =~ /take me ([a-zA-Z0-9]+)\s(.*)/
out 2 the ballgame
v1 = out, v2= 2 the ballgame
It appears that putting the regex in the assignment statement works
whereas assigning the regex using the variable doesn't. Am I missing
something or will this work or not?
I also tried using #{Parse1} in the assigment and that didn't work
either.
If I can assign the regex and have it parse into the variables, all
will be good. If not I have to rethink how to parse the payload. But
I'd like to do it this way so I can just use the hash loaded with all
the info I need to break the data in the rule into variables and then
store it on a database. I'm trying to eliminate a rather large and
combersome swirch statement to "hard code" the rule regex for every
possibility. Any help or takers???
David
------------------------------
Date: 20 Oct 2006 02:12:07 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: Parsing and regex
Message-Id: <Xns9861D7ABF4273castleamber@130.133.1.4>
"toof57" <d_toth@ltu.edu> wrote:
> Can you assign a regex to a variable
perldoc perlop and check out qr// in section 'Regexp Quote-Like Operators'
--
John Experienced Perl programmer: http://castleamber.com/
Perl help, tutorials, and examples: http://johnbokma.com/perl/
------------------------------
Date: Fri, 20 Oct 2006 02:48:34 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: Parsing and regex
Message-Id: <6OWZg.21439$P7.17216@edtnps90>
toof57 wrote:
>
> I am writing a program to parse a Cisco ASA log file. I've broken the
> line into date info, IP of recording device, ASA rule # and the
> "payload" or rule data. I have created a database that contains the 6
> digit rule number which is unique, a severity level, the full ASA rule
> (e.g %ASA-5-302020), a short description to print on the summary
> report, and I have parsed each rule using regex and plan on storing the
> regex "rule" in the database. The first thing I do is load the Rule
> database into a hash with the 6 digit rule being the key. The hash
> looks like
> $ASARule{$Rule}->{'ASASev'}
> $ASARule{$Rule}->{'ASADescription'}
> $ASARule{$Rule}->{'ASAParse'} etc.
>
> My question is:
>
> Can you assign a regex to a variable and then use it to parse a string
> variable into the corresponding values (which I also plan to store in a
> variable). Here's a sample:
>
> $String="<some string>";
> $Parse="/regex/";
> @Variables="$var1 $var2 . . . $varx";
>
> @Variables = $String =~ $Parse;
>
> I'm trying to parse the string with the assigned regex expression and
> place the values in corresponding variables.
>
> My first problem is:
>
> I tried this code
> $String="take me out 2 the ballgame";
> $Parse1="/^take me ([a-zA-Z0-9]+)\s(.*)/";
>
> # <- I assign the regex to the statement
> ($v1, $v2) = $String =~ $Parse1;
The line above evaluates to:
($v1, $v2) = $String =~ m!/^take me ([a-zA-Z0-9]+)s(.*)/!;
You can't have a character (/) before the beginning of the line (not without
the /m option) and it doesn't look like there are any '/' characters in the
string at all. Also "\s" in a double quoted string is just an 's' character.
You need to either use single quoted strings:
my $Parse1 = '^take me ([a-zA-Z0-9]+)\s(.*)';
or escape any special characters in the double quoted string:
my $Parse1 = "^take me ([a-zA-Z0-9]+)\\s(.*)";
or use the qr// operator:
my $Parse1 = qr/^take me ([a-zA-Z0-9]+)\s(.*)/;
John
--
Perl isn't a toolbox, but a small machine shop where you can special-order
certain sorts of tools at low cost and in short order. -- Larry Wall
------------------------------
Date: 19 Oct 2006 18:19:18 -0700
From: cartercc@gmail.com
Subject: pasting files end to end
Message-Id: <1161307158.067914.59850@e3g2000cwe.googlegroups.com>
I've got a series of data files organized in a directory structure by
month and day, like this:
may06/1, may06/2 ... june06/1, june06/2 ... oct06/16, oct06/17
Each file consists of anywhere from 500 to 5,000 records. Each record
is 87 fields long. Fields may contain an arbitrary length of text, but
the vast majority are either empty or consists of short strings, like
name, address, email, phone, etc. Individual records can be as long as
5,000 characters. (These are registration records, kept as CSV files,
but we are getting overwhelmed.)
I need to stick all the files together end to end to make one big file.
The purpose is to dump all the data into a database table, and I don't
want to do it manually. There are five years of records, two files a
day, since 2001.
I've just written a short script that walks the directory structure,
opens each file, and appends it line by line to an outfile. This was
easy to do, but is horrendously slow -- it works but it will run a long
time.
Is there a Perl equivalent to the cat command that will stick these
files together end to end? Or should I use system or exec with cat to
do this? I've tried FileCopy, but I can't make it append.
Thanks, CC.
------------------------------
Date: Fri, 20 Oct 2006 02:46:48 +0100
From: Big and Blue <No_4@dsl.pipex.com>
Subject: Re: pasting files end to end
Message-Id: <V92dneAcr8wUt6XYnZ2dnUVZ8sydnZ2d@pipex.net>
cartercc@gmail.com wrote:
> I need to stick all the files together end to end to make one big file.
>.....
> Is there a Perl equivalent to the cat command that will stick these
> files together end to end? Or should I use system or exec with cat to
> do this? I've tried FileCopy, but I can't make it append.
Why would you use Perl for this?
find -type f -print0 | xargs -0r cat > 1_big_file
Well, you might need a few more selectors on the find.
And, since you've named the files solely for human readability rather
than ability to sort on time*, you might need a little sort filter in the
middle (which is, I suppose, the one bit Perl would be useful for).
* may06/1 is better named as 2006-May/01, which means a simple "sort" puts
them in date order, while you can still see what they are.
--
Just because I've written it doesn't mean that
either you or I have to believe it.
------------------------------
Date: Fri, 20 Oct 2006 03:09:14 +0100
From: Big and Blue <No_4@dsl.pipex.com>
Subject: Re: pasting files end to end
Message-Id: <D_SdnYOmyetXsqXYnZ2dneKdnZydnZ2d@pipex.net>
Big and Blue wrote:
>
> * may06/1 is better named as 2006-May/01
Sorry - it's late.... I meant that to be 200605-May/01
--
Just because I've written it doesn't mean that
either you or I have to believe it.
------------------------------
Date: Thu, 19 Oct 2006 15:21:59 -0700
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: Problem with hashes
Message-Id: <191020061521596520%jgibson@mail.arc.nasa.gov>
In article <1161288527.269982.326330@i3g2000cwc.googlegroups.com>, Mike
<mikedawg@gmail.com> wrote:
> I'm having a little bit of problems finishing up a previous co-workers
> perl project. I'm a little confused as to why its not working. What
> the script is doing is add values in a text file together (daily
> values) and add up the totals and throw it in a monthly total. I think
>
> there is something going on with the hashes, or entering the data into
> the hashes.
>
> (sorry for bad formatting in the newsgroup, I also changed some of the
> variables names and values)
>
> #!/bin/perl
> @servers = ("server1", "server2");
> %values1 = ();
> foreach $server (@servers){
> print "$server\n";
> opendir DATADIR, "$server";
> @files = readdir DATADIR;
> closedir DATADIR;
> foreach $file (@files){
> chomp;
> next if ($file eq "." || $file eq "..");
> open(IN," < $server/$file") or next;
> while(<IN>){
> chomp;
> next if (length $_ == 0);
> next if ($_ =~ /--------|Report Title/);
> if ($_ =~ /This is Header 1|This is Header
> 2|This is Header 3/) {
> $prefix = $_;
> }
> if ($_ =~ /Sub Report 1-1\D+:|Sub Report
> 2-1\D+:|number\D+:|Sub
> Report 3-1\D+:)\s+(\d+)/) {
You are requiring that one or more non-digit characters (\D+) appear
between the '-1' and the ':'. Since none of your report lines match
this pattern, you will never get any values into your hash.
> $suffix = $1;
> $key = $prefix . $suffix;
> $value = $2;
> if (exists $values1{$key}) {
> $values1{$key} += $value;
> }else{
> $values1{$key} = $value;
> }
> }
> }
> }
>
>
> }
>
>
> open (FILEOUT, ">data.txt");
> while ( ($key,$value) = each %values1 ) {
> print "$key => $value\n";
> }
> foreach $key (keys (%values))
> {
> print FILEOUT $key, ",", $values1{$key}, "\n";
>
> }
>
>
> __END__
>
> Variable names are at begining of each line. Sample Report follows.
>
>
> ---------------------------------------------------------------------------
>
> Report Title
> ---------------------------------------------------------------------------
>
>
>
> Start date: 20060202
> End date: 20060203
>
>
> This is header 1:
>
>
> Sub Report 1-1: 2504
> Sub Report 1-2: 16320
> Sub Report 1-3: 83
> Sub Report 1-4: 63
>
>
> This is header 2:
>
>
> Sub Report 2-1: 785
> Sub Report 2-2: 363
> Sub Report 2-3: 725
> Sub Report 2-4: 9835
>
>
> This is header 3:
>
>
> Sub Report 3-1: 9653
> Sub Report 3-2: 135
> Sub Report 3-3: 132
> Sub Report 3-4: 135
>
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com
------------------------------
Date: 19 Oct 2006 20:08:36 -0700
From: "Mike" <mikedawg@gmail.com>
Subject: Re: Problem with hashes
Message-Id: <1161313716.047928.269540@b28g2000cwb.googlegroups.com>
Jim Gibson wrote:
> In article <1161288527.269982.326330@i3g2000cwc.googlegroups.com>, Mike
> <mikedawg@gmail.com> wrote:
>
> > I'm having a little bit of problems finishing up a previous co-workers
> > perl project. I'm a little confused as to why its not working. What
> > the script is doing is add values in a text file together (daily
> > values) and add up the totals and throw it in a monthly total. I think
> >
> > there is something going on with the hashes, or entering the data into
> > the hashes.
> >
> > (sorry for bad formatting in the newsgroup, I also changed some of the
> > variables names and values)
> >
> > #!/bin/perl
> > @servers = ("server1", "server2");
> > %values1 = ();
> > foreach $server (@servers){
> > print "$server\n";
> > opendir DATADIR, "$server";
> > @files = readdir DATADIR;
> > closedir DATADIR;
> > foreach $file (@files){
> > chomp;
> > next if ($file eq "." || $file eq "..");
> > open(IN," < $server/$file") or next;
> > while(<IN>){
> > chomp;
> > next if (length $_ == 0);
> > next if ($_ =~ /--------|Report Title/);
> > if ($_ =~ /This is Header 1|This is Header
> > 2|This is Header 3/) {
> > $prefix = $_;
> > }
> > if ($_ =~ /Sub Report 1-1\D+:|Sub Report
> > 2-1\D+:|number\D+:|Sub
> > Report 3-1\D+:)\s+(\d+)/) {
>
> You are requiring that one or more non-digit characters (\D+) appear
> between the '-1' and the ':'. Since none of your report lines match
> this pattern, you will never get any values into your hash.
>
> > $suffix = $1;
> > $key = $prefix . $suffix;
> > $value = $2;
> > if (exists $values1{$key}) {
> > $values1{$key} += $value;
> > }else{
> > $values1{$key} = $value;
> > }
> > }
> > }
> > }
> >
> >
> > }
> >
> >
> > open (FILEOUT, ">data.txt");
> > while ( ($key,$value) = each %values1 ) {
> > print "$key => $value\n";
> > }
> > foreach $key (keys (%values))
> > {
> > print FILEOUT $key, ",", $values1{$key}, "\n";
> >
> > }
> >
> >
> > __END__
> >
> > Variable names are at begining of each line. Sample Report follows.
> >
> >
> > ---------------------------------------------------------------------------
> >
> > Report Title
> > ---------------------------------------------------------------------------
> >
> >
> >
> > Start date: 20060202
> > End date: 20060203
> >
> >
> > This is header 1:
> >
> >
> > Sub Report 1-1: 2504
> > Sub Report 1-2: 16320
> > Sub Report 1-3: 83
> > Sub Report 1-4: 63
> >
> >
> > This is header 2:
> >
> >
> > Sub Report 2-1: 785
> > Sub Report 2-2: 363
> > Sub Report 2-3: 725
> > Sub Report 2-4: 9835
> >
> >
> > This is header 3:
> >
> >
> > Sub Report 3-1: 9653
> > Sub Report 3-2: 135
> > Sub Report 3-3: 132
> > Sub Report 3-4: 135
> >
>
> Posted Via Usenet.com Premium Usenet Newsgroup Services
> ----------------------------------------------------------
> ** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
> ----------------------------------------------------------
> http://www.usenet.com
Thanks for the heads up guys, sorry, it took me so long to respond, its
been a busy day, I'll be re-writing this early tomorrow. Also, I'm
sorry about the cross-post, as I have to use google groups to post.
Thanks for the help, and I'll post anything I find tomorrow.
------------------------------
Date: 19 Oct 2006 19:00:38 -0700
From: "GGB667" <ggb667@gmail.com>
Subject: Regex exactly 0, 1 or 2 matches, {0,2} not working
Message-Id: <1161309637.973844.203030@e3g2000cwe.googlegroups.com>
I want to match a number (required) 1-15 and an optional letter a-f.
There are 0, 1 or 2 of these in the expression. So blank is ok. (Also
"--" is ok - don't ask why). These are seperated by ", " or at least
"," or " ".
So valid posibilities are:
"1"
"2a"
"15f"
"7a, 1"
"8b, 3"
"1a, 2b"
"2b, 3c"
"" //nothing
"--" //also nothing
But these are NOT ok:
"1a, 2b, 3c"
I tried:
\b[1-9]{1}[0-9]{0,1}[A-Fa-f]\b
I tried adding (\b[1-9]{1}[0-9]{0,1}[A-Fa-f]\b)? to match the blank
possibility, and |[\-{2}] to match the -- - but the first one takes 0-N
of these, and the second one takes any number of - characters. Where
am I going wrong?
I was very hopeful that this would work:
(\b[1-9]{1}[0-9]{0,1}[A-Fa-f]\b){0,2}?
But it seems to not care that the maximum is specified as 2...
:(
Any help would be greatly appreciated.
------------------------------
Date: Fri, 20 Oct 2006 03:12:36 +0100
From: Big and Blue <No_4@dsl.pipex.com>
Subject: Re: Regex exactly 0, 1 or 2 matches, {0,2} not working
Message-Id: <D_SdnYKmyesOraXYnZ2dneKdnZydnZ2d@pipex.net>
GGB667 wrote:
> I tried:
> \b[1-9]{1}[0-9]{0,1}[A-Fa-f]\b
>
> I tried adding (\b[1-9]{1}[0-9]{0,1}[A-Fa-f]\b)? to match the blank
> possibility, and |[\-{2}] to match the -- - but the first one takes 0-N
> of these, and the second one takes any number of - characters. Where
> am I going wrong?
Well, you are forcing there to be an "a-f" before the boundary, which
isn't in your spec. Fix that and see what happens.
--
Just because I've written it doesn't mean that
either you or I have to believe it.
------------------------------
Date: 20 Oct 2006 02:22:42 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: Regex exactly 0, 1 or 2 matches, {0,2} not working
Message-Id: <Xns9861D977661DCcastleamber@130.133.1.4>
"GGB667" <ggb667@gmail.com> wrote:
> I want to match a number (required) 1-15 and an optional letter a-f.
> There are 0, 1 or 2 of these in the expression. So blank is ok.
> (Also "--" is ok - don't ask why). These are seperated by ", " or at
> least "," or " ".
>
> So valid posibilities are:
> "1"
> "2a"
> "15f"
> "7a, 1"
> "8b, 3"
> "1a, 2b"
> "2b, 3c"
> "" //nothing
> "--" //also nothing
>
> But these are NOT ok:
> "1a, 2b, 3c"
You lost me, but I am tired, anyway:
> I tried:
> \b[1-9]{1}[0-9]{0,1}[A-Fa-f]\b
^^^^ ? = shorthand for {0,1}
^^^ not needed, [1-9] means already once
> I tried adding (\b[1-9]{1}[0-9]{0,1}[A-Fa-f]\b)? to match the blank
> possibility, and |[\-{2}] to match the -- - but the first one takes
> 0-N
^^^^^^ [] is a group of alternative characters (or a
range), {2} is probably not what you want, if you
want to match - or -- then you can use:
-{1,2}
or
--? one - followed by exactly one or zero -
If I understand your q correctly I would probably use something like:
/^(|--|([1-9]|1[0-5])[a-f]?(, ([1-9]|1[0-5])[a-f]?))$/
empty, or -- or
number between 1 and 9 or number between 10 and 15 fillowed by an
optional letter
followed optionally by a , a space and number between 1 ... etc.
Untested, and could probably be written much nicer :-)
--
John Experienced Perl programmer: http://castleamber.com/
Perl help, tutorials, and examples: http://johnbokma.com/perl/
------------------------------
Date: Fri, 20 Oct 2006 02:29:18 +0100
From: Big and Blue <No_4@dsl.pipex.com>
Subject: Re: unable to calculate large file size
Message-Id: <oeWdncetj6Dzu6XYnZ2dnUVZ8tCdnZ2d@pipex.net>
himagauri@gmail.com wrote:
> Initially I thought the '-s' operator doesn't work for file sizes >1
> GB. Hence I worked out a sample program and noticed that it works.
So the problem is something else which is not related to size...
> Then I thought probably I'm running out of memory..but not sure about
> it.
: time perl -le 'print -s "star_wreck_in_the_pirkinning_subtitled_xvid.avi"'
567558788
0.00user 0.00system 0:00.00elapsed 0%CPU (0avgtext+0avgdata 0maxresident)k
0inputs+0outputs (0major+445minor)pagefaults 0swaps
So, 567MB sized in 0 time with virtually no reads. Sizing a file doesn't
use memory - you just stat the entry in the directory and read its size. If
that were not the case then "ls -l" would be an I/O nightmare.
> The file in question is being transferred from MVS to Linux using FTP.
It would help if you explained more things up front...
> The file on MVS has a record format of variable block (RECFM=VB).
...Hmmm - just like the VMS file I mentioned yesterday.
> I need to calculate the file size on Linux to check if the number of
> bytes transferred to linux is equal to the file size on MVS.
How do you get the file size of the MVS file into the perl program?
(Since I presume hat the check is being done there).
> does Linux OS have variable length files?
No.
Two things:
a) Your original problem of:
$size = -s $filename;
$size = -1 unless defined($size);
would produce -1 if you happened to chdir for some reason out of the
directory containing $filename (unless it is a fully-qualified path).
b)
> ...the correct size of 16376862124 bytes is
> returned for the larger file after a long time-about 40 minutes.
Is this file on a local file system? If it is on a network file system,
what type of system is it on?
--
Just because I've written it doesn't mean that
either you or I have to believe it.
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 V10 Issue 9869
***************************************
