Directory Structures!
Hi,
I'm having a mental block today, so my apologies in advance!!
I'm using File::Find to recursively get all the files from a directory
structure, then splitting each $File::Find::name into an array.
What I need to do is put this into a data structure like:
$dirstruct{"mydir"}-{dir1}-{dir2}-["A.A","B.B"]
$dirstruct{"mydir"}-{dir1}-{dir3}-{dir4}-["C.C","D.D"]
$dirstruct{"mydir"}-{dir4}-{dir5}-["E.E"]
The directory listing would be:
/dir1/dir2/A.A
/dir1/dir2/B.B
/dir1/dir3/dir4/C.C
/dir1/dir3/dir4/D.D
/dir4/dir5/E.E
I know I've done this before, but I'll be damned if I can find it or
remember how I did it.
Please Help!
TIA
Andy
"That's the metaphorical equivalent of flopping your wedding
tackle into a lion's mouth and flicking his love spuds with
a wet towel - total insanity"
Re: blibble
On 05/01/2001 at 07:54 +, Jonathan Stowe wrote: On Fri, 5 Jan 2001, Michael Stevens wrote: You know you're drunk when, faced with the problem of getting through an underground ticket gate, you get out your house keys and start fiddling with them looking for the right one. Look you can operate a computer and type coherently, it can't be all that bad :) And fuck me I'm at work Me too. Doing the happy unsub/resub thing (and, cough, posting test messages to mailing lists as a result. Hmm. Need some content now...) Oh yes, just to remind the other members of the t-shirt subcommitee that the colours have been decided on and the relevant people need the relevant bits and pieces, notably Dave, but then he's about to collect the machine with the image files on anyway (and I can let you know the locations in a private mail.) Yeah, that's content. It'll do. -- :: paul :: and if you refuse to believe :: you will be cast into the void
Re: the list is dead, long live the list
Some people like "bernsteinisms"! ;-) "Paul Makepeace" [EMAIL PROTECTED] writes: From: "David Cantrell" [EMAIL PROTECTED] Exactly. I just can't handle bernsteinisms when there are good alternatives available - exim (easy), postfix (secure), mailman. I can only put up with his oddities when the alternative is worse. djbdns vs bind. Totally agreed. FWIW, exim + mailman is a slick, effective solution. # apt-get install mailman and implementing http://www.exim.org/howto/mailman.html Paul -- 1024/D9C69DF9 steve mynott [EMAIL PROTECTED] i'm gonna climb on the mountains of the moon and find the distant man waving his spoon
Re: For all you nu meeja types
Greg McCarroll wrote: that was a truly beautiful image *sob*, however here's the good news ^ / \ | \ WE ARE ---+ /\ HERE | | \ | / ^ * | / \ / - \ | / \ / - \ | / \/ - / - / So it's going to get worse before it gets better? says he who actually used his numeejawapposerfone to check his VA Linux shares last night ... and found that they're at below 10 dollars. Nice.
Re: XML::Schema, YAPC::Europe, mod_perl, Camel Visit, !RANT!
On Thu, Jan 11, 2001 at 11:58:36PM +, Greg McCarroll wrote: so as far as i see it - we have the following projects to be carried out by london.pm and others ... Caml (i'll leave that typo as it might get mjd excited) Visit - David Cross Completion of account creation for initial donators, establishment of a administration committee and setting criteria for new donators - Jo + D.Cross The Mod Perl Evangelist Site - Dave Hodge.. The Final YAPC::Europe 2000 Site - me + LB + JP Also: T-shirts - DAV-R-CAN -- David Cantrell | [EMAIL PROTECTED] | http://www.cantrell.org.uk/david Any technology distinguishable from magic is insufficiently advanced
Re: Technical Meeting Agenda
Venue: State 51 (full details - and a map? - to follow) State51 is in a disused foam factory at 8-10 rhoda street, bethnal green, near the junction of brick lane and bethnal green road. http://www.streetmap.co.uk/streetmap.dll?G2M?X=533817Y=182479A=YZ=1 tube shoreditch (but closes early), bethnal green 10 mins, liverpool street 15 mins, old street 15 mins, number 8 bus (victoria-tcr-holborn-bank-here) right outside. there's a big iron gate with 'state51' painted on it. go in and at the far end is a metal staircase. we're at the top. we may be slightly short of chairs. it may be a little chilly. We'll start with four or five lightning talks. Currently I've only got Robin talking about Oulipo, but I'm sure we can come up with a couple more between us. i could do 5 mins on what fun it is to build a perl jobs database with tangram and template toolkit. (it's in testing atm) if you like. jo
RE: Technical Meeting Agenda
i could do 5 mins on what fun it is to build a perl jobs database with tangram and template toolkit. (it's in testing atm) if you like. That would be cool. Do you want to publicise the URL or is it a Big Secret? i will do that when it is not not quite finished. like what it is now :) jo
Re: Yet Another Job Email
Hello, I see a lot of job discussions going on here. Maybe someone can accept a Master's student for an internship this summer? The last two years I've been working as a part-time programmer. Visual C++ mostly. I know what is UML and I've been at YAPC::London :-) Best Regards, -- Mindaugas Genutis Department of Communication Technology Aalborg University of Technology
Re: Technical Meeting Agenda
dcross - David Cross [EMAIL PROTECTED] writes: From: Jo Walsh [EMAIL PROTECTED] Sent: 12 January 2001 12:18 Venue: State 51 (full details - and a map? - to follow) State51 is in a disused foam factory at 8-10 rhoda street, bethnal green,near the junction of brick lane and bethnal green road. http://www.streetmap.co.uk/streetmap.dll?G2M?X=533817Y=182479A=YZ=1 tube shoreditch (but closes early), bethnal green 10 mins, liverpool street 15 mins, old street 15 mins, number 8 bus (victoria-tcr-holborn-bank-here) right outside. there's a big iron gate with 'state51' painted on it. go in and at the far end is a metal staircase. we're at the top. we may be slightly short of chairs. it may be a little chilly. Excellent. Thanks for that. We'll start with four or five lightning talks. Currently I've only got Robin talking about Oulipo, but I'm sure we can come up with a couple more between us. i could do 5 mins on what fun it is to build a perl jobs database with tangram and template toolkit. (it's in testing atm) if you like. That would be cool. Do you want to publicise the URL or is it a Big Secret? If I make it I can do 5 minutes on Class::Decorator and the art of monkeying with Perl's inheritance and OO dispatch mechanisms... -- Piers
Re: XML::Schema, YAPC::Europe, mod_perl, Camel Visit, !RANT!
David Cantrell [EMAIL PROTECTED] writes: The Mod Perl Evangelist Site - Dave Hodge.. No. I'm writing a poor man's intro to stapling the TT into a mod_perl handler that will be superceded by Apache::Template when Andy finishes it. -- Dave Hodgkinson, http://www.hodgkinson.org Editor-in-chief, The Highway Star http://www.deep-purple.com Apache, mod_perl, MySQL, Sybase hired gun for, well, hire -
Re: XML::Schema, YAPC::Europe, mod_perl, Camel Visit, !RANT!
David Hodgkinson [EMAIL PROTECTED] writes: David Cantrell [EMAIL PROTECTED] writes: The Mod Perl Evangelist Site - Dave Hodge.. No. I'm writing a poor man's intro to stapling the TT into a mod_perl handler that will be superceded by Apache::Template when Andy finishes it. ...to go on Matt's site... -- Dave Hodgkinson, http://www.hodgkinson.org Editor-in-chief, The Highway Star http://www.deep-purple.com Apache, mod_perl, MySQL, Sybase hired gun for, well, hire -
Re: Directory Structures!
Am I right, now I look again, in thinking this can't be done as it
requires that every value be simultaneously a list and a hash? Maybe if
you tied things.
On Wed, 10 Jan 2001, Andy Williams wrote:
$dirstruct{"mydir"}-{dir1}-{dir2}-["A.A","B.B"]
$dirstruct{"mydir"}-{dir1}-{dir3}-{dir4}-["C.C","D.D"]
$dirstruct{"mydir"}-{dir4}-{dir5}-["E.E"]
--
Shevek
I am the Borg.
sub AUTOLOAD { ($s=$AUTOLOAD)=~s/.*:://; eval qq{ *$AUTOLOAD=$s
?sub {$s*{$s-1}} :sub {1}; }; goto $AUTOLOAD; } print {'4'};
Re: Technical Meeting Agenda
Dave Cross sent the following bits through the ether: We'll start with four or five lightning talks. Currently I've only got Robin talking about Oulipo, but I'm sure we can come up with a couple more between us. I'd like to do: "What my Perl Monger World Map Lightning Talk at yapc::Europe should have been". Leon -- Leon Brocard.http://www.astray.com/ yapc::Europehttp://yapc.org/Europe/ ... All new improved Brocard, now with Template Toolkit!
Re: XML::Schema, YAPC::Europe, mod_perl, Camel Visit, !RANT!
David Hodgkinson wrote: David Cantrell [EMAIL PROTECTED] writes: The Mod Perl Evangelist Site - Dave Hodge.. No. I'm writing a poor man's intro to stapling the TT into a mod_perl handler that will be superceded by Apache::Template when Andy finishes it. What's this ? or rather: Is this for take23 ? Is such a thing as Apache::Template being done or is it a pipedream [TM] ? If Apache::Template is real - where can I find out more ? Greg -- Dave Hodgkinson, http://www.hodgkinson.org Editor-in-chief, The Highway Star http://www.deep-purple.com Apache, mod_perl, MySQL, Sybase hired gun for, well, hire -
Re: Mailman in Perl (Re: the list is dead, long live the list)
Following the interest in rope/pope, etc perhaps it would be an idea for some of the more perl / oss oriented companies in london (or wherever) to agree to take part in the project on a semi official basis - much of what the work that the london and UK companies do is replicated because of lack of comunications and worry over company secrets and competition. If a handful of london companies can put together a press release saying that they are supporting or backing the project with time, money, services in lieu, etc then it would be a publicity coup and get the ball rolling. A. -- A HREF = "http://termisoc.org/~betty" Betty @ termisoc.org /A "As a youngster Fred fought sea battles on the village pond using a complex system of signals he devised that was later adopted by the Royal Navy. " (this email has nothing to do with any organisation except me)
Re: XML::Schema, YAPC::Europe, mod_perl, Camel Visit, !RANT!
On Jan 12, 3:57pm, Greg Cope wrote: Is such a thing as Apache::Template being done or is it a pipedream [TM] No, it's real, just not officially finished or released. Someone sent me some new code for it which I'll be intergrating and releasing in the next week or so. A -- Andy Wardley [EMAIL PROTECTED] Signature regenerating. Please remain seated. [EMAIL PROTECTED] For a good time: http://www.kfs.org/~abw/
Re: XML::Schema, YAPC::Europe, mod_perl, Camel Visit, !RANT!
Andy Wardley wrote: On Jan 12, 3:57pm, Greg Cope wrote: Is such a thing as Apache::Template being done or is it a pipedream [TM] No, it's real, just not officially finished or released. Someone sent me some new code for it which I'll be intergrating and releasing in the next week or so. Thanks Look forward to it. Greg A -- Andy Wardley [EMAIL PROTECTED] Signature regenerating. Please remain seated. [EMAIL PROTECTED] For a good time: http://www.kfs.org/~abw/
Simultaneously a list and a hash
In the "Directory to Data Structure" thread, there's been some
talk of a value which is a list *and* a hash, so you can have
a structure like
$dirstruct{'mydir'}-['file1.txt', 'file2.txt']
$dirstruct{'mydir'}-{'anotherdir'}-['file3.txt', 'file4.txt']
and there was talk of tie().
But really there's a much easier way to do it:
local *mydir;
@mydir = qw(file1.txt file2.txt);
%mydir = (anotherdir = [qw(file3.txt file4.txt)]);
my $dirstruct = {mydir = *mydir};
$,=", "; $\="\n";
print @{$dirstruct-{mydir}};
print @{$dirstruct-{mydir}-{anotherdir}};
or if you're offended by dynamic scoping,
use Symbol 'gensym';
my $mydir = *{gensym};
@$mydir = qw(file1.txt file2.txt);
%$mydir = (anotherdir = [qw(file3.txt file4.txt)]);
my $dirstruct = {mydir = $mydir};
$,=", "; $\="\n";
print @{$dirstruct-{mydir}};
print @{$dirstruct-{mydir}-{anotherdir}};
.robin.
--
Beware. The paranoids are watching you.
Re: Simultaneously a list and a hash
Robin Houston wrote:
local *mydir;
@mydir = qw(file1.txt file2.txt);
%mydir = (anotherdir = [qw(file3.txt file4.txt)]);
my $dirstruct = {mydir = *mydir};
[...]
my $mydir = *{gensym};
@$mydir = qw(file1.txt file2.txt);
%$mydir = (anotherdir = [qw(file3.txt file4.txt)]);
my $dirstruct = {mydir = $mydir};
Ah. I had guessed something might be possible with typeglobs. It still seems
rather unnatural to me :-).
Cheers,
Philip
Re: Mailman in Perl (Re: the list is dead, long live the list)
* Aaron Trevena ([EMAIL PROTECTED]) wrote: Following the interest in rope/pope, etc perhaps it would be an idea for some of the more perl / oss oriented companies in london (or wherever) to agree to take part in the project on a semi official basis - much of what the work that the london and UK companies do is replicated because of lack of comunications and worry over company secrets and competition. If a handful of london companies can put together a press release saying that they are supporting or backing the project with time, money, services in lieu, etc then it would be a publicity coup and get the ball rolling. the first thing they could offer to do is to host the final rpms/tar.gz's what about the actual mechanics of putting rope together? i'm assuming we'd create a /usr/local/Rope, build the latest stable perl in there, then configure apache for mod_perl etc and install it under there as well, the the other modules. finally is it enough to simply tar.gz /usr/local/Rope and tag it with the architecture details we would probably need some final install program to be run, that would handle the local details of the system - such as what user to run apache as comments? suggestions? -- Greg McCarroll http://www.mccarroll.uklinux.net
Re: Mailman in Perl (Re: the list is dead, long live the list)
On Fri, Jan 12, 2001 at 02:16:15PM +, Andy Wardley wrote: Said I: In all fairness, I have to say that mailman is an *excellent* mailing list manager. Said David H. Adler: So why haven't you reimplemented it in perl? :) Are you sitting comfortably? :-) Because the tools aren't yet in place to allow me to do it within a truly flexible and generic application framework. [snip lengthy discussion of how to do this] Ah. I won't bother trying, then. :-) dha -- David H. Adler - [EMAIL PROTECTED] - http://www.panix.com/~dha/ Also know as the first rule of finance: "Don't run out of money". - Tony Bowden
Re: Hmmm
On Fri, Jan 12, 2001 at 10:42:54AM +, Simon Wistow wrote: http://douglas.min.net/~drw/jsr/jsr-daemon.jpg http://amyl.org/img/user/takeittux.jpg Paul
Re: Mailman in Perl (Re: the list is dead, long live the list)
On Fri, Jan 12, 2001 at 07:06:00PM +, Steve Mynott wrote: No you would want to build packages (.deb, .rpm and BSD and Solaris packages) of rope for a "binary" type install as well as supplying a "source" tar which works with make, make install. The installation method used by Helix is very nifty. lynx -source http://go-gnome.com/ | sh And that's it. -- David Cantrell | [EMAIL PROTECTED] | http://www.cantrell.org.uk/david Any technology distinguishable from magic is insufficiently advanced
Re: Mailman in Perl (Re: the list is dead, long live the list)
On Fri, 12 Jan 2001, Paul Makepeace wrote: On Fri, Jan 12, 2001 at 08:28:25PM +, David Cantrell wrote: lynx -source http://go-gnome.com/ | sh that would rock. also what would be very valuable would be the ability to install from one config for a cluster or synchronise config changes (using a version control system of course). A. -- A HREF = "http://termisoc.org/~betty" Betty @ termisoc.org /A "As a youngster Fred fought sea battles on the village pond using a complex system of signals he devised that was later adopted by the Royal Navy. " (this email has nothing to do with any organisation except me)
