Toggle Rule

[atom]

i wrote a simple script for this:

Code:

#!/usr/bin/perl

use strict;
use warnings;

my $db2;

while (my $line = <>)
{
  chomp ($line);

  my $db1;

  my $line_len = length ($line);

  my $i;

  for ($i = 0; $i < $line_len; $i += 2)
  {
    my $t = substr ($line, $i, 2);

    last if (exists $db1->{$t});

    $db1->{$t} = undef;
  }

  next if ($i < $line_len);

  my @sorted_keys = sort keys %{$db1};

  my $sorted_keys_s = join ("", @sorted_keys);

  next if (exists $db2->{$sorted_keys_s});

  $db2->{$sorted_keys_s} = undef;

  print "$line\n";
}

and then run the commands:

$ mp64.bin -1 0123456789ABCDE 'T?1' | perl optimize_toggle.pl >> toggles1.rule
$ mp64.bin -1 0123456789ABCDE 'T?1' | perl optimize_toggle.pl >> toggles2.rule
$ mp64.bin -1 0123456789ABCDE 'T?1' | perl optimize_toggle.pl >> toggles3.rule
$ mp64.bin -1 0123456789ABCDE 'T?1' | perl optimize_toggle.pl >> toggles4.rule
$ mp64.bin -1 0123456789ABCDE 'T?1' | perl optimize_toggle.pl >> toggles5.rule

$ mp64.bin -1 0123456789ABCDE 'T?1T?1' | perl optimize_toggle.pl >> toggles2.rule
$ mp64.bin -1 0123456789ABCDE 'T?1T?1' | perl optimize_toggle.pl >> toggles3.rule
$ mp64.bin -1 0123456789ABCDE 'T?1T?1' | perl optimize_toggle.pl >> toggles4.rule
$ mp64.bin -1 0123456789ABCDE 'T?1T?1' | perl optimize_toggle.pl >> toggles5.rule

$ mp64.bin -1 0123456789ABCDE 'T?1T?1T?1' | perl optimize_toggle.pl >> toggles3.rule
$ mp64.bin -1 0123456789ABCDE 'T?1T?1T?1' | perl optimize_toggle.pl >> toggles4.rule
$ mp64.bin -1 0123456789ABCDE 'T?1T?1T?1' | perl optimize_toggle.pl >> toggles5.rule

$ mp64.bin -1 0123456789ABCDE 'T?1T?1T?1T?1' | perl optimize_toggle.pl >> toggles4.rule
$ mp64.bin -1 0123456789ABCDE 'T?1T?1T?1T?1' | perl optimize_toggle.pl >> toggles5.rule

$ mp64.bin -1 0123456789ABCDE 'T?1T?1T?1T?1T?1' | perl optimize_toggle.pl >> toggles5.rule

ofc you can add more if your like.