Команды Unix в Perl?

Question

Я очень новичок в Perl, и я хотел бы сделать программу, которая создает каталог и перемещает файл в этот каталог с помощью команды Unix, как:

mkdir test 

Что я знаю бы сделать каталог с именем "контрольная работа". Оттуда я хотел бы дать больше вариантов:

mv *.jpg test 

Это переместит все файлы .jpg в мой новый каталог.

До сих пор у меня есть это:

#!/usr/bin/perl 

print "Folder Name:"; 
$fileName = <STDIN>; 
chomp($fileType); 

$result=`mkdir $fileName`; 
print"Your folder was created \n"; 

Может кто-нибудь помочь мне с этим?

Answer 1

Попробуйте сделать это:

#!/usr/bin/perl 

use strict; use warnings; 

print "Folder Name:"; 
$dirName = <STDIN>; 
chomp($dirName); 

mkdir($dirName) && print "Your folder was created \n"; 
rename $_, "$dirName/$_" for <*.jpg>; 

Вы будете иметь лучший контроль при использовании встроенного в perl функций, чем при использовании команды Unix. Это точка моего фрагмента.

Answer 2

Большинство (если не все) команды Unix имеют соответствующую версию в качестве функции

например

MkDir - см here

мв - См here

И т.д. либо получить печать из разных страниц руководства (или, возможно, побывать в книжном магазине - книга о орехах О'Рейлли неплоха вместе с другими).

Answer 3

В perl вы можете использовать команды bash в backticks. Однако что происходит, когда каталог не создается командой mkdir? Ваша программа не получает уведомления об этом и продолжает веселиться, думая, что все в порядке.

Вы должны использовать встроенную команду в perl, которая делает то же самое.

• http://perldoc.perl.org/functions/mkdir.html
• http://perldoc.perl.org/functions/rename.html

Это гораздо проще перехвата ошибок с этими функциями и не корректно. Кроме того, они работают быстрее, потому что вам не нужно разветвлять новый процесс для каждой команды, которую вы запускаете.

Answer 4

Perl имеет некоторые функции, аналогичные функциям оболочки. Вы можете просто использовать

mkdir $filename; 

Вы можете использовать обратные кавычки, чтобы запустить команду оболочки, но это полезно, только если команда возвращает ничего на стандартный вывод, который mkdir не делает. Для команд, без выхода, используйте system:

0 == system "mv *.jpg $folder" or die "Cannot move: $?";