LINUX.ORG.RU

как написать скрипт


0

0

помогите написать скрипт который бы копиролвал библиотеки которые необходимы для запуска программы(ldd httpd) в другой опеределенный каталог с сохранением путей ... надо это для сhroot'а =). например: /lib/test.so => /chroot/lib/test.so /lib/test/test.so => /chroot/lib/test/test.so ps корявенько немного обьяснил ну мож кто понял =)

anonymous

#!/usr/bin/perl -w use strict;

my $file = "./ldd.txt"; my $base_location = "./chroot";

print "\$file: $file\n"; print "\$base_location: $base_location\n";

open FILE, $file or die "\nCannto open \"$file\": $!"; while (my $line = ) { my (@els) = split /\s+/, $line; my $need_file = $els[3]; my $to = $base_location . $need_file; make_dirs ($to); `cp $need_file $to`; } close FILE;

exit 0;

sub make_dirs { my $file = shift; print "F: $file\n"; my @dirs = (split /\//, $file); pop @dirs; my $tmp; foreach my $dir (@dirs) { $tmp .= "$dir/"; unless ( -e $tmp) { mkdir $tmp; } } }

# # Привет Оленьке из Америки от jakobs'a #

anonymous
()

<html> <body> hello <br> hello <pre> fr rfr4 34 </pre> </body> </html>

anonymous
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.