i need a perl script that deletes text from a list?

M

martinthurn

New member
use strict;
use warnings;
use File::Slurp;
my $s = <<ENDOFLIST;
ProtName=1A6QA Den=NA E=0.066
ProtName=1A6QA Den=4 E=0.000
ProtName=1A6QA Den=8 E=0.729
ProtName=1A6QA Den=14 E=0.261
ProtName=1A6QA Den=11 E=0.065
ProtName=1A6QA Den=6 E=0.535
ProtName=1A6QA Den=9 E=0.286
ENDOFLIST
$s =~ s/^.+=//gm;
write_file('file.txt', $s);
 
for example, delete everything after the "="

ProtName=1A6QA Den=NA E=0.066
ProtName=1A6QA Den=4 E=0.000
ProtName=1A6QA Den=8 E=0.729
ProtName=1A6QA Den=14 E=0.261
ProtName=1A6QA Den=11 E=0.065
ProtName=1A6QA Den=6 E=0.535
ProtName=1A6QA Den=9 E=0.286

and then output a "txt" file with just the numbers
 
Back
Top