Создание нескольких каталогов по списку etc...

[ReNzRv]

Нужен реальный файл, потому-что на твоем примере тестовый вариант

Код: (perl) [Выделить]

#!/usr/bin/perl

my $d = '/telemetry';

my $n;
my %h;
while (<>) {
$n = $1 if (/^\s*Номер\s+(\d+)/);
if ($n) { $h{$n}{$1}=$2 if (/(\S+)\s*:\s*(\S+)/) }
}

for my $n (keys %h){
my $dir = $h{$n}{'Каталог'};
if ($dir){
delete $h{$n}{'Каталог'};
unless (system "echo Создание директории \"$d/$dir/\""){
for my $f (values %{$h{$n}}){
system "echo Запись \"$f\" в \"$d/$dir/$f\"";
}
}
}
print "\n";
}

работает так:

Код: [Выделить]

Создание директории /telemetry/d6nd77/
Запись 300 в /telemetry/d6nd77/300
Запись 32432443 в /telemetry/d6nd77/32432443
Запись 33 в /telemetry/d6nd77/33

Создание директории /telemetry/d6iy54/
Запись 100 в /telemetry/d6iy54/100
Запись 37458793 в /telemetry/d6iy54/37458793
Запись 3 в /telemetry/d6iy54/3

Создание директории /telemetry/hflgl/
Запись 100 в /telemetry/hflgl/100
Запись 75487375 в /telemetry/hflgl/75487375
Запись 3 в /telemetry/hflgl/3


[hesoyamatogun]

Да всё так, попробую потестить.
А это и есть реальный файл, со временем к нему будут добавляться еще строки но общая структура не сменится. Мусор я уже сам отсортирую предварительно, главное чтоб если каталог такой уже есть, никаких остановок, и перезаписать содержимого его файлов.

[ALiEN]

позволяет хотя бы видеть что просиходит и подправить в случае чего

ну echo же где нужно

Код: [Выделить]

...
echo "Create directory /telemetry/$DIR"
     mkdir -p "/telemetry/$DIR"
echo "Record $ID to /telemetry/${DIR}/Идентификатор"
     echo "$ID" > "/telemetry/${DIR}/Идентификатор"
...

либо так

[ReNzRv]

hesoyamatogun,
Остановок не будет, файлы будут перезаписыватся.
Т.к. mkdir даже если каталог уже существует все равно возвращает 0 (true).

[hesoyamatogun]

renzrv, Первый ваш скрипт ничего не вывел, создал директории и поместил в них файлы с названием значения, которое должно быть в файле не с названием значения а с названием параметров. Второй
вывел на экран то что он якобы создал, но ничего не создал вообще. Но даже бы если и создал, то создал бы файлы с не теми именами, то как он их называет должно быть внутри, а называтся они должны идентификатор, область, значение
Ща попробую ALiEN175'овский скпупт
Пользователь добавил сообщение 21 Ноября 2017, 19:17:35:попробовал

Код: [Выделить]

root@sr:/telemetry# ./script.sh
./script.sh: 1: ./script.sh: Syntax error: redirection unexpectedЧертовщина, я вообще отсюда скопировал в nano, на концах некоторых строк появляются закрашеные зелёным квадраты, и пока их не удалишь не заработает. Как этого избежать?
windows7 - putty

Код: [Выделить]

COUNT=`sed -n '$=' <<<"$LIST"`Наверное на эту строку брешет, после <<< наверно пробел нехватает
-----всё равно брешет

[ReNzRv]

но ничего не создал вообще.

А он и не должен был ничего создавать, потому что тестовый.

Вот попробуй:

Код: (perl) [Выделить]

#!/usr/bin/perl

my $d = '/telemetry';

my $n;
my %h;
while (<>) {
$n = $1 if (/^\s*Номер\s+(\d+)/);
if ($n) { $h{$n}{$1}=$2 if (/(\S+)\s*:\s*(\S+)/) }
}

for my $n (keys %h){
my $dir = $h{$n}{'Каталог'};
if ($dir){
delete $h{$n}{'Каталог'};
print "Создание директории \"$d/$dir\"\n";
unless (system "mkdir -p \"$d/$dir\""){
for my $f (keys %{$h{$n}}){
my $z = $h{$n}{$f};
print "Запись \"$z\" в \"$d/$dir/$f\"\n";
system "echo \"$z\" > \"$d/$dir/$f\"";
}
}
}
print "\n";
}

PS: На perl парсер будет лучше.
Например потому что perl не создает кучу лишних процессов sed и прочих, работает быстрее и эффективнее,
+ имеет почти не ораниченные возможости расширения и усложнения.

[hesoyamatogun]

Да, сейчас получилось вроде как нужно, только вот я его редактировать не смогу совсем
ALiEN175, ваш скрипт тоже сработал, когда заменил #!/bin/sh на bash