Perl 初心者コーナー Part23

[0534 nobodyさん 03/05/28 20:49 ID:uwixhF+z]

use vars
@body_item->{'body'} = split (/\n/, $body_item->{'body'});
@head = splice (@body_item->{'body'}, 0, 3);
$body_item->{'body'} = join ("\n", @body_item->{'body'});
これだと

Global symbol "@body_item" requires explicit package name at user_lub/xxx/xxx.pm line 196

このようなエラーが出ます。