我仍然在学习 Perl,并且知道我还有很长的路要走,我一直在阅读 O'Reilly 的 Perl 书籍,还参加了一些关于 Udemy 的课程,甚至还完成了关于 Perl 的 Lynda 课程。
我正在尝试编写一个备份程序来满足我的需求,但我似乎很难使用我的一个功能。
sub list {
my @zfs_temp = `zfs list`;
foreach (@zfs_temp) {
my ($name, $used, $available, $refer, $mount) = split(/\s+/);
push(@name, $name);
push(@used, $used);
push(@available, $available);
push(@refer, $refer);
push(@mount, $mount);
# print "@name, @used, @available, @refer, @mount\n";
return (@name, @used, @available, @refer, @mount);
}
}
似乎我只回了一条线,我真的不确定我做错了什么,有人能指出我正确的方向吗?
谢谢你