Match Highest number in directory

[T]

Hi,

I have a directory with the following files:

1
2
2.save
3

I would like to simply find the highest number file in the directory.
I do this with bash like so:

for dir in `ls . | grep -e '^[0-9]*$'`
do
if [ $dir -gt $x ]; then
x=$dir
fi
done

Unfortunately it doesn't appear that the glob function in TCL
understands the anchor or beginning of line function. How does one do
this in TCL?

Thanks for any help in advance.
Tom

[Robert Heller]

set x 0
# glob replaces ls
foreach dir [glob -nocomplain *] {
# Regexp replaces grep. Note: feel free to combine the tests into a
# single if. I used two if statements merely to clarify line-by-line
# functionallity.
if {[regexp {^[0-9]*$} $dir] > 0} {
if {$dir > $x} {set x $dir}
}
}


--
Robert Heller -- 978-544-6933 / hel...@deepsoft.com
Deepwoods Software -- http://www.deepsoft.com/
() ascii ribbon campaign -- against html e-mail
/\ www.asciiribbon.org -- against proprietary attachments

[Arjen Markus]

Op woensdag 30 mei 2012 20:42:00 UTC+2 schreef Robert Heller het volgende:

Or:

foreach file [glob {[0-9]*}] {
...
}

glob uses glob patterns and they do allow character classes, but
are more limited than regular expressions.

Regards,

Arjen