-# Version: 0.0.3
-
-# Find the maximum number of leading digits in the filenames of working dir
-max_digits="$(ls -1 * | sed 's/[^0-9].*//' | awk '{ if(length > L) L=length } END { print L }')";
-declare -p max_digits;
-
-# Loop over the files and rename them
-while read -r file; do
- re='^[0-9]+';
- if [[ ! "$file" =~ $re ]]; then continue; fi;
-
- # Extract the leading digits
- digits="$(echo "$file" | sed 's/\([0-9]*\).*/\1/')";
- # Zero-pad the digits
- padded_digits="$(printf "%0${max_digits}d" "$digits")";
- # Construct the new filename
- new_file="${padded_digits}${file#${digits}}";
- # Rename the file
- mv -n "$file" "$new_file"
- # declare -p file new_file; # debug
-done < <(find . -mindepth 1 -maxdepth 1 -type f);
+# Version: 0.0.4
+
+list_files() {
+ find . -mindepth 1 -maxdepth 1 -type f -exec basename '{}' \; ;
+};
+main () {
+ # Find the maximum number of leading digits in the filenames of working dir
+ max_digits="$(list_files | sed -e 's/[^0-9].*//' | awk '{ if(length > L) L=length } END { print L }')";
+ # declare -p max_digits; # debug
+
+ # Loop over the files and rename them
+ while read -r file; do
+ re='^[0-9]+';
+ if [[ ! "$file" =~ $re ]]; then continue; fi;
+
+ # Extract the leading digits
+ digits="$(echo "$file" | sed 's/\([0-9]*\).*/\1/')";
+ # Zero-pad the digits
+ padded_digits="$(printf "%0${max_digits}d" "$digits")";
+ # Construct the new filename
+ new_file="${padded_digits}${file#${digits}}";
+ # Rename the file
+ mv -n "$file" "$new_file"
+ # declare -p file new_file; # debug
+ done < <(list_files);
+};
+
+main "$@";
+
+
+