文本:: ParseWords-> quotewords（）的單引號的情況下不能正常工作的字符串中的Perl

Question

我想是這樣的：

use Text::ParseWords; 

my $var="Id;Id2;my name 'is Ankit;code"; 

my @temp = quotewords('\;',1,$var); 

my $length = scalar @temp; 

print "$length\n"; 

我可以使用分裂（），但它不工作的案例 - 「Id; Id2;」我的名字是; Ankit「;代碼」。有什麼建議麼 ？

Answer 1

你必須逃避單引號。

use strict; 
use warnings; 
use Text::ParseWords; 
my $var = q{Id;Id2;my name \'is Ankit;code}; 
my @words = quotewords('\;', 0, $var); 
print scalar @words; #prints 4