如何从字符串中提取一堆数字?

1 string perl extraction

这是示例测试文件:

  Barcode:*99899801000689811* 
  JSC4000I accountNumber:10006898Sequence Number:998 Envelopes: 1 
  LCD5010V Using jsl 'CUSOFF' for output page '6'
  Barcode:*99999901000673703* 
  LCD5010V Using jsl 'CUSOFF' for output page '4'
  LCD5005V Using job 'A' for current page '4'
Run Code Online (Sandbox Code Playgroud)

因此,在此文件中,如何搜索单词条形码并提取它的前五位数,同时将其传递到数组中.

提前致谢.

And*_*are 6

尝试一个正则表达式,这样的东西应该工作:

Barcode:\*(\d{5})