Question

perl中是否有一个方法需要大量数据并将其格式化为后缀字符，如“M”，“K”等。例如：

number = 9,999,999    output = 10.0M

我不能使用'Math :: Round'或'Format :: Number'之类的东西作为perl安装，我无法安装任何新模块。

Answer 1

基本理念：

for name in soup.find_all('a',class_="yt-uix-sessionlink yt-uix-tile-link  spf-link  yt-ui-ellipsis yt-ui-ellipsis-2"):
        vid_name=name.text
        second=Label(text=vid_name,fg='black',bg='white').place(x=200,y=40+space)
        space=space+20

输出：a `class ="yt-uix-sessionlink yt-uix-tile-link spf-link yt-ui-ellipsis yt-ui-ellipsis-2" dir="ltr" title="Metallica: Hardwired (Official Music Video)"`

带子程序的版本

$number=9876543;
$NumString = sprintf("%.1f M", int($number/100000 + 0.5)/10);
print "$number   $NumString\n";

输出：

9876543   9.9 M

在perl中格式化大整数

1 个答案: