Re^4: one-line split file sequence checker

If you're just golfing, you can throw away a few characters:

perl -e 'for$c(sort{$a<=>$b}map/(\d+)$/,<*[0-9]>){++$n==$c||print map"
+$_\n",$n..$c-1;$n=$c}'
[download]

If you want to get rid of the sort, try an array:

perl -le '@f=map/(\d+)$/,<*[0-9]>;@x[@f]=@f;for(1..$#x){$x[$_]||print}
+'
[download]

Note that if you have a file named '0', it will basically ignore it, but that was the original behavior too. This may eat more memory, but I doubt that will be an issue until you're working with millions of files.

Comment on Re^4: one-line split file sequence checker Select or Download Code

Replies are listed 'Best First'.
Re^5: one-line split file sequence checker by jwkrahn (Abbot) on Jan 23, 2008 at 00:07 UTC
You can golf that a bit more: `perl -le '@x[@f]=@f=map/(\d+)$/,<*[0-9]>;$x[$_]\|\|print for+1..$#x'` [download]	[reply] [d/l]
Re^6: one-line split file sequence checker by wdef2 (Acolyte) on Jan 23, 2008 at 13:46 UTC
That `@x[@f]=@f` had me puzzled for a while, but it seems it is the same as: `@x[(@f)]=(@f)` So just @f is always expanded into a list without (), and () is not necessary when defining an array from a list? I'm still looking at the next one.	[reply] [d/l] [select]