From: satomichan <git-kitte.20250824@...>
Date: Mon, 8 Dec 2025 07:59:06 +0000 (+0900)
Subject: 出力の最後で改行しないことに.
X-Git-Url: https://satomichan.jp/gitweb/?a=commitdiff_plain;ds=sidebyside;p=tel2ma%2F.git

出力の最後で改行しないことに.
---

diff --git a/tel2ma.pl b/tel2ma.pl
index 72ed220..7354d81 100755
--- a/tel2ma.pl
+++ b/tel2ma.pl
@@ -51,23 +51,23 @@ $tel =~ s/-//g;
 
 if($tel =~ /^(0570)(...)(...)$/){
     print "$1-$2-$3 " unless $is_only_ma;
-    print "ナビダイヤル\n";
+    print "ナビダイヤル";
     exit;
 }elsif($tel =~ /^(0120)(...)(...)$/){
     print "$1-$2-$3 " unless $is_only_ma;
-    print "フリーダイヤル\n";
+    print "フリーダイヤル";
     exit;
 }elsif($tel =~ /^(0800)(...)(....)$/){
     print "$1-$2-$3 " unless $is_only_ma;
-    print "フリーダイヤル\n";
+    print "フリーダイヤル";
     exit;
 }elsif($tel =~ /^(050)(....)(....)$/){
     print "$1-$2-$3 " unless $is_only_ma;
-    print "IP電話\n";
+    print "IP電話";
     exit;
 }elsif($tel =~ /^(0[789]0)(....)(....)$/){
     print "$1-$2-$3 " unless $is_only_ma;
-    print "携帯電話\n";
+    print "携帯電話";
     exit;
 }
 
@@ -95,9 +95,9 @@ foreach my $line (<DATA>) {
                 my $subsc =  substr($tel, -4);
 
                 if( $is_only_ma ){
-                    print "${ma}MA\n";
+                    print "${ma}MA";
                 }else{
-                    print "$ac-$exch-$subsc ${ma}MA $munics\n";
+                    print "$ac-$exch-$subsc ${ma}MA $munics";
                 }
 
                 exit;