在Perl中，如何從包含回車符和換行符的字符串中捕獲一串數字？

Question

我需要從多行字符串中提取文本（字符和數字）。我試過的所有東西都沒有去掉換行符/回車符。

這裏是有問題的字符串：

"\r\n  50145395\r\n " 

在HEX，它是：0D 0A 20 20 20 20 20 20 20 20 35 30 31 34 35 33 39 35 0D 0A 20 20 20 20

我曾嘗試以下：

$sitename =~ m/(\d+)/g; 
$sitename = $1; 

和

$sitename =~ s/^\D+//g; 
$sitename =~ s/\D+$//g; 

和

$sitename =~ s/^\s+//g; 
$sitename =~ s/\s+$//g; 

在任何情況下，我無法擺脫的任何不需要的字符。我已經在cygwin perl和Strawberry perl中運行過。

謝謝。

Answer 1

我不知道，你所需要的，但這裏是代碼字符串中提取的所有單詞

my @words = ($sitename =~ m/(\w+)/g); 

它也可以用split來完成。但是你現在需要使用空格：

my @words = split(m/\s+/, $sitename); 

Answer 2

獲取匹配在列表上下文返回捕獲的字符串：

#!/usr/bin/perl 

use strict; use warnings; 

my $s = join('', map chr(hex), qw(
    0D 0A 20 20 20 20 20 20 20 20 35 30 
    31 34 35 33 39 35 0D 0A 20 20 20 20 
)); 

my ($x) = $s =~ /([A-Za-z0-9]+)/; 

print "'$x'\n"; 

輸出：

 
C:\Temp> uio 
'50145395' 

Answer 3

最明顯的一個我沒有在帖子中看到：

$sitename =~ s/\D//g; 

這將刪除所有非數字。要刪除什麼，但字的字符，你可以：

$sitename =~ s/\W//g; 

沒有必要爲^或$如果你的目的是要取代所有的非數字。此外，如果使用全局g選項，則可以一次替換一個字符;不需要與\d+匹配多個數字。

Answer 4

編輯：我的解決方案不正確;請注意思南Ünür的解決方案。

Answer 5

在過去，我已經做了類似：

my $newline = chr(13) . chr(10); 

$data =~ s/$newline/ /g; 

您可以檢查出其他ASCII字符代碼：http://www.asciitable.com./

use strict; 

my $newline = chr(13); 
my $newline2 = chr(10); 

my $words = "\r\n  50145395\r\n "; 

foreach my $char (split //, $words) { 
my $val=ord($char);  
print "->$char<- ($val)\n"; 
} 

print "$words\n"; 

$words =~ s/$newline//g; 
$words =~ s/$newline2//g; 
$words =~ s/[ ]+//g; 

foreach my $char (split //, $words) { 
my $val=ord($char);  
print "->$char<- ($val)\n"; 
} 

print "$words\n"; 

Answer 6

你只想刪除換行符和回車？如果是這樣，這是你想要的東西：

$sitename =~ s/[\r\n]//g; 

如果你想移除所有的空格，不只是換行和換行，而不是使用：

$sitename =~ s/\s//g; 

Answer 7

$x = <<END; 
this is a multiline 
string. this is a multiline 
string. 
END 

$x =~ s/\r?\n?//g; 
print $x; 

Answer 8

提取所有數字，帶關閉非數字字符

$ sitename =「\ r \ n 50145395 \ r \ n」;

$站點名=〜S/\ d + //克;