Konum bilgisi olmadan bir kalıp() mesajını nasıl verebilirim?

Question

die aracılığıyla bir özel durum oluşturan bir komut dosyası var. İstisnaları yakaladığımda, ekli konum bilgisi olmaksızın mesaj çıktılamak istiyorum.

Bu komut:

#! /usr/bin/perl -w 

use strict; 

eval { 
    die "My error message"; 
}; 
if($@) { 
    print $@; 
} 

çıkışları My error message at d:\src\test.pl line 7.

ben çıkışını almak için sadece tercih ediyorum: My error message

Umarım insanlar bunu yapmak istiyorum neden odaklanmak yok ama Birisi ilgilenirse o zaman:

Orklar, girdi arar ve her bir girdi parçasını bir işleyiciye gönderir, eğer ele geçiremediği bir girdi parçasıyla karşılaşırsa, o zaman atar, böylece tüm istisnalar aynı kod parçasından gelir. Bu nedenle, bu durumda konum çok yararlı değildir.

Answer 1

sizin dizeye \n ekleyin:

die "My error message\n" 

Bu die belgelenmiştir:

LİSTESİ son elemanı yeni bir satır ile değil sona eriyor, geçerli komut hat numarası ve giriş satırı numarası ( varsa) da yazdırılır ve numaralı bir satır verilir.

Answer 2

Tüm ek bilgiler için die için perlfunc girdisine bakın. Ve mesajınızı \n ile bitirin.

Answer 3

Bunu tartışan Mastering Perl'da "Hata Giderme" hakkında bir bölüm var. Eğer sadece yeni bir satır referans ile de yapabilirsiniz die mesajınızı biten dosyayı ve satır numarasını ortadan kaldırabilir rağmen:

eval { 
    time % 2 ? 
     die { 
      message => q(I died!), 
      level => 'really really serious', 
      } 
     : 
     die "I died as a string!\n"; 
    }; 

if(ref $@) { 
    print "Reference message was $@->{message}\n"; 
    } 
else { 
    print "$@\n"; 
    } 

hata mesajlarının sonunda yeni satır gibi değil eğilimindedir, ve ben cenneti olmasına rağmen Kodunuzu gördüm, istisna için ekstra bilgi eklemek istediğim bir durum gibi geliyor, böylece neler olup bittiğini takip edebiliyorum.

Ayrıca, CPAN'daki birçok Özel Durum modülünü kullanmayı düşünebilirsiniz.