比較perl的

Question

個字符串的第二個數字如何，除了字符串的第一個數字比較？假設我有713和213，則返回是13
另一個例子：
518和21 =>無結果
423和413 =>無結果
315和215 => 15
由於

Answer 1

這樣，你可以這樣做：

if(substr($str1,1) eq substr($str2,1)) 

測試here

Answer 2

的substr運算符將爲您抽取子字符串。的substr第二個參數是偏移量所需的子字符串的開始，所以如果你想要第二個字符開始，你必須說substr $string, 1。

這個程序使用自己的數據，並把兩個數爲$i和$j。然後substr被稱爲兩次起那些字符串複製第二個字符到$i2和$j2。 if語句比較這兩個值並相應地打印輸出。

use strict; 
use warnings; 

for (
    '518 and 21', 
    '423 and 413', 
    '315 and 215') { 

    my ($i, $j) = /\d+/g; 

    my $i2 = substr $i, 1; 
    my $j2 = substr $j, 1; 

    if ($i2 eq $j2) { 
    print "$i and $j => $i2\n"; 
    } 
    else { 
    print "$i and $j => no result\n"; 
    } 
} 

輸出

518 and 21 => no result 
423 and 413 => no result 
315 and 215 => 15