Отправлено near 03 апреля 2003 г. 20:17

open IN, "$ARGV[0]" or die "Can't open IN file; $!";
open OUT, ">out.txt" or die "Can't open OUT file; $!";

$_ = join '', ;
s/\n\n\.\n\n/./g;
s/\)\n\n\;/) ;/g;
s/\n\=\>\n\n(.*)\n\,\n/ => $1,\t/g;
s/\n\n\=\>\n\n/ => /g;
s/\n\n\(/ (/g;
s/\n\n\)/ )/g;
s/\n\n\<\=/ <=/g;
s/\<\=\n\n/<= /g;
s/\n\n\=/ =/g;
s/\n\n\,/ ,/g;
s/\n\nand/ and/g;
s/\n\nxor/ xor/g;
s/\n\n\+/ +/g;
s/\n\n\:\=/ :=/g;
s/\n\ndownto/ downto/gi;

s/\0\n/\t/g;
s/\n\n/\t/g;

s/\n/ /g;
s/\t/\n/g;

s/\n\n/\n/g;

s/-- Scrambler/\n-- Scrambler/g;
s/library/\nlibrary/g;
s/entity/\nentity/g;
s/architecture/\narchitecture/g;

print OUT "$_";

• Комментарий: зараза, конфа, съедает кусочки кода: $_ = join '', <IN>; — near   (03.04.2003 20:24, пустое)
  • Все HTML'ные спец-символы надо через &xxx задавать, тогда ничего никто не съест. — SM    (03.04.2003 22:34, пустое)