разбор заголовка e-mail
Aug. 17th, 2010 01:10 am
my @head = split "(?ms)\r?\n(?!\\s)",do { local $/ = ""; <STDIN> };
в
@head — строки из заголовка письма, со всеми переносами.тело письма дальше в stdin, можно читать и построчно.
my @head = split "(?ms)\r?\n(?!\\s)",do { local $/ = ""; <STDIN> };
@head — строки из заголовка письма, со всеми переносами.