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