🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: es.comp.os.linux.programacion
Article #1044

Re: GOLF: averiguar directorios con un único archivo dentro

#1044
From: J.A. Gutierrez
Date: Mon, 17 Apr 2006 12:10
30 lines
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-mail
References: <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))