On 12/29/2003 1:06 AM, danl001 wrote:
Hi,
If this question would be better posted to another perl list, please let
me know.
I have a very large text files (~2 GB) and it's in the following format:
header line
header line
header line
marker 1
header line
header line
header line
marker 2
line typ
Maybe try not checking the marker counter every single line.
Also, is the end of file check really necessary? You could just let it drop
out naturally.
These are probably minor hits compared to a major I/O tweak someone may come
up with but is a suggestion. I don't see anything jumping out at m
Hi,
If this question would be better posted to another perl list, please let
me know.
I have a very large text files (~2 GB) and it's in the following format:
header line
header line
header line
marker 1
header line
header line
header line
marker 2
line type 1
line type 1
line type 1
...
line t
Hi,
If this question would be better posted to another perl list, please let
me know.
I have a very large text files (~2 GB) and it's in the following format:
header line
header line
header line
marker 1
header line
header line
header line
marker 2
line type 1
line type 1
line type 1
...
line t
> -Original Message-
> From: Randal L. Schwartz [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, December 24, 2003 3:50 PM
> To: [EMAIL PROTECTED]
> Subject: Re: the ref() function: what does it mean when ...
>
>
> > "Wiggins" == Wiggins D Anconia <[EMAIL PROTECTED]> writes:
>
> Wiggins
Randal L. Schwartz wrote:
"Wiggins" == Wiggins D Anconia <[EMAIL PROTECTED]> writes:
Wiggins> Out of curiousity, why/when *in Perl* would you take a reference to
Wiggins> something that holds a reference? And, "how deep does the well go?"
Wiggins> (how far will Perl take the above indirection?).
Hi,
I have been trying to instal the String::CRC32 module, but so far have been
unsucessful.
I am running ActiveState Perl 5,8,1,807 on Win XP.
I have attempted to install using the ppm3 tool, however this is unable to
find the package in any of the installed repositories (2 at ActiveState, 1
at
I will be out of the office starting 22/12/2003 and will not return until
19/01/2004.
I am on vacation and will respond to your message when I return. For all
urgent matters please contact Fabien FELIX.
Thanks
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [
--As off Friday, December 26, 2003 3:16 PM -0600, John McKown is
alleged to have said:
Actually, I considered an "ini" or "cfg" file, but rejected it. I
was wanting something more "standalone" in this case. First, it
seemed a bit much for only 4 parms. Second, I didn't want to
maintain a separa
Hello,
How about:
use strict;
my $dir='c:/test';
my $match='^AB';
opendir(D,$dir) or die "Can't open $dir: $!\n";
my @files=readdir(D);
close(D);
my $totalsize=0;
for(@files) {
next if(!/$match/);
$totalsize+=(-s "$dir/$_");
}
print $totalsize,$/;
Shawn
-Original Message-
From:
Hi!
Below - the actual server code.
Here is the explanation and the problem.
I am writing a TCP multiplexing server which,
when user connects, forks and the sends ever
5 seconds a message to the client and also listen
to what client send to server and does something.
In order not to waste CPU tim
Danield wrote:
>
> I do have a beautiful script, that counts a size of specified files
> ("ABAA.txt", "ABAC.txt") in a directory test. I have got this script
> from discussion board.
>
> Here is the script:
>
> my $dir='c:\\test';
> my @files2check = ("ABAA.txt", "ABAC.txt");
>
> my $totalSize= 0;
12 matches
Mail list logo