ANTICHAT — форум по информационной безопасности, OSINT и технологиям

#!/usr/local/bin/perl

open(F, 'in.txt'); 
$f = join('', <F>);
close(F);

@ar = $f =~ /ROM=(.+?)\s/g;

open(OUT, '>> oit.txt');

foreach (@ar)
   {
	print OUT "$_\n";
   }

close(OUT);

infl=File.new("infile.txt","rb")
outfl=File.new("outfile.txt","a")
while !infl.eof do   outfl.puts infl.gets.chop.split("ROM=")[1] end
outfl.close
infl.close

#!/usr/bin/env python
#-*-encoding:UTF-8-*-
with open("input_1.txt") as inpt1:
    with open("input_2.txt") as inpt2:
        with open("out.txt", "w") as out:
            for line in inpt1:
                line = line.strip().split(":")
                if len(line) == 2:
                    out.write("{0}:{1}\n".format(line[1], line[0]))
                else:
                    print "BAD FORMAT {0}".format(":".join(line))
            for line in inpt2:
                line = line.strip().split(":")
                if len(line) == 2:
                    out.write("{0}:{1}\n".format(line[1], line[0]))
                else:
                    print "BAD FORMAT {0}".format(":".join(line))