jjzjj

windows - 从多个 (700+) 文本文件中删除以特定单词开头的所有行

coder 2024-06-19 原文

我在一个文件夹中有大约 700 个文本文件，每个文件如下所示:

ATOM     46  H17 21Q A   1       8.755   9.236  19.160  1.00 10.00           H
ATOM     47  H18 21Q A   1       4.986  13.632  21.286  1.00 10.00           H
ATOM     48  H19 21Q A   1       4.073  12.279  20.536  1.00 10.00           H
ATOM     49  H20 21Q A   1       4.447  12.245  22.293  1.00 10.00           H
ATOM     50  H21 21Q A   1      -0.059   3.744  18.524  1.00 10.00           H
ATOM     51  H22 21Q A   1       0.915   2.266  18.827  1.00 10.00           H
ATOM     52  H23 21Q A   1      -0.811   2.321  19.321  1.00 10.00           H
ATOM     53  H24 21Q A   1      -0.126  -0.895  21.075  1.00 10.00           H
ATOM     54  H25 21Q A   1       1.167   0.041  20.250  1.00 10.00           H
ATOM     55  H26 21Q A   1       1.247  -0.230  22.024  1.00 10.00           H
ATOM     56  H27 21Q A   1       4.391   7.539  23.280  1.00 10.00           H
CONECT    1    2   30   31   32
CONECT    2    1    3   33   34
CONECT    3    2    5   18
CONECT    4    5   19   35
CONECT    5    3    4    6
CONECT    6    5   24   26
CONECT    7    8   12   24

我想做的是编写一个 Perl 脚本，能够处理我的 700 个文件，同时删除所有以单词 CONECT 开头的行。同时我想把文件保存在原来的名字下。 不幸的是，我只能设法打开一个文件 (21Q) 并将其保存在我创建的一个空文件 (21Q_2) 中，这不是我想要的。

#!perl
use strict;
use warnings;
use LWP::Simple;
use File::Slurp;


open(my $in, '<', 'C:\perl_old_test\TRP_ligands_PDB\21Q.txt', )
or die "Cannot open input.txt: $!";

open(my $out, '>', 'C:\perl_old_test\TRP_ligands_PDB\21Q_2.txt')
or die "Cannot open output.txt: $!";

while (<$in>) {
print $out $_ unless /\bCONECT\b/;
}

close($in);
close($out);

任何帮助将不胜感激! 非常感谢你， 阿里安娜

最佳答案

您可以使用简单的 Perl 代码来完成此操作:

perl -ni.bak -e 'print unless /^CONECT/' <filename glob>

-n标志假定此循环围绕您希望执行的代码:

while (<>) {
   # code 
}

-i修改您的文本文件，.bak创建原始文件的备份，以防您需要两个副本。

-e标志表示 Perl 应该执行这段代码。

<filename glob>应该替换为一种模式，该模式将您要检查的所有文件组合在一起。例如，如果您想要所有文件，它将是 * ，或者所有具有 .txt 扩展名的文件都是 *txt .

关于windows - 从多个 (700+) 文本文件中删除以特定单词开头的所有行，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/24660336/

除以单词code10.00CONECTwindowsperltextfile-io

有关windows - 从多个 (700+) 文本文件中删除以特定单词开头的所有行的更多相关文章

  1. ruby - 在 Ruby 程序执行时阻止 Windows 7 PC 进入休眠状态 - 2

    我需要在客户计算机上运行Ruby应用程序。通常需要几天才能完成(复制大备份文件)。问题是如果启用sleep，它会中断应用程序。否则，计算机将持续运行数周，直到我下次访问为止。有什么方法可以防止执行期间休眠并让Windows在执行后休眠吗？欢迎任何疯狂的想法;-) 最佳答案 Here建议使用SetThreadExecutionStateWinAPI函数，使应用程序能够通知系统它正在使用中，从而防止系统在应用程序运行时进入休眠状态或关闭显示。像这样的东西:require'Win32API'ES_AWAYMODE_REQUIRED=0x0

  2. ruby-on-rails - Rails 3 中的多个路由文件 - 2

    Rails2.3可以选择随时使用RouteSet#add_configuration_file添加更多路由。是否可以在Rails3项目中做同样的事情？ 最佳答案 在config/application.rb中:config.paths.config.routes在Rails3.2(也可能是Rails3.1)中，使用:config.paths["config/routes"] 关于ruby-on-rails-Rails3中的多个路由文件，我们在StackOverflow上找到一个类似的问题

  3. ruby-on-rails - 在 Ruby 中循环遍历多个数组 - 2

    我有多个ActiveRecord子类Item的实例数组，我需要根据最早的事件循环打印。在这种情况下，我需要打印付款和维护日期，如下所示:ItemAmaintenancerequiredin5daysItemBpaymentrequiredin6daysItemApaymentrequiredin7daysItemBmaintenancerequiredin8days我目前有两个查询，用于查找maintenance和payment项目(非排他性查询)，并输出如下内容:paymentrequiredin...maintenancerequiredin...有什么方法可以改善上述(丑陋的)代

  4. ruby-on-rails - Rails - 一个 View 中的多个模型 - 2

    我需要从一个View访问多个模型。以前，我的links_controller仅用于提供以不同方式排序的链接资源。现在我想包括一个部分(我假设)显示按分数排序的顶级用户(@users=User.all.sort_by(&:score))我知道我可以将此代码插入每个链接操作并从View访问它，但这似乎不是“ruby方式”，我将需要在不久的将来访问更多模型。这可能会变得很脏，是否有针对这种情况的任何技术？注意事项:我认为我的应用程序正朝着单一格式和动态页面内容的方向发展，本质上是一个典型的网络应用程序。我知道before_filter但考虑到我希望应用程序进入的方向，这似乎很麻烦。最终从任何

  5. ruby-on-rails - 如何优雅地重启 thin + nginx？ - 2

    我的瘦服务器配置了nginx，我的ROR应用程序正在它们上运行。在我发布代码更新时运行thinrestart会给我的应用程序带来一些停机时间。我试图弄清楚如何优雅地重启正在运行的Thin实例，但找不到好的解决方案。有没有人能做到这一点？ 最佳答案 #Restartjustthethinserverdescribedbythatconfigsudothin-C/etc/thin/mysite.ymlrestartNginx将继续运行并代理请求。如果您将Nginx设置为使用多个上游服务器，例如server{listen80;server

  6. ruby - 多个属性的 update_column 方法 - 2

    我有一个具有一些属性的模型:attr1、attr2和attr3。我需要在不执行回调和验证的情况下更新此属性。我找到了update_column方法，但我想同时更新三个属性。我需要这样的东西:update_columns({attr1:val1,attr2:val2,attr3:val3})代替update_column(attr1,val1)update_column(attr2,val2)update_column(attr3,val3) 最佳答案 您可以使用update_columns(attr1:val1,attr2:val2

  7. ruby-on-rails - 在 ruby​​ .gemspec 文件中，如何指定依赖项的多个版本？ - 2

    我正在尝试修改当前依赖于定义为activeresource的gem:s.add_dependency"activeresource","~>3.0"为了让gem与Rails4一起工作，我需要扩展依赖关系以与activeresource的版本3或4一起工作。我不想简单地添加以下内容，因为它可能会在以后引起问题:s.add_dependency"activeresource",">=3.0"有没有办法指定可接受版本的列表？~>3.0还是~>4.0？ 最佳答案 根据thedocumentation,如果你想要3到4之间的所有版本，你可以这

  8. ruby-on-rails - 在 ruby​​ 中使用 gsub 函数替换单词 - 2

    我正在尝试用ruby​​中的gsub函数替换字符串中的某些单词，但有时效果很好，在某些情况下会出现此错误？这种格式有什么问题吗NoMethodError(undefinedmethod`gsub!'fornil:NilClass):模型.rbclassTest"replacethisID1",WAY=>"replacethisID2andID3",DELTA=>"replacethisID4"}end另一个模型.rbclassCheck 最佳答案 啊，我找到了!gsub!是一个非常奇怪的方法。首先，它替换了字符串，所以它实际上修改了

  9. ruby - 在 Windows 机器上使用 Ruby 进行开发是否会适得其反？ - 2

    这似乎非常适得其反，因为太多的gem会在window上破裂。我一直在处理很多mysql和ruby​​-mysqlgem问题(gem本身发生段错误，一个名为UnixSocket的类显然在Windows机器上不能正常工作，等等)。我只是在浪费时间吗？我应该转向不同的脚本语言吗？ 最佳答案 我在Windows上使用Ruby的经验很少，但是当我开始使用Ruby时，我是在Windows上，我的总体印象是它不是Windows原生系统。因此，在主要使用Windows多年之后，开始使用Ruby促使我切换回原来的系统Unix，这次是Linux。Rub

  10. ruby - 使用多个数组创建计数 - 2

    我正在尝试按0-9和a-z的顺序创建数字和字母列表。我有一组值value_array=['0','1','2','3','4','5','6','7','8','9','a','b'，'光盘'，'e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','','u','v','w','x','y','z']和一个组合列表的数组，按顺序，这些数字可以产生x个字符，比方说三个list_array=[]和一个当前字母和数字组合的数组(在将它插入列表数组之前我会把它变成一个字符串，]current_combo['0','0','0']

随机推荐