撤消tar文件提取混乱

我只是解压缩了一个归档文件，该归档文件将杂乱的文件生成到我的整洁目录中。例如：

user@comp:~/tidy$ tar xvf myarchive.tar
file1
file2
dir1/
dir1/file1
dir1/subdir1/
dir1/subdir1/file1
dir2/
dir2/file1
...

我期望tar文件可以被组织在一个文件夹（即myarchive/）中，但事实并非如此！现在，我已经有190个文件和目录以数字方式被发送到一个有组织的目录中。这些未压缩的文件需要清理。

有什么方法可以“撤消”此操作并删除从此存档中提取的文件和目录？

感谢您下面的出色回答。总而言之，以下是两个步骤的工作：（1）删除文件，（2）以相反的打包顺序删除空目录结构（首先删除外部目录）：

tar tf myarchive.tar | xargs -d'\n' rm
tar tf myarchive.tar | tac | xargs -d'\n' rmdir

而且更加安全，可以通过echo在之后附加来预览命令的预览版xargs。

tar tf archive.tar

将逐行列出内容。

这可以xargs直接通过管道传递给您，但请注意：删除时要非常小心。您并不想只是告诉您rm -r所有内容tar tf，因为它可能包含在解压缩之前不为空的目录！

你可以做

tar tf archive.tar | xargs -d'\n' rm -v
tar tf archive.tar | sort -r | xargs -d'\n' rmdir -v

首先删除存档中的所有文件，然后删除保留为空的目录。

sort -r（glennjackman建议tac而不是sort -r在接受的答案的注释中使用该方法，因为tar的输出足够有规律，因此也可以使用）首先需要删除最深的目录；否则，在传递之后将保留dir1一个包含空目录的情况，因为在删除之前该目录不为空。dir2dir1rmdirdir2

这会产生很多

rm: cannot remove `dir/': Is a directory

和

rmdir: failed to remove `dir/': Directory not empty
rmdir: failed to remove `file': Not a directory

2>/dev/null如果让您感到烦恼，请关闭它，但我希望在此过程中保留尽可能多的信息。

而且，除非您确定匹配正确的文件，否则请不要这样做。也许尝试rm -i确认所有内容。并备份，吃早餐，刷牙等。

像这样列出tar文件的内容：

tar tzf myarchive.tar

然后，通过遍历该列表来删除这些文件名：

while IFS= read -r file; do echo "$file"; done < <(tar tzf myarchive.tar.gz)

这仍将仅列出将要删除的文件。更换echo用rm，如果你真的肯定这是要删除的人。也许要确定要备份。

在第二遍中，删除剩下的目录：

while IFS= read -r file; do rmdir "$file"; done < <(tar tzf myarchive.tar.gz)

如果目录已经存在，这可以防止将其删除。

@glennjackman的另一个不错的技巧，即从最深的文件开始，保留文件的顺序。同样，echo完成后将其删除。

tar tvf myarchive.tar | tac | xargs -d'\n' echo rm

然后可以进行常规rmdir清理。

这可能会提取提取的文件并将其移动到子目录，从而清理您的主文件夹。

    #!/usr/bin/perl -w

    use strict;
    use Getopt::Long;

    my $clean_folder = "clean";
    my $DRY_RUN;
    die "Usage: $0 [--dry] [--clean=dir-name]\n"
        if ( !GetOptions("dry!" => \$DRY_RUN,
                         "clean=s" => \$clean_folder));

    # Protect the 'clean_folder' string from shell substitution
    $clean_folder =~ s/'/'\\''/g;

    # Process the "tar tv" listing and output a shell script.
    print "#!/bin/sh\n" if ( !$DRY_RUN );
    while (<>)
    {
        chomp;

        # Strip out permissions string and the directory entry from the 'tar' list
        my $perms = substr($_, 0, 10);
        my $dirent = substr($_, 48);

        # Drop entries that are in subdirectories
        next if ( $dirent =~ m:/.: );

        # If we're in "dry run" mode, just list the permissions and the directory
        # entries.
        #
        if ( $DRY_RUN )
        {
            print "$perms|$dirent\n";
            next;
        }

        # Emit the shell code to clean up the folder
        $dirent =~ s/'/'\\''/g;
        print "mv -i '$dirent' '$clean_folder'/.\n";
    }

将其保存到文件中fix-tar.pl，然后像这样执行：

$ tar tvf myarchive.tar | perl fix-tar.pl --dry

这将确认您的tar列表像我的一样。您应该得到如下输出：

-rw-rw-r--|batch
-rw-rw-r--|book-report.png
-rwx------|CaseReports.png
-rw-rw-r--|caseTree.png
-rw-rw-r--|tree.png
drwxrwxr-x|sample/

如果看起来不错，请像这样再次运行：

$ mkdir cleanup
$ tar tvf myarchive.tar | perl fix-tar.pl --clean=cleanup > fixup.sh

该fixup.sh脚本将是将顶层文件和目录移动到“干净”文件夹（在这种情况下，称为的文件夹cleanup）的shell命令。窥视一下此脚本，以确认它们完全符合犹太标准。如果是这样，您现在可以使用以下方法清理混乱：

$ sh fixup.sh

我更喜欢这种清除方式，因为它不会销毁尚未被该初始值覆盖的任何内容tar xv。

注意：如果最初的空运行输出看起来不正确，那么您应该能够在两个substr函数调用中摆弄数字，直到看起来正确为止。该$perms变量仅用于空运行，因此实际上只有$dirent子字符串才需要正确。

另一件事：如果列表中的用户名和/或组名使名称以不可预测的列开头，则可能需要使用该tar选项。--numeric-ownertar

这种（反种族的）档案库由于其功能而被称为焦油炸弹。一旦这些“爆炸”事件之一出现在您身上，其他答案中的解决方案就会比我建议的更好。

但是，最好的“解决方案”是首先防止出现此问题。

最简单（最懒惰）的方法是始终将tar存档解压缩到一个空目录中。如果它包含顶层目录，则只需将其移至所需的目的地。如果不是，则只需重命名您的工作目录（空目录）并将其移动到所需位置。

如果您只是想第一次使用它，则可以运行tar -tvf archive-file.tar | 较少，它将列出存档的内容，因此您可以查看其结构，然后执行必要的操作以将其提取到所需的位置。

如果您想检查档案的内容以查看其内容是否在其中，可以使用t选项。如果可以，您可以选择提取所需的文件。