Автор Тема: Файловый менеджер в Perl  (Прочитано 2265 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн James

  • Коллежский регистратор
  • *
  • Сообщений: 1
  • Репутация: 0
Файловый менеджер в Perl
« : ЅЮпСам 21, 2007, 03:49:14 pm »
Помогите пожалуйста довести до ума файловый менеджер, он уже работает осталось только чтоб он дерево рисовал, никак не могу додуматься как это реализовать.
Код: (perl) [Выделить]
#!Perl -w
print "What directory: ";
chomp($where=<STDIN>);
opendir(Katalog,"$where");
@fls = readdir(Katalog);
$j=@fls;
for($i=0;$i<$j; $i++)
{
print "|";
print "_"."$fls[$i]\n";
}
do{
chdir($where);
print "   L";
print "\n";
print "#########################################################\n";
print "1-Other directory 2-Preview file\n";
print "3-Delete catalog/file 4-Create file\n";
print "5-Rename catalog/file 6-Create catalog\n";
print "    7-Exit\n";
print "#########################################################\n";
print "what do you next?\n";
$variant=<STDIN>;
if ($variant==1)
{
print "Path other directory=> ";
  chomp($where=<STDIN>);
opendir(Katalog,"$where");
@fls = readdir(Katalog);
$j=@fls;
for($i=0;$i<$j; $i++)
{
print "|";
print "_"."$fls[$i]\n";
}
}
elsif ($variant==2)
{
print "Please insert path for catalog or file=> ";
chomp($path=<STDIN>);
if (-d $path)
{
chdir($path)
}
elsif (-f $path)
{
open(MY,$path);
while ($line=<MY>)
{
chomp $line;
    print "$line\n";
}
close(MY);
print "Press any key for continue...";
<STDIN>;
}
}
elsif ($variant==3)
{
print "Please insert name catalog or file for delete=> ";
  chomp($path3=<STDIN>);
  if (-d $path3)
{
rmdir $path3
}
  elsif (-f $path3)
  {
unlink $path3;
}
}
elsif ($variant==4)
{
  print "Insert name and path new file or catalog=> ";
  chomp($path=<STDIN>);
open(FIL,">$path");
close(FIL);
}
elsif ($variant==5)
{
print "What is name catalog or file=> ";
chomp($path1=<STDIN>);
print "Inser new name cataloga or file=> ";
chomp($path2=<STDIN>);
if (rename($path1,$path2)!=1)
{
print "ERROR RENAME!!!";
}
}
elsif ($variant==6)
{
print "Enter full path and name catalog=> ";
  chomp($path4=<STDIN>);
if (mkdir($path4)!=1)
{
print "ERROR CREATE !!!"
};
}
}while ($variant!=7);

Заранее благодарен