Tomcat8, требуя пароль

Способ bash хорош, но что делать, если вы работаете с оболочкой, которая не поддерживает расширение фигурной скобки? touch file{1..10}, например, не работает для меня mksh. Вот три альтернативных способа, которые работают независимо от оболочки.

seq

Более нейтральным по отношению к оболочке подходом было бы объединение команды seq для генерации последовательности чисел, отформатированных с помощью printf и передать его команде xargs. Например,

$ ls -l
total 0
$ seq -f "%04.0f" 10 | xargs -I "{}" touch bspl"{}".c                 
$ ls
bspl0002.c  bspl0004.c  bspl0006.c  bspl0008.c  bspl0010.c
bspl0001.c  bspl0003.c  bspl0005.c  bspl0007.c  bspl0009.c

Perl

Конечно, Perl, будучи довольно широко распространенным инструментом * nix, может это сделать. Конкретная команда однострочного интерфейса, которая у нас есть, следующая:

perl -le 'do { $var=sprintf("%s%04d.c",$ARGV[0],$_ ); open(my $fh, ">", $var);close($fh) } for $ARGV[1] .. $ARGV[2]' bslp 1 5 

Эффективно, что происходит здесь, состоит в том, что мы указываем три аргумента командной строки: префикс имени файла, начальный индекс и конечный индекс. Затем мы используем do { } for $ARGV[1] .. $ARGV[2] для итерации для определенного диапазона чисел. Скажем, $ARGV[1] было 5, а $ARGV[2] равно 9, мы будем перебирать 5,6,7,8 и 9.

Что происходит на каждой итерации в фигурных скобках? мы берем каждое число, указанное с помощью $_, и используя функцию sprintf(), создаем строку m, которая соединяет префикс (первый аргумент командной строки, $ARGV[0]) и заданное число, но заполняя число с 4 нулями ( который выполняется с помощью printf -типа форматирования, %04d) и присоединяет суффикс .c. В результате на каждой итерации мы составляем имя типа bspl0001.c.

Эффект open(my $fh, ">", $var);close($fh) действует как команда touch, создавая файл с указанным именем.

Хотя он немного длинный, он работает довольно хорошо, в моде, подобном сценарию питона Якова Влэйма. Он также может быть преобразован в скрипт для удобства чтения, например:

#!/usr/bin/env perl
use strict;
use warnings;

for my $i ( $ARGV[1] .. $ARGV[2] ) { 
    my $var=sprintf("%s%04d.c",$ARGV[0],$i ); 
    open(my $fh, ">", $var) or die "Couldn't open " . $var ;
    close($fh) or die "Couldn't close " . $var ;
}

Давайте проверим это. Сначала однострочный:

$ ls -l
total 0
$ perl -le 'do { $var=sprintf("%s%04d.c",$ARGV[0],$_ ); open(my $fh, ">", $var);close($fh) } for $ARGV[1] .. $ARGV[2]' bslp 1 5
$ ls -l                                                                                               
total 0
-rw-rw-r-- 1 xieerqi xieerqi 0 2月   5 23:36 bslp0001.c
-rw-rw-r-- 1 xieerqi xieerqi 0 2月   5 23:36 bslp0002.c
-rw-rw-r-- 1 xieerqi xieerqi 0 2月   5 23:36 bslp0003.c
-rw-rw-r-- 1 xieerqi xieerqi 0 2月   5 23:36 bslp0004.c
-rw-rw-r-- 1 xieerqi xieerqi 0 2月   5 23:36 bslp0005.c

И теперь скрипт:

$ ls -l
total 4
-rwxrwxr-x 1 xieerqi xieerqi 244 2月   5 23:57 touch_range.pl*
$ ./touch_range.pl bspl 1 5                                                                           
$ ls -l
total 4
-rw-rw-r-- 1 xieerqi xieerqi   0 2月   5 23:58 bspl0001.c
-rw-rw-r-- 1 xieerqi xieerqi   0 2月   5 23:58 bspl0002.c
-rw-rw-r-- 1 xieerqi xieerqi   0 2月   5 23:58 bspl0003.c
-rw-rw-r-- 1 xieerqi xieerqi   0 2月   5 23:58 bspl0004.c
-rw-rw-r-- 1 xieerqi xieerqi   0 2月   5 23:58 bspl0005.c
-rwxrwxr-x 1 xieerqi xieerqi 244 2月   5 23:57 touch_range.pl*

awk

Другой подход будет с awk, запуском for loop, перенаправление на определенный файл. Этот подход похож на однострочный perl с аргументами командной строки. В то время как awk - это, прежде всего, утилита для обработки текста, она все же может сделать некоторое крутое системное программирование.

$ awk 'BEGIN{for(i=ARGV[2];i<=ARGV[3];i++){fd=sprintf("%s%04d.c",ARGV[1],i); printf "" > fd;close(fd)}}' bslp 1 5