From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <zsh-users-return-3961-mason-zsh=primenet.com.au@sunsite.dk>
Received: (qmail 4339 invoked from network); 27 Jun 2001 04:02:15 -0000
Received: from sunsite.dk (130.225.51.30)
  by ns1.primenet.com.au with SMTP; 27 Jun 2001 04:02:15 -0000
Received: (qmail 15467 invoked by alias); 27 Jun 2001 04:01:18 -0000
Mailing-List: contact zsh-users-help@sunsite.dk; run by ezmlm
Precedence: bulk
X-No-Archive: yes
X-Seq: 3961
Received: (qmail 15443 invoked from network); 27 Jun 2001 04:01:17 -0000
Date: Wed, 27 Jun 2001 00:01:56 -0400
From: =?iso-8859-1?Q?J=F6rg_Ziefle?= <gt4556a@prism.gatech.edu>
To: zsh-users@sunsite.dk
Subject: Re: problem/bug: array definition from command (backticks)
Message-ID: <20010627000156.A14633@acmez.gatech.edu>
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
X-Mailer: Mutt 1.0us

Usually, I don't f'up on my own postings, but hey, here's a somewhat
nicer version of my mail folder printer for future reference:

--- BEGIN printmailfolders-zsh.pl
#!/usr/bin/perl -w
use strict;

my @MAILDIRS = ("$ENV{HOME}/Mail", "$ENV{HOME}/savenews");
my @folders;

foreach my $MAILDIR (@MAILDIRS) {

	opendir DIR, $MAILDIR;
	push @folders, grep {! /^\./ && -r $_ && -f _ && ! -d _ && -s _ && -T _} map {"$MAILDIR/$_"} readdir DIR;
	closedir DIR;

};

@folders = map { m,^.*/([^/]+)$,; qq/"$_?New mail in $1."/} @folders;
print join "\\n", @folders;
--- END printmailfolders-zsh.pl

To potential Perl hackers that read this: Golf? ;-)

HTH,

Jörg