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

diff --git a/tel2ma.pl b/tel2ma.pl
index 72ed2200c5e1c8b754b51f228ea2904a2aa3deee..7354d8173da0952e8ac602d0f1b31a967dd72674 100755 (executable)
--- a/tel2ma.pl
+++ b/tel2ma.pl
@@ -51,23 +51,23 @@ $tel =~ s/-//g;
 
 if($tel =~ /^(0570)(...)(...)$/){
     print "$1-$2-$3 " unless $is_only_ma;
 
 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;
     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;
     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;
     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;
     exit;
 }elsif($tel =~ /^(0[789]0)(....)(....)$/){
     print "$1-$2-$3 " unless $is_only_ma;

-    print "携帯電話\n";
+    print "携帯電話";

     exit;
 }
 
     exit;
 }
 


@@ -95,9 +95,9 @@ foreach my $line (<DATA>) {
                 my $subsc =  substr($tel, -4);
 
                 if( $is_only_ma ){
                 my $subsc =  substr($tel, -4);
 
                 if( $is_only_ma ){

-                    print "${ma}MA\n";
+                    print "${ma}MA";

                 }else{
                 }else{

-                    print "$ac-$exch-$subsc ${ma}MA $munics\n";
+                    print "$ac-$exch-$subsc ${ma}MA $munics";

                 }
 
                 exit;
                 }
 
                 exit;