Directory Structures!

2001-01-12 Thread Andy Williams

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

2001-01-12 Thread Paul Mison

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

2001-01-12 Thread Steve Mynott


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

2001-01-12 Thread Simon Wistow

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!

2001-01-12 Thread David Cantrell

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

2001-01-12 Thread Jo Walsh


 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

2001-01-12 Thread Jo Walsh


  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

2001-01-12 Thread Mindaugas Genutis

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

2001-01-12 Thread Piers Cawley

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!

2001-01-12 Thread David Hodgkinson

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!

2001-01-12 Thread David Hodgkinson

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!

2001-01-12 Thread Shevek

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

2001-01-12 Thread Leon Brocard

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!

2001-01-12 Thread Greg Cope

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)

2001-01-12 Thread Aaron Trevena


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!

2001-01-12 Thread Andy Wardley

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!

2001-01-12 Thread Greg Cope

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

2001-01-12 Thread Robin Houston

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: Technical Meeting Agenda

2001-01-12 Thread dcross - David Cross

From: Leon Brocard [EMAIL PROTECTED]
Sent: 12 January 2001 15:58
 
 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".

m'kay. And I think that's enought lightning talks people. Anyone else will
have to save it until Feb and become a support act for either Matt Sergeant
or Damian Conway.

Dave...

-- 


The information contained in this communication is
confidential, is intended only for the use of the recipient
named above, and may be legally privileged. If the reader 
of this message is not the intended recipient, you are
hereby notified that any dissemination, distribution or
copying of this communication is strictly prohibited.  
If you have received this communication in error, please 
re-send this communication to the sender and delete the 
original message or any copy of it from your computer
system.



Re: Simultaneously a list and a hash

2001-01-12 Thread Philip Newton

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)

2001-01-12 Thread Greg McCarroll

* 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)

2001-01-12 Thread David H. Adler

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: Mailman in Perl (Re: the list is dead, long live the list)

2001-01-12 Thread Aaron Trevena

On Fri, 12 Jan 2001, Greg McCarroll wrote:
 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.

A directory structure that is documented and standardised accross
platforms would make life a little easier.
 
 finally is it enough to simply tar.gz /usr/local/Rope and tag it
 with the architecture details

we need *secure* skeleton / sample applications (preferably configureed
during installation or optionally not installed rather than use out of the
box p/words and users like every CMS on the market ).

 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

Configuration. Decent configuration to cope with multiple virtual domains,
specifying paths ffor core handlers, etc.

Also good guide and documentation. So that A moderately good developer
(not necessarily perl) can get the package and get started without
spending 100 quid on ora books. (of course they ought to do that anyway
but they shouldn't need to).

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: Hmmm

2001-01-12 Thread Paul Makepeace

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)

2001-01-12 Thread Steve Mynott

Greg McCarroll [EMAIL PROTECTED] writes:

 finally is it enough to simply tar.gz /usr/local/Rope and tag it
 with the architecture details

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.
 
-- 
1024/D9C69DF9 steve mynott [EMAIL PROTECTED]

as far as the laws of mathematics refer to reality, they are not certain;
as far as they are certain, they do not refer to reality. --albert einstein



Re: Mailman in Perl (Re: the list is dead, long live the list)

2001-01-12 Thread David Cantrell

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)

2001-01-12 Thread Paul Makepeace

On Fri, Jan 12, 2001 at 08:28:25PM +, David Cantrell wrote:
 lynx -source http://go-gnome.com/ | sh

That's cute!

If you wanted to use Perl;

# `GET http://go-gnome.com`

: )

Paul



Re: Mailman in Perl (Re: the list is dead, long live the list)

2001-01-12 Thread Aaron Trevena

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)