Article View: es.comp.os.linux.programacion
Article #1044Re: GOLF: averiguar directorios con un único archivo dentro
From: J.A. Gutierrez
Date: Mon, 17 Apr 2006 12:10
Date: Mon, 17 Apr 2006 12:10
30 lines
2038 bytes
2038 bytes
"David Serrano (Hue-Bond)" <responder_solo_en_el_grupo@yahoo.es> wrote:
: c) un único archivo regular
: Este es mi intento, 48 caracteres:
: perl -le'@_=<$_/*>,@_==1&&-f$_[0]&&print for<*>'
Pues no parece que funcione (aparte, usar la expansion
de "*" en perl es trampa, ya que internamente lanza un csh)
: Si alguien lo va a probar en bash, que sepa que ninguno de los archivos o
: directorios tiene espacios en el nombre.
Casi seguro que se puede hacer usando find + sed, pero no
me aburro *tanto*
find . -type d -print | while read d
do
if [ "1" -eq `ls -A1 "$d" | wc -l` ]; then
test -d "$d"/* || ls "$d"/*
fi
done
--
PGP and other useless info at \
http://webdiis.unizar.es/~spd/ \
finger://daphne.cps.unizar.es/spd \ Timeo Danaos et dona ferentes
ftp://ivo.cps.unizar.es/pub/ \ (Virgilio)
Technical Details
Message-ID:
<e200j5$cis$1@appleseed.escomposlinux.org>Path:
arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!news4.google.com!news.glorb.com!news.antakira.com!cagarruta.escomposlinux.org!appleseed.escomposlinux.org!escomposlinux.org!appleseed.escomposlinux.org!not-for-mailReferences:
<slrne3io3q.2r9.responder_solo_en_el_grupo@genus.hue-bond.info>Show Full Headers
Complete Article Headers
X-Google-Thread: f86c8,9ee7624a08527b65
X-Google-Attributes: gidf86c8,public
X-Google-Language: SPANISH,UTF8
Path: arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!news4.google.com!news.glorb.com!news.antakira.com!cagarruta.escomposlinux.org!appleseed.escomposlinux.org!escomposlinux.org!appleseed.escomposlinux.org!not-for-mail
From: "J.A. Gutierrez" <spd@daphne.cps.unizar.es>
Newsgroups: es.comp.os.linux.programacion
Subject: Re: GOLF: averiguar directorios con un único archivo dentro
Date: Mon, 17 Apr 2006 12:10:14 +0000 (UTC)
Organization: Rank
Lines: 30
Message-ID: <e200j5$cis$1@appleseed.escomposlinux.org>
References: <slrne3io3q.2r9.responder_solo_en_el_grupo@genus.hue-bond.info>
NNTP-Posting-Host: daphne.cps.unizar.es
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
X-Trace: appleseed.escomposlinux.org 1145275814 12892 155.210.152.20 (17 Apr 2006 12:10:14 GMT)
X-Complaints-To: news@appleseed.escomposlinux.org
NNTP-Posting-Date: Mon, 17 Apr 2006 12:10:14 +0000 (UTC)
User-Agent: tin/1.4.7-20030322 ("Suggestions") (UNIX) (IRIX64/6.5 (IP30))