使用perl直接提取数字或更改它们

Question

$harddisk = `wmic logicaldisk get size,caption`;

包含以下内容。我想要做的是提取数字，或直接更改它们

Total Hard disk capacity: 
Caption  Size          
C:       480737488896  
D:       19157479424   
E:                     
F:         

是否有可能使用foreach +

来获取它们

foreach($harddisk =~ m/\d+/g){ push(@hdd, noideawhattoputhere; }

或者是否可以在正则表达式中使用数学？在这里，我想把1美元除以1024.

$harddisk =~ s/(\d+)/$1/g;

提前感谢！

Answer 1

$harddisk =~ s|\d+|$&/1024|ge;

e修饰符表示将替换视为要评估的表达式。