--- Gunnar Hjalmarsson <[EMAIL PROTECTED]> wrote:
> Ron Smith wrote:
> > If I wanted to add more fields to my output, which
> construct would I
> > use to create more fields; something like the
> following?
> >
> > basenamecountextensionsize
> >
> > ...maybe 'HoH', or just expand on
Ron Smith wrote:
Gunnar Hjalmarsson wrote:
You multi-posted basically the same question to comp.lang.perl.misc
(see below). Any comments on that, Ron?
Pardon me Gunnar, etal,
I'm new and thought that the 'comp.lang.perl.misc' post was entirely
separate from '[EMAIL PROTECTED]', reaching an entirely
Ron Smith wrote:
Gunnar Hjalmarsson wrote:
You multi-posted basically the same question to comp.lang.perl.misc
(see below). Any comments on that, Ron?
Pardon me Gunnar, etal,
I'm new and thought that the 'comp.lang.perl.misc' post was entirely
separate from '[EMAIL PROTECTED]', reaching an entirely
On Tue, 2 Nov 2004, Ron Smith wrote:
> I'm new and thought that the 'comp.lang.perl.misc' post was entirely
> separate from '[EMAIL PROTECTED]', reaching an entirely different
> audience. I eanestly appologize to everyone on both lists.
It's a separate list, but a lot of the same people read bo
..maybe 'HoH', or just expand on the 'HoA?
You multi-posted basically the same question to comp.lang.perl.misc (see
below). Any comments on that, Ron?
-------- Original Message
Subject: Re: Extracting Directories and Sub Directories and Counting
Date: Tue, 02 Nov 2004 13:40:2
.perl.misc (see
below). Any comments on that, Ron?
Original Message ----
Subject: Re: Extracting Directories and Sub Directories and Counting
Date: Tue, 02 Nov 2004 13:40:21 +0100
From: Gunnar Hjalmarsson <[EMAIL PROTECTED]>
Newsgroups: comp.lang.perl.misc
References: <[EMA
Ron Smith wrote:
If I wanted to add more fields to my output, which construct would I
use to create more fields; something like the following?
basenamecountextensionsize
...maybe 'HoH', or just expand on the 'HoA?
I suppose that you are not really talking about the output now, but
rathe
Hey Gunnar, and list,
---snip
print "\n";
my %HoA;
for ( `dir /b/s` ) {
push @{ $HoA{$1} }, $2 if
/(.+)\\(\w+)\.\d+\.\w+$/;
}
for my $dir ( sort keys %HoA ) {
print join ( "\n", $dir ), "\n\n";
my @basenames = @{ $HoA{$d
Gunnar Hjalmarsson wrote:
for my $dir ( sort keys %HoA ) {
print "$dir\n";
my @basenames = @{ $HoA{$dir} };
my %count;
for my $frames ( @basenames ) {
$count{$frames} += 1;
}
for ( sort keys %count ) {
printf "%30s\t%04d\n"
Ron Smith wrote:
The following is the re-worked script:
snip-
#!/usr/bin/perl -w
use strict;
my %HoA;
for ( `dir /b/s` ) {
push @{ $HoA{$1} }, $2 if
/(.+)\\(\w+)\.(\d+)\.(\w+)$/;
}
The two last pairs of parentheses are redundant.
my %count;
for my $dir (
Well I've moved this along a little further, but it
looks like I'm stuck on one last thing.
I'm getting;
C:\Perl\scripts\dir\dir\dir
basename 0001
basename 0002
basename 0003
basename 0004
r schon TOD !!
mit lieben Gruß
Sonjaseine Frau!
- Original Message -
From: "Gunnar Hjalmarsson" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, October 29, 2004 1:19 AM
Subject: Re: Extracting Directories and Sub Directories and Counting
&
[ replying to the list since that's where the discussion belongs ]
Ron Smith wrote (to me privately):
Thank you *very* much for furthering my 'Perl' knowlege. I've
never see a variable like '@{ $HoA{$dir} }' before.
Well, it's not a special variable type. $HoA{$dir} is a reference to an
anonymous
13 matches
Mail list logo
