<html><head><meta http-equiv="Content-Type" content="text/html charset=us-ascii"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><br><div><div>On 5 Nov 2012, at 15:05, Hugh Gallagher <<a href="mailto:hugh@hcgallagher.co.uk">hugh@hcgallagher.co.uk</a>> wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite">Just for fun, I did it with some abuse of the default grep output and a bit of sed.<div><br></div><div>grep '.' * | sed 's/^\([^.]*\)\.[a-z]*:/\1 /'<br></div></blockquote><div><br></div>Just for fun, this may not do what you think it does. For example just use one file, you won't get the output you want, or use files that don't have a three letter extension, or file that is named "a:bcd:xxx" etc.</div><div><br></div><div>The original question was fairly generic granted, but its not a general purpose solution. </div><div><br><blockquote type="cite"><div class="gmail_extra"><br><div class="gmail_quote">
On 5 November 2012 14:37, Tony Edwardson <span dir="ltr"><<a href="mailto:Tony.Edwardson@lchclearnet.com" target="_blank">Tony.Edwardson@lchclearnet.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin: 0px 0px 0px 0.8ex; border-left-width: 1px; border-left-color: rgb(204, 204, 204); border-left-style: solid; padding-left: 1ex; position: static; z-index: auto; ">
or just<br>
while (<>) {<br>
print "$ARGV $_";<br>
<div><div class="h5">}<br></div></div></blockquote></div></div></blockquote><div><br></div><div>or even: </div>perl -npe 'print "$ARGV "' *</div><div><br></div><div>Gotta love more than one way !</div><div><br></div><div>--</div><div>Ant</div><div><br></div><div><br></div></body></html>