Perl

[Dan B-Yallay]

В перловом скрипте используется файл /dir1/dir2/dir3/text.txt как входящий аргумент ARGV[0]. Нужно из этого аргумента выделить путь /dir1/dir2/dir3 и присвоить его в качестве значения некоторой переменной. Как это сделать?
Спасибо заранее.

[caxap]

$s = $ARGV[0];
$s =~ s/\/[^\/]+$//;

[Dan B-Yallay]

Это сработало, cпасибо.
Как бы мне теперь используя эту переменную

 $s

создать поддиректорию

 dir1/dir2/dir3/newdir

и создать фаил

 dir1/dir2/dir3/newdir/newfile.txt  

?

[caxap]

mkdir $s || die "can't make dir: $!\n";
open(FILE,">$s/newfile") || die "can't open file: $!\n";
print FILE "hello world";
close(FILE);

[Dan B-Yallay]

Я делаю что-то вроде того, но не работает. Можно ли скинуть код целиком Вам в личку?

[caxap]

давайте

[Dan B-Yallay]

Можно ли в перле открывать пачку файлов таким макаром:

for ($i=0; $i<8; $i++)
{
open(OUT$i, ">$filename[$i].txt") or die "can't open out $i";
}

У меня вылазит ошибка при обращении к любому из OUT0-OUT7

[caxap]

Dan B-Yallay в сообщении #452413 писал(а):

Можно ли в перле открывать пачку файлов таким макаром:

Нет, конечно. Нельзя кодом влиять на имена переменных. Имена -- это синтаксическая сторона языка. Вот массив -- пожалуйста.

@out;
for ($i=0; $i<2; $i++) {
    open($out[$i], ">$filename[$i].txt") || die "can't open out $i because $!\n";
    print { $out[$i] } "hello world";  # тут важны фигурные скобки!
    close ($out[$i]);
}

[Dan B-Yallay]

Мне нужно в программе рассортировывать строки из некоторого файла по различным OUT(file).
Сортировка идет снаружи цикла, поэтому хотелось иметь описанную конструкцию

[caxap]

Ну так используйте снаружи, какая разница? Вы создаёте массив filehandle'ов @out в цикле (только не надо их закрывать, как у меня). После выхода из цикла массив никуда не денется. То есть вместо OUT0...OUT7 пишите просто $out[0]...$out[7], не забывая указывать фигурные скобки в спорных моментах (типа как в print, иначе perl просто не поймёт: вы хотите напечатать $out[...] или напечатать в файл $out[...]).

Вконце опять же циклом по $i все $out[$i] закрываете.

[Dan B-Yallay]

Я так и сделал. Теперь ругается вообще на начало скрипта (который мы уже разобрали.)
Скину еще раз в личку?

[caxap]

ок

[Dan B-Yallay]

Больше не ругается, но в созданных файлах пусто. А должны быть строки из рассортированного файла.

[Dan B-Yallay]

Добрый день.
Пытаюсь внутри перлового скрипта выполнить шелл-скрипт с помощью такой конструкции:

my $command = "$HOME/MyScripts/Annotating.sh $s/$r; done";
system $command;

Получаю сообщение о том, что файл не найден. Хотя он там есть.
Что я делаю не так?

[caxap]

Экранируйте доллар, который должен уйти во внешний мир. Иначе перл будет считать это своей переменной.

my $command = "\$HOME/MyScripts/Annotating.sh $s/$r; done";
system $command;