- 论坛徽章:
- 307
|
- #!/usr/bin/perl
- use strict;
- use warnings;
- $/ = ">";
- my (%hKeys);
- while (<>){
- chomp;
- my ($id, $str) = split (/\n/);
- next if (!$id);
- if ($ARGV eq 'a'){
- $hKeys{$id} = $str;
- print ">$id\n$str\n";
- next;
- }
- next if (exists $hKeys{$id} or grep {$_ eq $str} values %hKeys);
- print ">$id\n$str\n";
- }
复制代码 perl abc.pl a b c
--------------------------------------------------------------------------------------------
>123
EWDRESRF
>434 7
GFHHHHHHHHHHHHSD
>4_ 7
RTGFGFHGFF
>34SF
EDWRDFDEWDRESRFRFEFQQQ
>3_ 7
RTGFGFHGF
>RER
DFFDGFHOEIWR
|
|