perl字符串处理

[renliang8929]

前面两行和最后一行不要，之留下中间的base64编码内容

attachment; filename="2015calendar.csv"
Content-Transfer-Encoding: base64

MjAxNTAxMDUNCjIwMTUwMTA2DQoyMDE1MDEwNw0KMjAxNTAxMDgNCjIwMTUwMTA5DQoyMDE1
MDExMg0KMjAxNTAxMTMNCjIwMTUwMTE0DQoyMDE1MDExNQ0KMjAxNTAxMTYNCjIwMTUwMTE5
DQoyMDE1MDEyMA0KMjAxNTAxMjENCjIwMTUwMTIyDQoyMDE1MDEyMw0KMjAxNTAxMjYNCjIw
MTUwMTI3DQoyMDE1MDEyOA0KMjAxNTAxMjkNCjIwMTUwMTMwDQoyMDE1MDIwMg0KMjAxNTAy
MDMNCjIwMTUwMjA0DQoyMDE1MDIwNQ0KMjAxNTAyMDYNCjIwMTUwMjA5DQoyMDE1MDIxMA0K
MjAxNTAyMTENCjIwMTUwMjEyDQoyMDE1MDIxMw0KMjAxNTAyMTYNCjIwMTUwMjE3DQoyMDE1
MDIyNQ0KMjAxNTAyMjYNCjIwMTUwMjI3DQoyMDE1MDMwMg0KMjAxNTAzMDMNCjIwMTUwMzA0
DQoyMDE1MDMwNQ0KMjAxNTAzMDYNCjIwMTUwMzA5DQoyMDE1MDMxMA0KMjAxNTAzMTENCjIw
MTUwMzEyDQoyMDE1MDMxMw0KMjAxNTAzMTYNCjIwMTUwMzE3DQoyMDE1MDMxOA0KMjAxNTAz
MTkNCjIwMTUwMzIwDQoyMDE1MDMyMw0KMjAxNTAzMjQNCjIwMTUwMzI1DQoyMDE1MDMyNg0K
MjAxNTAzMjcNCjIwMTUwMzMwDQoyMDE1MDMzMQ0KMjAxNTA0MDENCjIwMTUwNDAyDQoyMDE1
MDQwMw0KMjAxNTA0MDcNCjIwMTUwNDA4DQoyMDE1MDQwOQ0KMjAxNTA0MTANCjIwMTUwNDEz
DQoyMDE1MDQxNA0KMjAxNTA0MTUNCjIwMTUwNDE2DQoyMDE1MDQxNw0KMjAxNTA0MjANCjIw
MTUwNDIxDQoyMDE1MDQyMg0KMjAxNTA0MjMNCjIwMTUwNDI0DQoyMDE1MDQyNw0KMjAxNTA0
MjgNCjIwMTUwNDI5DQoyMDE1MDQzMA0KMjAxNTA1MDQNCjIwMTUwNTA1DQoyMDE1MDUwNg0K
MjAxNTA1MDcNCjIwMTUwNTA4DQoyMDE1MDUxMQ0KMjAxNTA1MTINCjIwMTUwNTEzDQoyMDE1
MDUxNA0KMjAxNTA1MTUNCjIwMTUwNTE4DQoyMDE1MDUxOQ0KMjAxNTA1MjANCjIwMTUwNTIx
DQoyMDE1MDUyMg0KMjAxNTA1MjUNCjIwMTUwNTI2DQoyMDE1MDUyNw0KMjAxNTA1MjgNCjIw
MTUwNTI5DQoyMDE1MDYwMQ0KMjAxNTA2MDINCjIwMTUwNjAzDQoyMDE1MDYwNA0KMjAxNTA2
MDUNCjIwMTUwNjA4DQoyMDE1MDYwOQ0KMjAxNTA2MTANCjIwMTUwNjExDQoyMDE1MDYxMg0K
MjAxNTA2MTUNCjIwMTUwNjE2DQoyMDE1MDYxNw0KMjAxNTA2MTgNCjIwMTUwNjE5DQoyMDE1
MDYyMw0KMjAxNTA2MjQNCjIwMTUwNjI1DQoyMDE1MDYyNg0KMjAxNTA2MjkNCjIwMTUwNjMw
DQoyMDE1MDcwMQ0KMjAxNTA3MDINCjIwMTUwNzAzDQoyMDE1MDcwNg0KMjAxNTA3MDcNCjIw
MTUwNzA4DQoyMDE1MDcwOQ0KMjAxNTA3MTANCjIwMTUwNzEzDQoyMDE1MDcxNA0KMjAxNTA3
MTUNCjIwMTUwNzE2DQoyMDE1MDcxNw0KMjAxNTA3MjANCjIwMTUwNzIxDQoyMDE1MDcyMg0K
MjAxNTA3MjMNCjIwMTUwNzI0DQoyMDE1MDcyNw0KMjAxNTA3MjgNCjIwMTUwNzI5DQoyMDE1
MDczMA0KMjAxNTA3MzENCjIwMTUwODAzDQoyMDE1MDgwNA0KMjAxNTA4MDUNCjIwMTUwODA2
DQoyMDE1MDgwNw0KMjAxNTA4MTANCjIwMTUwODExDQoyMDE1MDgxMg0KMjAxNTA4MTMNCjIw
MTUwODE0DQoyMDE1MDgxNw0KMjAxNTA4MTgNCjIwMTUwODE5DQoyMDE1MDgyMA0KMjAxNTA4
MjENCjIwMTUwODI0DQoyMDE1MDgyNQ0KMjAxNTA4MjYNCjIwMTUwODI3DQoyMDE1MDgyOA0K
MjAxNTA4MzENCjIwMTUwOTAxDQoyMDE1MDkwMg0KMjAxNTA5MDcNCjIwMTUwOTA4DQoyMDE1
MDkwOQ0KMjAxNTA5MTANCjIwMTUwOTExDQoyMDE1MDkxNA0KMjAxNTA5MTUNCjIwMTUwOTE2
DQoyMDE1MDkxNw0KMjAxNTA5MTgNCjIwMTUwOTIxDQoyMDE1MDkyMg0KMjAxNTA5MjMNCjIw
MTUwOTI0DQoyMDE1MDkyNQ0KMjAxNTA5MjgNCjIwMTUwOTI5DQoyMDE1MDkzMA0KMjAxNTEw
MDgNCjIwMTUxMDA5DQoyMDE1MTAxMg0KMjAxNTEwMTMNCjIwMTUxMDE0DQoyMDE1MTAxNQ0K
MjAxNTEwMTYNCjIwMTUxMDE5DQoyMDE1MTAyMA0KMjAxNTEwMjENCjIwMTUxMDIyDQoyMDE1
MTAyMw0KMjAxNTEwMjYNCjIwMTUxMDI3DQoyMDE1MTAyOA0KMjAxNTEwMjkNCjIwMTUxMDMw
DQoyMDE1MTEwMg0KMjAxNTExMDMNCjIwMTUxMTA0DQoyMDE1MTEwNQ0KMjAxNTExMDYNCjIw
MTUxMTA5DQoyMDE1MTExMA0KMjAxNTExMTENCjIwMTUxMTEyDQoyMDE1MTExMw0KMjAxNTEx
MTYNCjIwMTUxMTE3DQoyMDE1MTExOA0KMjAxNTExMTkNCjIwMTUxMTIwDQoyMDE1MTEyMw0K
MjAxNTExMjQNCjIwMTUxMTI1DQoyMDE1MTEyNg0KMjAxNTExMjcNCjIwMTUxMTMwDQoyMDE1
MTIwMQ0KMjAxNTEyMDINCjIwMTUxMjAzDQoyMDE1MTIwNA0KMjAxNTEyMDcNCjIwMTUxMjA4
DQoyMDE1MTIwOQ0KMjAxNTEyMTANCjIwMTUxMjExDQoyMDE1MTIxNA0KMjAxNTEyMTUNCjIw
MTUxMjE2DQoyMDE1MTIxNw0KMjAxNTEyMTgNCjIwMTUxMjIxDQoyMDE1MTIyMg0KMjAxNTEy
MjMNCjIwMTUxMjI0DQoyMDE1MTIyNQ0KMjAxNTEyMjgNCjIwMTUxMjI5DQoyMDE1MTIzMA0K
MjAxNTEyMzENCg==

------=_NextPart_55EFFA65_09962EC8_4F10021A--

[renliang8929]

不常用脚本语言，总想用for循环.////

[renliang8929]

解决了，办法比较笨。谁有更好的方法 my $sum = ""; my $te= ""; #my $semifinal = substr($haha,length($temp[0]+6)); foreach $te (@temp) { if($te=~/_NextPart_/|$te=~/attachment/|$te=~/base64/) { $sum = $sum."\n"; } else { $sum = $sum.$te; } }