我需要使用外部数据,一个纯文本文件,其中包含要在Perl中处理的数据(我正在学习这种语言).
{NAME}
orga:21:12348:oragnisation
serv:22:12348:service
{NAME-END}
{DATA}
palm:data:fluid:147
rose:data:fluid:149
{DATA-END}
{OTHER}
palm:data:fluid:147
rose:data:fluid:149
germ:data:fluid:189
{OTHER-END}
如何读取此文件并将每个部分存储在数组中(部分已知且在{xxxx}和之间分隔{xxxx-END}.部分中的每个数据都转换为列表并存储在数组中.我希望有这样的内容,例如:
@name = ( ("orga","21","12348","organisation"), ("serv","22","12348","service") )