perl中的模式匹配

我想解析文件中的一些信息。在该文件中perl中的模式匹配

信息：

Rita_bike_house_Sha9 

Rita_bike_house

我想有一个像DIS

$a = Rita_bike_house and $b = Sha9, 

$a = Rita_bike_house and $b = "original"

为了输出得到，我用下面的代码：

$name = @_; # This @_ has all the information from the file that I have shown above. 

#For matching pattern Rita_bike_house_Sha9 
($a, $b) = $name =~ /\w\d+/; 

if ($a ne "" and $b ne "") { return ($a,$b) } 
# this statement doesnot work at all as its first condition 
# before the end is not satisified.

是有什么方法可以在$a中存储“Rita_bike_house”，在$b中存储“Sha9”？我认为我的正则表达式缺少某些东西。你能提出什么建议吗？

来源

2013-07-08 user2498830

'$ name = @ _'是一种代码味道。您可能的意思是['（$ name）= @ _']（http://stackoverflow.com/q/10031455/168657）。 – mob

'\ w'也匹配'_'（下划线），所以你需要更精确的匹配规则。 – jm666

对不起。是的，它是（$ name）= @_; – user2498830

不怎么样，但是未来：

use strict; 
use warnings; 

while(<DATA>) { 
    chomp; 
    next if /^\s*$/; 
    my @parts = split(/_/); 
    my $b = pop @parts if $parts[$#parts] =~ /\d/; 
    $b //= '"original"'; 
    my $a = join('_', @parts); 
    print "\$a = $a and \$b = $b,\n"; 
} 

__DATA__ 
Rita_bike_house_Sha9 
Rita_bike_house

打印：

$a = Rita_bike_house and $b = Sha9, 
$a = Rita_bike_house and $b = "original",

来源

2013-07-08 19:48:29 jm666

感谢您的输入，但我得到一个错误，说如果$ parts [$＃parts] =〜/ \ d /;终止于“my $ b = pop @parts”我不能使用5.014; – user2498830

任何建议为什么它不解析行“my $ b = pop @parts if $ parts [$＃parts] =〜/ \ d /;” – user2498830

@ user2498830请参阅编辑.. – jm666

请不要在代码中使用的变量$a和$b。有这种使用，会混淆你。

尝试：

while(my $line = <DATA>){ 
    chomp $line; 

    if($line =~ m{ \A (\w+) _ ([^_]* \d [^_]*) \z }msx){ 
    my $first = $1; 
    my $second = $2; 
    print "\$a = $first and \$b = $second\n"; 
    }else{ 
    print "\$a = $line and \$b = \"original\"\n"; 
    } 
} 

__DATA__ 
Rita_bike_house_Sha9 
Rita_bike_house

来源

2013-07-08 21:22:24 shawnhcorey

如果您确信这是需要的图案永远是类似于“Sha9”也将出现在年底，然后就去做一个贪婪的匹配....

open FILE, "filename.txt" or die $!; 
my @data = <FILE>; 
close(<FILE>); 
#my $line = "Rita_bike_house_Sha9"; 
foreach $line (@data) 
{ 
    chomp($line); 
    if ($line =~ m/(.*?)(_([a-zA-Z]+[0-9]+))?$/) 
    { 
     $a = $1; 
     $b = $3 ? $3 : "original"; 
    } 
}

来源

2013-07-09 10:08:16

perl中的模式匹配

回答

相关问题