小编Aru*_*aji的帖子

use Data::Dumper qw(Dumper);

@arr=split('\/',"\Program Files\Microsoft VisualStudio\VC98\Bin\Rebase.exe");

print(Dumper \@arr);

输出:

$VAR1 = [     

'Program FilesMicrosoft VisualStudioVC98BinRebase.exe'

];

所需输出:

$VAR1 = [     
'Program Files',

'Microsoft VisualStudio',

'VC98',

'Bin',

'Rebase.exe'
];